!=============================================================================== !BOP =========================================================================== ! ! !MODULE: seq_flds_mod -- coupler/comp list of exchange fields indices ! ! !DESCRIPTION: ! List of all supported coupler/component list of all possible exchanged ! The actual experiment will only use those flds in seq_flds_mod ! ! !REVISION HISTORY: ! Created by Mariana Vertenstein ! ! !INTERFACE: ------------------------------------------------------------------ module seq_flds_indices 16,5 ! !USES: use shr_string_mod use shr_sys_mod, only: shr_sys_abort use seq_flds_mod use seq_drydep_mod, only: drydep_fields_token, lnd_drydep use mct_mod implicit none save public ! !PUBLIC TYPES: ! domain integer :: nflds_dom ! atm -> drv integer :: index_a2x_Sa_z ! bottom atm level height integer :: index_a2x_Sa_u ! bottom atm level zon wind integer :: index_a2x_Sa_v ! bottom atm level mer wind integer :: index_a2x_Sa_tbot ! bottom atm level temp integer :: index_a2x_Sa_ptem ! bottom atm level pot temp integer :: index_a2x_Sa_shum ! bottom atm level spec hum integer :: index_a2x_Sa_dens ! bottom atm level air den integer :: index_a2x_Sa_pbot ! bottom atm level pressure integer :: index_a2x_Sa_pslv ! sea level atm pressure integer :: index_a2x_Faxa_lwdn ! downward lw heat flux integer :: index_a2x_Faxa_rainc ! prec: liquid "convective" integer :: index_a2x_Faxa_rainl ! prec: liquid "large scale" integer :: index_a2x_Faxa_snowc ! prec: frozen "convective" integer :: index_a2x_Faxa_snowl ! prec: frozen "large scale" integer :: index_a2x_Faxa_swndr ! sw: nir direct downward integer :: index_a2x_Faxa_swvdr ! sw: vis direct downward integer :: index_a2x_Faxa_swndf ! sw: nir diffuse downward integer :: index_a2x_Faxa_swvdf ! sw: vis diffuse downward integer :: index_a2x_Faxa_swnet ! sw: net integer :: index_a2x_Faxa_bcphidry ! flux: Black Carbon hydrophilic dry deposition integer :: index_a2x_Faxa_bcphodry ! flux: Black Carbon hydrophobic dry deposition integer :: index_a2x_Faxa_bcphiwet ! flux: Black Carbon hydrophilic wet deposition integer :: index_a2x_Faxa_ocphidry ! flux: Organic Carbon hydrophilic dry deposition integer :: index_a2x_Faxa_ocphodry ! flux: Organic Carbon hydrophobic dry deposition integer :: index_a2x_Faxa_ocphiwet ! flux: Organic Carbon hydrophilic dry deposition integer :: index_a2x_Faxa_dstwet1 ! flux: Size 1 dust -- wet deposition integer :: index_a2x_Faxa_dstwet2 ! flux: Size 2 dust -- wet deposition integer :: index_a2x_Faxa_dstwet3 ! flux: Size 3 dust -- wet deposition integer :: index_a2x_Faxa_dstwet4 ! flux: Size 4 dust -- wet deposition integer :: index_a2x_Faxa_dstdry1 ! flux: Size 1 dust -- dry deposition integer :: index_a2x_Faxa_dstdry2 ! flux: Size 2 dust -- dry deposition integer :: index_a2x_Faxa_dstdry3 ! flux: Size 3 dust -- dry deposition integer :: index_a2x_Faxa_dstdry4 ! flux: Size 4 dust -- dry deposition integer :: index_a2x_Sa_co2prog ! bottom atm level prognostic co2 integer :: index_a2x_Sa_co2diag ! bottom atm level diagnostic co2 integer :: nflds_a2x ! drv -> atm integer :: index_x2a_Sx_t ! surface temperature integer :: index_x2a_So_t ! sea surface temperature integer :: index_x2a_Sx_lfrac ! surface land fraction integer :: index_x2a_Sx_ifrac ! surface ice fraction integer :: index_x2a_Sx_ofrac ! surface ocn fraction integer :: index_x2a_Sx_tref ! 2m reference temperature integer :: index_x2a_Sx_qref ! 2m reference specific humidity integer :: index_x2a_Sx_avsdr ! albedo, visible, direct integer :: index_x2a_Sx_anidr ! albedo, near-ir, direct integer :: index_x2a_Sx_avsdf ! albedo, visible, diffuse integer :: index_x2a_Sx_anidf ! albedo, near-ir, diffuse integer :: index_x2a_Sl_snowh ! surface snow depth over land integer :: index_x2a_Si_snowh ! surface snow depth over ice integer :: index_x2a_Sl_fv ! friction velocity integer :: index_x2a_Sl_ram1 ! aerodynamical resistance integer :: index_x2a_Faxx_taux ! wind stress, zonal integer :: index_x2a_Faxx_tauy ! wind stress, meridional integer :: index_x2a_Faxx_lat ! latent heat flux integer :: index_x2a_Faxx_sen ! sensible heat flux integer :: index_x2a_Faxx_lwup ! upward longwave heat flux integer :: index_x2a_Faxx_evap ! evaporation water flux integer :: index_x2a_Fall_flxdst1 ! dust flux size bin 1 integer :: index_x2a_Fall_flxdst2 ! dust flux size bin 2 integer :: index_x2a_Fall_flxdst3 ! dust flux size bin 3 integer :: index_x2a_Fall_flxdst4 ! dust flux size bin 4 integer :: index_x2a_Faxx_flxvoc1 ! voc flux size bin 1 integer :: index_x2a_Faxx_flxvoc2 ! voc flux size bin 2 integer :: index_x2a_Faxx_flxvoc3 ! voc flux size bin 3 integer :: index_x2a_Faxx_flxvoc4 ! voc flux size bin 4 integer :: index_x2a_Faxx_flxvoc5 ! voc flux size bin 5 integer :: index_x2a_So_ustar integer :: index_x2a_So_re integer :: index_x2a_So_ssq integer :: index_x2a_Sx_ddvel ! dry deposition velocities ! integer :: index_x2a_Si_avsdr ! albedo, visible, direct integer :: index_x2a_Si_anidr ! albedo, near-ir, direct integer :: index_x2a_Si_avsdf ! albedo, visible, diffuse integer :: index_x2a_Si_anidf ! albedo, near-ir, diffuse integer :: index_x2a_So_avsdr ! albedo, visible, direct ! (flux module) integer :: index_x2a_So_anidr ! albedo, near-ir, direct ! (flux module) integer :: index_x2a_So_avsdf ! albedo, visible, diffuse ! (flux module) integer :: index_x2a_So_anidf ! albedo, near-ir, diffuse ! (flux module) integer :: index_x2a_Faii_lat ! latent heat flux integer :: index_x2a_Faii_sen ! sensible heat flux integer :: index_x2a_Faii_lwup ! upward longwave heat flux integer :: index_x2a_Faox_lat ! latent heat flux ! (flux module) integer :: index_x2a_Faox_sen ! sensible heat flux ! (flux module) integer :: index_x2a_Faox_lwup ! upward longwave heat flux integer :: index_x2a_Faxx_fco2_lnd ! co2 flux from land integer :: index_x2a_Faxx_fco2_ocn ! co2 flux from ocean integer :: index_x2a_Faxx_fdms ! dms flux ! integer :: nflds_x2a ! ice -> drv integer :: index_i2x_Si_ifrac ! fractional ice coverage wrt ocean integer :: index_i2x_Si_sicthk ! sea ice thickness (needed only for cam/som) integer :: index_i2x_Si_snowh ! snow height (m) integer :: index_i2x_Si_t ! temperature integer :: index_i2x_Si_tref ! 2m reference temperature integer :: index_i2x_Si_qref ! 2m reference specific humidity integer :: index_i2x_Si_avsdr ! albedo: visible, direct integer :: index_i2x_Si_avsdf ! albedo: near ir, direct integer :: index_i2x_Si_anidr ! albedo: visible, diffuse integer :: index_i2x_Si_anidf ! albedo: near ir, diffuse integer :: index_i2x_Faii_lwup ! upward longwave heat flux integer :: index_i2x_Faii_lat ! latent heat flux integer :: index_i2x_Faii_sen ! sensible heat flux integer :: index_i2x_Faii_evap ! evaporation water flux integer :: index_i2x_Faii_taux ! wind stress, zonal integer :: index_i2x_Faii_tauy ! wind stress, meridional integer :: index_i2x_Faii_swnet ! sw: net integer :: index_i2x_Fioi_swpen ! sw: net penetrating ice integer :: index_i2x_Fioi_melth ! heat flux from melting ice (<0) integer :: index_i2x_Fioi_meltw ! water flux from melting ice integer :: index_i2x_Fioi_salt ! salt flux from meting ice integer :: index_i2x_Fioi_taux ! ice/ocn stress, zonal integer :: index_i2x_Fioi_tauy ! ice/ocn stress, zonal integer :: nflds_i2x ! drv -> ice integer :: index_x2i_So_t ! ocn layer temperature integer :: index_x2i_So_s ! ocn salinity integer :: index_x2i_So_u ! ocn u velocity integer :: index_x2i_So_v ! ocn v velocity integer :: index_x2i_Sa_z ! bottom atm level height integer :: index_x2i_Sa_u ! bottom atm level zon wind integer :: index_x2i_Sa_v ! bottom atm level mer wind integer :: index_x2i_Sa_tbot ! bottom atm level temp integer :: index_x2i_Sa_pbot ! bottom atm level pressure integer :: index_x2i_Sa_ptem ! bottom atm level pot temp integer :: index_x2i_Sa_shum ! bottom atm level spec hum integer :: index_x2i_Sa_dens ! bottom atm level air den integer :: index_x2i_So_dhdx ! ocn surface slope, zonal integer :: index_x2i_So_dhdy ! ocn surface slope, meridional integer :: index_x2i_Faxa_lwdn ! downward lw heat flux integer :: index_x2i_Faxa_rain ! prec: liquid integer :: index_x2i_Faxa_snow ! prec: frozen integer :: index_x2i_Faxa_swndr ! sw: nir direct downward integer :: index_x2i_Faxa_swvdr ! sw: vis direct downward integer :: index_x2i_Faxa_swndf ! sw: nir diffuse downward integer :: index_x2i_Faxa_swvdf ! sw: vis diffuse downward integer :: index_x2i_Faxa_swnet ! sw: net integer :: index_x2i_Fioo_q ! ocn freeze or melt heat integer :: index_x2i_Faxa_bcphidry ! flux: Black Carbon hydrophilic dry deposition integer :: index_x2i_Faxa_bcphodry ! flux: Black Carbon hydrophobic dry deposition integer :: index_x2i_Faxa_bcphiwet ! flux: Black Carbon hydrophilic wet deposition integer :: index_x2i_Faxa_ocphidry ! flux: Organic Carbon hydrophilic dry deposition integer :: index_x2i_Faxa_ocphodry ! flux: Organic Carbon hydrophobic dry deposition integer :: index_x2i_Faxa_ocphiwet ! flux: Organic Carbon hydrophilic dry deposition integer :: index_x2i_Faxa_dstwet1 ! flux: Size 1 dust -- wet deposition integer :: index_x2i_Faxa_dstwet2 ! flux: Size 2 dust -- wet deposition integer :: index_x2i_Faxa_dstwet3 ! flux: Size 3 dust -- wet deposition integer :: index_x2i_Faxa_dstwet4 ! flux: Size 4 dust -- wet deposition integer :: index_x2i_Faxa_dstdry1 ! flux: Size 1 dust -- dry deposition integer :: index_x2i_Faxa_dstdry2 ! flux: Size 2 dust -- dry deposition integer :: index_x2i_Faxa_dstdry3 ! flux: Size 3 dust -- dry deposition integer :: index_x2i_Faxa_dstdry4 ! flux: Size 4 dust -- dry deposition integer :: index_x2i_Sa_co2prog ! bottom atm level prognostic co2 integer :: nflds_x2i ! hub atm/ocn flufxes and states (computed by flux module) integer :: index_xao_So_tref integer :: index_xao_So_qref integer :: index_xao_So_avsdr integer :: index_xao_So_avsdf integer :: index_xao_So_anidr integer :: index_xao_So_anidf integer :: index_xao_Sx_duu10n integer :: index_xao_Faox_taux integer :: index_xao_Faox_tauy integer :: index_xao_Faox_lat integer :: index_xao_Faox_sen integer :: index_xao_Faox_evap integer :: index_xao_Faox_lwup integer :: index_xao_So_ustar ! optional integer :: index_xao_So_re ! optional integer :: index_xao_So_ssq ! optional integer :: nflds_xao ! ocn -> drv integer :: index_o2x_So_t integer :: index_o2x_So_u integer :: index_o2x_So_v integer :: index_o2x_So_s integer :: index_o2x_So_dhdx integer :: index_o2x_So_dhdy integer :: index_o2x_Fioo_q integer :: index_o2x_Faoo_fco2 integer :: index_o2x_Faoo_fdms integer :: nflds_o2x ! drv -> ocn integer :: index_x2o_Si_ifrac ! fractional ice wrt ocean integer :: index_x2o_Si_sicthk ! needed only for cam-som integer :: index_x2o_Sx_duu10n integer :: index_x2o_Sa_pslv integer :: index_x2o_Sa_co2prog integer :: index_x2o_Sa_co2diag integer :: index_x2o_Foxx_taux integer :: index_x2o_Foxx_tauy integer :: index_x2o_Foxx_swnet integer :: index_x2o_Foxx_sen integer :: index_x2o_Foxx_lat integer :: index_x2o_Foxx_lwdn integer :: index_x2o_Foxx_lwup integer :: index_x2o_Foxx_melth integer :: index_x2o_Foxx_salt integer :: index_x2o_Foxx_prec integer :: index_x2o_Foxx_snow integer :: index_x2o_Foxx_rain integer :: index_x2o_Foxx_evap integer :: index_x2o_Foxx_meltw integer :: index_x2o_Forr_roff integer :: index_x2o_Forr_ioff integer :: index_x2o_Foxx_bcphidry ! flux: Black Carbon hydrophilic dry deposition integer :: index_x2o_Foxx_bcphodry ! flux: Black Carbon hydrophobic dry deposition integer :: index_x2o_Foxx_bcphiwet ! flux: Black Carbon hydrophilic wet deposition integer :: index_x2o_Foxx_ocphidry ! flux: Organic Carbon hydrophilic dry deposition integer :: index_x2o_Foxx_ocphodry ! flux: Organic Carbon hydrophobic dry deposition integer :: index_x2o_Foxx_ocphiwet ! flux: Organic Carbon hydrophilic dry deposition integer :: index_x2o_Foxx_dstwet1 ! flux: Size 1 dust -- wet deposition integer :: index_x2o_Foxx_dstwet2 ! flux: Size 2 dust -- wet deposition integer :: index_x2o_Foxx_dstwet3 ! flux: Size 3 dust -- wet deposition integer :: index_x2o_Foxx_dstwet4 ! flux: Size 4 dust -- wet deposition integer :: index_x2o_Foxx_dstdry1 ! flux: Size 1 dust -- dry deposition integer :: index_x2o_Foxx_dstdry2 ! flux: Size 2 dust -- dry deposition integer :: index_x2o_Foxx_dstdry3 ! flux: Size 3 dust -- dry deposition integer :: index_x2o_Foxx_dstdry4 ! flux: Size 4 dust -- dry deposition integer :: nflds_x2o ! lnd -> drv integer :: index_l2x_Sl_landfrac ! land fraction integer :: index_l2x_Sl_t ! temperature integer :: index_l2x_Sl_tref ! 2m reference temperature integer :: index_l2x_Sl_qref ! 2m reference specific humidity integer :: index_l2x_Sl_avsdr ! albedo: direct , visible integer :: index_l2x_Sl_anidr ! albedo: direct , near-ir integer :: index_l2x_Sl_avsdf ! albedo: diffuse, visible integer :: index_l2x_Sl_anidf ! albedo: diffuse, near-ir integer :: index_l2x_Sl_snowh ! snow height integer :: index_l2x_Fall_taux ! wind stress, zonal integer :: index_l2x_Fall_tauy ! wind stress, meridional integer :: index_l2x_Fall_lat ! latent heat flux integer :: index_l2x_Fall_sen ! sensible heat flux integer :: index_l2x_Fall_lwup ! upward longwave heat flux integer :: index_l2x_Fall_evap ! evaporation water flux integer :: index_l2x_Fall_swnet ! heat flux shortwave net integer :: index_l2x_Fall_nee ! co2 flux **For testing set to 0 integer :: index_l2x_Sl_fv ! friction velocity integer :: index_l2x_Sl_ram1 ! aerodynamical resistance integer :: index_l2x_Fall_flxdst1 ! dust flux size bin 1 integer :: index_l2x_Fall_flxdst2 ! dust flux size bin 2 integer :: index_l2x_Fall_flxdst3 ! dust flux size bin 3 integer :: index_l2x_Fall_flxdst4 ! dust flux size bin 4 integer :: index_l2x_Fall_flxvoc1 ! voc flux size bin 1 integer :: index_l2x_Fall_flxvoc2 ! voc flux size bin 2 integer :: index_l2x_Fall_flxvoc3 ! voc flux size bin 3 integer :: index_l2x_Fall_flxvoc4 ! voc flux size bin 4 integer :: index_l2x_Fall_flxvoc5 ! voc flux size bin 5 integer :: index_l2x_Sl_ddvel ! dry deposition velocities integer :: nflds_l2x ! roff to driver (part of land for now) integer :: index_r2x_Forr_roff ! runoff to ocean integer :: index_r2x_Forr_ioff ! runoff to ocean integer :: nflds_r2x ! drv -> lnd integer :: index_x2l_Sa_z ! bottom atm level height integer :: index_x2l_Sa_u ! bottom atm level zon wind integer :: index_x2l_Sa_v ! bottom atm level mer wind integer :: index_x2l_Sa_ptem ! bottom atm level pot temp integer :: index_x2l_Sa_shum ! bottom atm level spec hum integer :: index_x2l_Sa_pbot ! bottom atm level pressure integer :: index_x2l_Sa_tbot ! bottom atm level temp integer :: index_x2l_Faxa_lwdn ! downward lw heat flux integer :: index_x2l_Faxa_rainc ! prec: liquid "convective" integer :: index_x2l_Faxa_rainl ! prec: liquid "large scale" integer :: index_x2l_Faxa_snowc ! prec: frozen "convective" integer :: index_x2l_Faxa_snowl ! prec: frozen "large scale" integer :: index_x2l_Faxa_swndr ! sw: nir direct downward integer :: index_x2l_Faxa_swvdr ! sw: vis direct downward integer :: index_x2l_Faxa_swndf ! sw: nir diffuse downward integer :: index_x2l_Faxa_swvdf ! sw: vis diffuse downward integer :: index_x2l_Sa_co2prog ! bottom atm level prognostic co2 integer :: index_x2l_Sa_co2diag ! bottom atm level diagnostic co2 integer :: index_x2l_Faxa_bcphidry ! flux: Black Carbon hydrophilic dry deposition integer :: index_x2l_Faxa_bcphodry ! flux: Black Carbon hydrophobic dry deposition integer :: index_x2l_Faxa_bcphiwet ! flux: Black Carbon hydrophilic wet deposition integer :: index_x2l_Faxa_ocphidry ! flux: Organic Carbon hydrophilic dry deposition integer :: index_x2l_Faxa_ocphodry ! flux: Organic Carbon hydrophobic dry deposition integer :: index_x2l_Faxa_ocphiwet ! flux: Organic Carbon hydrophilic dry deposition integer :: index_x2l_Faxa_dstwet1 ! flux: Size 1 dust -- wet deposition integer :: index_x2l_Faxa_dstwet2 ! flux: Size 2 dust -- wet deposition integer :: index_x2l_Faxa_dstwet3 ! flux: Size 3 dust -- wet deposition integer :: index_x2l_Faxa_dstwet4 ! flux: Size 4 dust -- wet deposition integer :: index_x2l_Faxa_dstdry1 ! flux: Size 1 dust -- dry deposition integer :: index_x2l_Faxa_dstdry2 ! flux: Size 2 dust -- dry deposition integer :: index_x2l_Faxa_dstdry3 ! flux: Size 3 dust -- dry deposition integer :: index_x2l_Faxa_dstdry4 ! flux: Size 4 dust -- dry deposition integer :: nflds_x2l ! drv -> glc integer :: index_x2g_Ss_tsrf01 integer :: index_x2g_Ss_topo01 integer :: index_x2g_Fgss_qice01 integer :: index_x2g_Ss_tsrf02 integer :: index_x2g_Ss_topo02 integer :: index_x2g_Fgss_qice02 integer :: index_x2g_Ss_tsrf03 integer :: index_x2g_Ss_topo03 integer :: index_x2g_Fgss_qice03 integer :: index_x2g_Ss_tsrf04 integer :: index_x2g_Ss_topo04 integer :: index_x2g_Fgss_qice04 integer :: index_x2g_Ss_tsrf05 integer :: index_x2g_Ss_topo05 integer :: index_x2g_Fgss_qice05 integer :: index_x2g_Ss_tsrf06 integer :: index_x2g_Ss_topo06 integer :: index_x2g_Fgss_qice06 integer :: index_x2g_Ss_tsrf07 integer :: index_x2g_Ss_topo07 integer :: index_x2g_Fgss_qice07 integer :: index_x2g_Ss_tsrf08 integer :: index_x2g_Ss_topo08 integer :: index_x2g_Fgss_qice08 integer :: index_x2g_Ss_tsrf09 integer :: index_x2g_Ss_topo09 integer :: index_x2g_Fgss_qice09 integer :: index_x2g_Ss_tsrf10 integer :: index_x2g_Ss_topo10 integer :: index_x2g_Fgss_qice10 integer :: nflds_x2g ! glc -> drv integer :: index_g2x_Sg_frac01 integer :: index_g2x_Sg_topo01 integer :: index_g2x_Fsgg_rofi01 integer :: index_g2x_Fsgg_rofl01 integer :: index_g2x_Fsgg_hflx01 integer :: index_g2x_Sg_frac02 integer :: index_g2x_Sg_topo02 integer :: index_g2x_Fsgg_rofi02 integer :: index_g2x_Fsgg_rofl02 integer :: index_g2x_Fsgg_hflx02 integer :: index_g2x_Sg_frac03 integer :: index_g2x_Sg_topo03 integer :: index_g2x_Fsgg_rofi03 integer :: index_g2x_Fsgg_rofl03 integer :: index_g2x_Fsgg_hflx03 integer :: index_g2x_Sg_frac04 integer :: index_g2x_Sg_topo04 integer :: index_g2x_Fsgg_rofi04 integer :: index_g2x_Fsgg_rofl04 integer :: index_g2x_Fsgg_hflx04 integer :: index_g2x_Sg_frac05 integer :: index_g2x_Sg_topo05 integer :: index_g2x_Fsgg_rofi05 integer :: index_g2x_Fsgg_rofl05 integer :: index_g2x_Fsgg_hflx05 integer :: index_g2x_Sg_frac06 integer :: index_g2x_Sg_topo06 integer :: index_g2x_Fsgg_rofi06 integer :: index_g2x_Fsgg_rofl06 integer :: index_g2x_Fsgg_hflx06 integer :: index_g2x_Sg_frac07 integer :: index_g2x_Sg_topo07 integer :: index_g2x_Fsgg_rofi07 integer :: index_g2x_Fsgg_rofl07 integer :: index_g2x_Fsgg_hflx07 integer :: index_g2x_Sg_frac08 integer :: index_g2x_Sg_topo08 integer :: index_g2x_Fsgg_rofi08 integer :: index_g2x_Fsgg_rofl08 integer :: index_g2x_Fsgg_hflx08 integer :: index_g2x_Sg_frac09 integer :: index_g2x_Sg_topo09 integer :: index_g2x_Fsgg_rofi09 integer :: index_g2x_Fsgg_rofl09 integer :: index_g2x_Fsgg_hflx09 integer :: index_g2x_Sg_frac10 integer :: index_g2x_Sg_topo10 integer :: index_g2x_Fsgg_rofi10 integer :: index_g2x_Fsgg_rofl10 integer :: index_g2x_Fsgg_hflx10 integer :: nflds_g2x ! sno -> drv integer :: index_s2x_Ss_tsrf01 integer :: index_s2x_Ss_topo01 integer :: index_s2x_Fgss_qice01 integer :: index_s2x_Ss_tsrf02 integer :: index_s2x_Ss_topo02 integer :: index_s2x_Fgss_qice02 integer :: index_s2x_Ss_tsrf03 integer :: index_s2x_Ss_topo03 integer :: index_s2x_Fgss_qice03 integer :: index_s2x_Ss_tsrf04 integer :: index_s2x_Ss_topo04 integer :: index_s2x_Fgss_qice04 integer :: index_s2x_Ss_tsrf05 integer :: index_s2x_Ss_topo05 integer :: index_s2x_Fgss_qice05 integer :: index_s2x_Ss_tsrf06 integer :: index_s2x_Ss_topo06 integer :: index_s2x_Fgss_qice06 integer :: index_s2x_Ss_tsrf07 integer :: index_s2x_Ss_topo07 integer :: index_s2x_Fgss_qice07 integer :: index_s2x_Ss_tsrf08 integer :: index_s2x_Ss_topo08 integer :: index_s2x_Fgss_qice08 integer :: index_s2x_Ss_tsrf09 integer :: index_s2x_Ss_topo09 integer :: index_s2x_Fgss_qice09 integer :: index_s2x_Ss_tsrf10 integer :: index_s2x_Ss_topo10 integer :: index_s2x_Fgss_qice10 integer :: nflds_s2x ! drv -> sno integer :: index_x2s_Sg_frac01 integer :: index_x2s_Sg_topo01 integer :: index_x2s_Fsgg_rofi01 integer :: index_x2s_Fsgg_rofl01 integer :: index_x2s_Fsgg_hflx01 integer :: index_x2s_Sg_frac02 integer :: index_x2s_Sg_topo02 integer :: index_x2s_Fsgg_rofi02 integer :: index_x2s_Fsgg_rofl02 integer :: index_x2s_Fsgg_hflx02 integer :: index_x2s_Sg_frac03 integer :: index_x2s_Sg_topo03 integer :: index_x2s_Fsgg_rofi03 integer :: index_x2s_Fsgg_rofl03 integer :: index_x2s_Fsgg_hflx03 integer :: index_x2s_Sg_frac04 integer :: index_x2s_Sg_topo04 integer :: index_x2s_Fsgg_rofi04 integer :: index_x2s_Fsgg_rofl04 integer :: index_x2s_Fsgg_hflx04 integer :: index_x2s_Sg_frac05 integer :: index_x2s_Sg_topo05 integer :: index_x2s_Fsgg_rofi05 integer :: index_x2s_Fsgg_rofl05 integer :: index_x2s_Fsgg_hflx05 integer :: index_x2s_Sg_frac06 integer :: index_x2s_Sg_topo06 integer :: index_x2s_Fsgg_rofi06 integer :: index_x2s_Fsgg_rofl06 integer :: index_x2s_Fsgg_hflx06 integer :: index_x2s_Sg_frac07 integer :: index_x2s_Sg_topo07 integer :: index_x2s_Fsgg_rofi07 integer :: index_x2s_Fsgg_rofl07 integer :: index_x2s_Fsgg_hflx07 integer :: index_x2s_Sg_frac08 integer :: index_x2s_Sg_topo08 integer :: index_x2s_Fsgg_rofi08 integer :: index_x2s_Fsgg_rofl08 integer :: index_x2s_Fsgg_hflx08 integer :: index_x2s_Sg_frac09 integer :: index_x2s_Sg_topo09 integer :: index_x2s_Fsgg_rofi09 integer :: index_x2s_Fsgg_rofl09 integer :: index_x2s_Fsgg_hflx09 integer :: index_x2s_Sg_frac10 integer :: index_x2s_Sg_topo10 integer :: index_x2s_Fsgg_rofi10 integer :: index_x2s_Fsgg_rofl10 integer :: index_x2s_Fsgg_hflx10 integer :: nflds_x2s ! !PUBLIC MEMBER FUNCTIONS: public :: seq_flds_indices_set !---------------------------------------------------------------------------- contains !---------------------------------------------------------------------------- !=============================================================================== !BOP =========================================================================== ! ! !IROUTINE: seq_flds_indices_set ! ! !DESCRIPTION: ! Sets the values for all component state/flux fields ! ! !REVISION HISTORY: ! M. Vertenstein - first version ! ! !INTERFACE: ------------------------------------------------------------------ subroutine seq_flds_indices_set 1,663 ! !USES: ! !INPUT/OUTPUT PARAMETERS: !EOP !------------------------------------------------------------------------------- ! !------------------------------------------------------------------------------- !------------------------------------------------------------- ! domain !------------------------------------------------------------- nflds_dom = shr_string_listGetNum(seq_flds_dom_fields) !------------------------------------------------------------- ! atm -> drv !------------------------------------------------------------- index_a2x_Sa_z = shr_string_listGetIndexF(seq_flds_a2x_fields,'Sa_z') if (index_a2x_Sa_z == 0) call shr_sys_abort('index_a2x_Sa_z is zero') index_a2x_Sa_u = shr_string_listGetIndexF(seq_flds_a2x_fields,'Sa_u') if (index_a2x_Sa_u == 0) call shr_sys_abort('index_a2x_Sa_u is zero') index_a2x_Sa_v = shr_string_listGetIndexF(seq_flds_a2x_fields,'Sa_v') if (index_a2x_Sa_v == 0) call shr_sys_abort('index_a2x_Sa_v is zero') index_a2x_Sa_tbot = shr_string_listGetIndexF(seq_flds_a2x_fields,'Sa_tbot') if (index_a2x_Sa_tbot == 0) call shr_sys_abort('index_a2x_Sa_tbot is zero') index_a2x_Sa_ptem = shr_string_listGetIndexF(seq_flds_a2x_fields,'Sa_ptem') if (index_a2x_Sa_ptem == 0) call shr_sys_abort('index_a2x_Sa_ptem is zero') index_a2x_Sa_pbot = shr_string_listGetIndexF(seq_flds_a2x_fields,'Sa_pbot') if (index_a2x_Sa_pbot == 0) call shr_sys_abort('index_a2x_Sa_pbot is zero') index_a2x_Sa_pslv = shr_string_listGetIndexF(seq_flds_a2x_fields,'Sa_pslv') if (index_a2x_Sa_pslv == 0) call shr_sys_abort('index_a2x_Sa_pslv is zero') index_a2x_Sa_shum = shr_string_listGetIndexF(seq_flds_a2x_fields,'Sa_shum') if (index_a2x_Sa_shum == 0) call shr_sys_abort('index_a2x_Sa_shum is zero') index_a2x_Sa_dens = shr_string_listGetIndexF(seq_flds_a2x_fields,'Sa_dens') if (index_a2x_Sa_dens == 0) call shr_sys_abort('index_a2x_Sa_dens is zero') index_a2x_Faxa_swnet = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_swnet') if (index_a2x_Faxa_swnet == 0) call shr_sys_abort('index_a2x_Faxa_swnet is zero') index_a2x_Faxa_lwdn = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_lwdn') if (index_a2x_Faxa_lwdn == 0) call shr_sys_abort('index_a2x_Faxa_lwdn is zero') index_a2x_Faxa_rainc = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_rainc') if (index_a2x_Faxa_rainc == 0) call shr_sys_abort('index_a2x_Faxa_rainc is zero') index_a2x_Faxa_rainl = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_rainl') if (index_a2x_Faxa_rainl == 0) call shr_sys_abort('index_a2x_Faxa_rainl is zero') index_a2x_Faxa_snowc = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_snowc') if (index_a2x_Faxa_snowc == 0) call shr_sys_abort('index_a2x_Faxa_snowc is zero') index_a2x_Faxa_snowl = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_snowl') if (index_a2x_Faxa_snowl == 0) call shr_sys_abort('index_a2x_Faxa_snowl is zero') index_a2x_Faxa_swndr = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_swndr') if (index_a2x_Faxa_swndr == 0) call shr_sys_abort('index_a2x_Faxa_swndr is zero') index_a2x_Faxa_swvdr = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_swvdr') if (index_a2x_Faxa_swvdr == 0) call shr_sys_abort('index_a2x_Faxa_swvdr is zero') index_a2x_Faxa_swndf = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_swndf') if (index_a2x_Faxa_swndf == 0) call shr_sys_abort('index_a2x_Faxa_swndf is zero') index_a2x_Faxa_swvdf = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_swvdf') if (index_a2x_Faxa_swvdf == 0) call shr_sys_abort('index_a2x_Faxa_swvdf is zero') index_a2x_Faxa_bcphidry = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_bcphidry') if (index_a2x_Faxa_bcphidry == 0) call shr_sys_abort('index_a2x_Faxa_bcphidry is zero') index_a2x_Faxa_bcphodry = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_bcphodry') if (index_a2x_Faxa_bcphodry == 0) call shr_sys_abort('index_a2x_Faxa_bcphodry is zero') index_a2x_Faxa_bcphiwet = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_bcphiwet') if (index_a2x_Faxa_bcphiwet== 0) call shr_sys_abort('index_a2x_Faxa_bcphiwet is zero') index_a2x_Faxa_ocphidry = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_ocphidry') if (index_a2x_Faxa_ocphidry == 0) call shr_sys_abort('index_a2x_Faxa_ocphidry is zero') index_a2x_Faxa_ocphodry = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_ocphodry') if (index_a2x_Faxa_ocphodry == 0) call shr_sys_abort('index_a2x_Faxa_ocphodry is zero') index_a2x_Faxa_ocphiwet = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_ocphiwet') if (index_a2x_Faxa_ocphiwet == 0) call shr_sys_abort('index_a2x_Faxa_ocphiwet is zero') index_a2x_Faxa_dstdry1 = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_dstdry1') if (index_a2x_Faxa_dstdry1 == 0) call shr_sys_abort('index_a2x_Faxa_dstdry1 is zero') index_a2x_Faxa_dstdry2 = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_dstdry2') if (index_a2x_Faxa_dstdry2 == 0) call shr_sys_abort('index_a2x_Faxa_dstdry2 is zero') index_a2x_Faxa_dstdry3 = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_dstdry3') if (index_a2x_Faxa_dstdry3 == 0) call shr_sys_abort('index_a2x_Faxa_dstdry3 is zero') index_a2x_Faxa_dstdry4 = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_dstdry4') if (index_a2x_Faxa_dstdry4 == 0) call shr_sys_abort('index_a2x_Faxa_dstdry4 is zero') index_a2x_Faxa_dstwet1 = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_dstwet1') if (index_a2x_Faxa_dstwet1 == 0) call shr_sys_abort('index_a2x_Faxa_dstwet1 is zero') index_a2x_Faxa_dstwet2 = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_dstwet2') if (index_a2x_Faxa_dstwet2 == 0) call shr_sys_abort('index_a2x_Faxa_dstwet2 is zero') index_a2x_Faxa_dstwet3 = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_dstwet3') if (index_a2x_Faxa_dstwet3 == 0) call shr_sys_abort('index_a2x_Faxa_dstwet3 is zero') index_a2x_Faxa_dstwet4 = shr_string_listGetIndexF(seq_flds_a2x_fields,'Faxa_dstwet4') if (index_a2x_Faxa_dstwet4 == 0) call shr_sys_abort('index_a2x_Faxa_dstwet4 is zero') ! Optional fields index_a2x_Sa_co2prog = shr_string_listGetIndexF(seq_flds_a2x_fields,'Sa_co2prog') index_a2x_Sa_co2diag = shr_string_listGetIndexF(seq_flds_a2x_fields,'Sa_co2diag') nflds_a2x = shr_string_listGetNum(seq_flds_a2x_fields) !------------------------------------------------------------- ! drv -> atm !------------------------------------------------------------- index_x2a_Sx_avsdr = shr_string_listGetIndexF(seq_flds_x2a_fields,'Sx_avsdr') if (index_x2a_Sx_avsdr == 0) call shr_sys_abort('index_x2a_Sx_avsdr is zero') index_x2a_Sx_anidr = shr_string_listGetIndexF(seq_flds_x2a_fields,'Sx_anidr') if (index_x2a_Sx_anidr == 0) call shr_sys_abort('index_x2a_Sx_anidr is zero') index_x2a_Sx_avsdf = shr_string_listGetIndexF(seq_flds_x2a_fields,'Sx_avsdf') if (index_x2a_Sx_avsdf == 0) call shr_sys_abort('index_x2a_Sx_avsdf is zero') index_x2a_Sx_anidf = shr_string_listGetIndexF(seq_flds_x2a_fields,'Sx_anidf') if (index_x2a_Sx_anidf == 0) call shr_sys_abort('index_x2a_Sx_anidf is zero') index_x2a_Sx_t = shr_string_listGetIndexF(seq_flds_x2a_fields,'Sx_t') if (index_x2a_Sx_t == 0) call shr_sys_abort('index_x2a_Sx_t is zero') index_x2a_So_t = shr_string_listGetIndexF(seq_flds_x2a_fields,'So_t') if (index_x2a_So_t == 0) call shr_sys_abort('index_x2a_So_t is zero') index_x2a_Sl_snowh = shr_string_listGetIndexF(seq_flds_x2a_fields,'Sl_snowh') if (index_x2a_Sl_snowh == 0) call shr_sys_abort('index_x2a_Sl_snowh is zero') index_x2a_Si_snowh = shr_string_listGetIndexF(seq_flds_x2a_fields,'Si_snowh') if (index_x2a_Si_snowh == 0) call shr_sys_abort('index_x2a_Si_snowh is zero') index_x2a_Sx_tref = shr_string_listGetIndexF(seq_flds_x2a_fields,'Sx_tref') if (index_x2a_Sx_tref == 0) call shr_sys_abort('index_x2a_Sx_tref is zero') index_x2a_Sx_qref = shr_string_listGetIndexF(seq_flds_x2a_fields,'Sx_qref') if (index_x2a_Sx_qref == 0) call shr_sys_abort('index_x2a_Sx_qref is zero') index_x2a_Sx_ifrac = shr_string_listGetIndexF(seq_flds_x2a_fields,'Sx_ifrac') if (index_x2a_Sx_ifrac == 0) call shr_sys_abort('index_x2a_Sx_ifrac is zero') index_x2a_Sx_ofrac = shr_string_listGetIndexF(seq_flds_x2a_fields,'Sx_ofrac') if (index_x2a_Sx_ofrac == 0) call shr_sys_abort('index_x2a_Sx_ofrac is zero') index_x2a_Sx_lfrac = shr_string_listGetIndexF(seq_flds_x2a_fields,'Sx_lfrac') if (index_x2a_Sx_lfrac == 0) call shr_sys_abort('index_x2a_Sx_lfrac is zero') index_x2a_Faxx_taux = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faxx_taux') if (index_x2a_Faxx_taux == 0) call shr_sys_abort('index_x2a_Faxx_taux is zero') index_x2a_Faxx_tauy = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faxx_tauy') if (index_x2a_Faxx_tauy == 0) call shr_sys_abort('index_x2a_Faxx_tauy is zero') index_x2a_Faxx_lat = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faxx_lat') if (index_x2a_Faxx_lat == 0) call shr_sys_abort('index_x2a_Faxx_lat is zero') index_x2a_Faxx_sen = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faxx_sen') if (index_x2a_Faxx_sen == 0) call shr_sys_abort('index_x2a_Faxx_sen is zero') index_x2a_Faxx_lwup = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faxx_lwup') if (index_x2a_Faxx_lwup == 0) call shr_sys_abort('index_x2a_Faxx_lwup is zero') index_x2a_Faxx_evap = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faxx_evap') if (index_x2a_Faxx_evap == 0) call shr_sys_abort('index_x2a_Faxx_evap is zero') ! fields needed to calculate water isotopes to ocean evaporation processes index_x2a_So_ustar = shr_string_listGetIndexF(seq_flds_x2a_fields,'So_ustar') if (index_x2a_So_ustar == 0) call shr_sys_abort('index_x2a_So_ustar is zero') index_x2a_So_re = shr_string_listGetIndexF(seq_flds_x2a_fields,'So_re') if (index_x2a_So_re == 0) call shr_sys_abort('index_x2a_So_re is zero') index_x2a_So_ssq = shr_string_listGetIndexF(seq_flds_x2a_fields,'So_ssq') if (index_x2a_So_ssq == 0) call shr_sys_abort('index_x2a_So_ssq is zero') ! Optional fields index_x2a_Si_avsdr = shr_string_listGetIndexF(seq_flds_x2a_fields,'Si_avsdr') index_x2a_si_anidr = shr_string_listGetIndexF(seq_flds_x2a_fields,'Si_anidr') index_x2a_si_avsdf = shr_string_listGetIndexF(seq_flds_x2a_fields,'Si_avsdf') index_x2a_si_anidf = shr_string_listGetIndexF(seq_flds_x2a_fields,'Si_anidf') index_x2a_So_avsdr = shr_string_listGetIndexF(seq_flds_x2a_fields,'So_avsdr') index_x2a_So_anidr = shr_string_listGetIndexF(seq_flds_x2a_fields,'So_anidr') index_x2a_So_avsdf = shr_string_listGetIndexF(seq_flds_x2a_fields,'So_avsdf') index_x2a_So_anidf = shr_string_listGetIndexF(seq_flds_x2a_fields,'So_anidf') index_x2a_Faox_lat = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faox_lat') index_x2a_Faox_sen = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faox_sen') index_x2a_Faox_lwup = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faox_lwup') index_x2a_Faii_lat = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faii_lat') index_x2a_Faii_sen = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faii_sen') index_x2a_Faii_lwup = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faii_lwup') index_x2a_Sl_fv = shr_string_listGetIndexF(seq_flds_x2a_fields,'Sl_fv') index_x2a_Sl_ram1 = shr_string_listGetIndexF(seq_flds_x2a_fields,'Sl_ram1') index_x2a_Fall_flxdst1 = shr_string_listGetIndexF(seq_flds_x2a_fields,'Fall_flxdst1' ) index_x2a_Fall_flxdst2 = shr_string_listGetIndexF(seq_flds_x2a_fields,'Fall_flxdst2' ) index_x2a_Fall_flxdst3 = shr_string_listGetIndexF(seq_flds_x2a_fields,'Fall_flxdst3' ) index_x2a_Fall_flxdst4 = shr_string_listGetIndexF(seq_flds_x2a_fields,'Fall_flxdst4' ) index_x2a_Faxx_fco2_lnd = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faxx_fco2_lnd') index_x2a_Faxx_fco2_ocn = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faxx_fco2_ocn') index_x2a_Faxx_fdms = shr_string_listGetIndexF(seq_flds_x2a_fields,'Faxx_fdms' ) ! dry deposition velocities if ( lnd_drydep )then index_x2a_Sx_ddvel = shr_string_listGetIndexF(seq_flds_x2a_fields, trim(drydep_fields_token)) else index_x2a_Sx_ddvel = 0 end if index_x2a_Faxx_flxvoc1 = shr_string_listGetIndexF(seq_flds_x2a_fields,'Fall_flxvoc1') index_x2a_Faxx_flxvoc2 = shr_string_listGetIndexF(seq_flds_x2a_fields,'Fall_flxvoc2') index_x2a_Faxx_flxvoc3 = shr_string_listGetIndexF(seq_flds_x2a_fields,'Fall_flxvoc3') index_x2a_Faxx_flxvoc4 = shr_string_listGetIndexF(seq_flds_x2a_fields,'Fall_flxvoc4') index_x2a_Faxx_flxvoc5 = shr_string_listGetIndexF(seq_flds_x2a_fields,'Fall_flxvoc5') nflds_x2a = shr_string_listGetNum(seq_flds_x2a_fields) !------------------------------------------------------------- ! ocn -> drv !------------------------------------------------------------- index_o2x_So_t = shr_string_listGetIndexF(seq_flds_o2x_fields,'So_t') if (index_o2x_So_t == 0) call shr_sys_abort('index_o2x_So_t is zero') index_o2x_So_u = shr_string_listGetIndexF(seq_flds_o2x_fields,'So_u') if (index_o2x_So_u == 0) call shr_sys_abort('index_o2x_So_u is zero') index_o2x_So_v = shr_string_listGetIndexF(seq_flds_o2x_fields,'So_v') if (index_o2x_So_v == 0) call shr_sys_abort('index_o2x_So_v is zero') index_o2x_So_s = shr_string_listGetIndexF(seq_flds_o2x_fields,'So_s') if (index_o2x_So_s == 0) call shr_sys_abort('index_o2x_So_s is zero') index_o2x_So_dhdx = shr_string_listGetIndexF(seq_flds_o2x_fields,'So_dhdx') if (index_o2x_So_dhdx == 0) call shr_sys_abort('index_o2x_So_dhdx is zero') index_o2x_So_dhdy = shr_string_listGetIndexF(seq_flds_o2x_fields,'So_dhdy') if (index_o2x_So_dhdy == 0) call shr_sys_abort('index_o2x_So_dhdy is zero') index_o2x_Fioo_q = shr_string_listGetIndexF(seq_flds_o2x_fields,'Fioo_q') if (index_o2x_Fioo_q == 0) call shr_sys_abort('index_o2x_Fioo_q is zero') index_o2x_Faoo_fco2 = shr_string_listGetIndexF(seq_flds_o2x_fields,'Faoo_fco2') index_o2x_Faoo_fdms = shr_string_listGetIndexF(seq_flds_o2x_fields,'Faoo_fdms') nflds_o2x = shr_string_listGetNum(seq_flds_o2x_fields) !------------------------------------------------------------- ! hub atm/ocn fluxes/states !------------------------------------------------------------- index_xao_So_tref = shr_string_listGetIndexF(seq_flds_xao_fields,'So_tref') if (index_xao_So_tref == 0) call shr_sys_abort('index_xao_So_tref is zero') index_xao_So_qref = shr_string_listGetIndexF(seq_flds_xao_fields,'So_qref') if (index_xao_So_qref == 0) call shr_sys_abort('index_xao_So_qref is zero') index_xao_So_avsdr = shr_string_listGetIndexF(seq_flds_xao_fields,'So_avsdr') if (index_xao_So_avsdr == 0) call shr_sys_abort('index_xao_So_avsdr is zero') index_xao_So_anidr = shr_string_listGetIndexF(seq_flds_xao_fields,'So_anidr') if (index_xao_So_anidr == 0) call shr_sys_abort('index_xao_So_anidr is zero') index_xao_So_avsdf = shr_string_listGetIndexF(seq_flds_xao_fields,'So_avsdf') if (index_xao_So_avsdf == 0) call shr_sys_abort('index_xao_So_avsdf is zero') index_xao_So_anidf = shr_string_listGetIndexF(seq_flds_xao_fields,'So_anidf') if (index_xao_So_anidf == 0) call shr_sys_abort('index_xao_So_anidf is zero') index_xao_Sx_duu10n = shr_string_listGetIndexF(seq_flds_xao_fields,'Sx_duu10n') if (index_xao_Sx_duu10n == 0) call shr_sys_abort('index_xao_Sx_duu10n is zero') index_xao_So_ustar = shr_string_listGetIndexF(seq_flds_xao_fields,'So_ustar') if (index_xao_So_ustar == 0) call shr_sys_abort('index_xao_So_ustar is zero') index_xao_So_re = shr_string_listGetIndexF(seq_flds_xao_fields,'So_re') if (index_xao_So_re == 0) call shr_sys_abort('index_xao_So_re is zero') index_xao_So_ssq = shr_string_listGetIndexF(seq_flds_xao_fields,'So_ssq') if (index_xao_So_ssq == 0) call shr_sys_abort('index_xao_So_ssq is zero') index_xao_Faox_taux = shr_string_listGetIndexF(seq_flds_xao_fields,'Faox_taux') if (index_xao_Faox_taux == 0) call shr_sys_abort('index_xao_Faox_taux is zero') index_xao_Faox_tauy = shr_string_listGetIndexF(seq_flds_xao_fields,'Faox_tauy') if (index_xao_Faox_tauy == 0) call shr_sys_abort('index_xao_Faox_tauy is zero') index_xao_Faox_lat = shr_string_listGetIndexF(seq_flds_xao_fields,'Faox_lat') if (index_xao_Faox_lat == 0) call shr_sys_abort('index_xao_Faox_lat is zero') index_xao_Faox_sen = shr_string_listGetIndexF(seq_flds_xao_fields,'Faox_sen') if (index_xao_Faox_sen == 0) call shr_sys_abort('index_xao_Faox_sen is zero') index_xao_Faox_evap = shr_string_listGetIndexF(seq_flds_xao_fields,'Faox_evap') if (index_xao_Faox_evap == 0) call shr_sys_abort('index_xao_Faox_evap is zero') index_xao_Faox_lwup = shr_string_listGetIndexF(seq_flds_xao_fields,'Faox_lwup') if (index_xao_Faox_lwup == 0) call shr_sys_abort('index_xao_Faox_lwup is zero') nflds_xao = shr_string_listGetNum(seq_flds_xao_fields) !------------------------------------------------------------- ! drv -> ocn !------------------------------------------------------------- index_x2o_Si_ifrac = shr_string_listGetIndexF(seq_flds_x2o_fields,'Si_ifrac') if (index_x2o_Si_ifrac == 0) call shr_sys_abort('index_x2o_Si_ifrac is zero') index_x2o_Si_sicthk = shr_string_listGetIndexF(seq_flds_x2o_fields,'Si_sicthk') if (index_x2o_Si_sicthk == 0) call shr_sys_abort('index_x2o_Si_sicthk is zero') index_x2o_Sa_pslv = shr_string_listGetIndexF(seq_flds_x2o_fields,'Sa_pslv') if (index_x2o_Sa_pslv == 0) call shr_sys_abort('index_x2o_Sa_pslv is zero') index_x2o_Sx_duu10n = shr_string_listGetIndexF(seq_flds_x2o_fields,'Sx_duu10n') if (index_x2o_Sx_duu10n == 0) call shr_sys_abort('index_x2o_Sx_duu10n is zero') index_x2o_Foxx_tauy = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_tauy') if (index_x2o_Foxx_tauy == 0) call shr_sys_abort('index_x2o_Foxx_tauy is zero') index_x2o_Foxx_taux = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_taux') if (index_x2o_Foxx_taux == 0) call shr_sys_abort('index_x2o_Foxx_taux is zero') index_x2o_Foxx_swnet = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_swnet') if (index_x2o_Foxx_swnet == 0) call shr_sys_abort('index_x2o_Foxx_swnet is zero') index_x2o_Foxx_lat = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_lat') if (index_x2o_Foxx_lat == 0) call shr_sys_abort('index_x2o_Foxx_lat is zero') index_x2o_Foxx_sen = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_sen') if (index_x2o_Foxx_sen == 0) call shr_sys_abort('index_x2o_Foxx_sen is zero') index_x2o_Foxx_lwdn = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_lwdn') if (index_x2o_Foxx_lwdn == 0) call shr_sys_abort('index_x2o_Foxx_lwdn is zero') index_x2o_Foxx_lwup = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_lwup') if (index_x2o_Foxx_lwup == 0) call shr_sys_abort('index_x2o_Foxx_lwup is zero') index_x2o_Foxx_melth = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_melth') if (index_x2o_Foxx_melth == 0) call shr_sys_abort('index_x2o_Foxx_melth is zero') index_x2o_Foxx_salt = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_salt') if (index_x2o_Foxx_salt == 0) call shr_sys_abort('index_x2o_Foxx_salt is zero') index_x2o_Foxx_prec = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_prec') if (index_x2o_Foxx_prec == 0) call shr_sys_abort('index_x2o_Foxx_prec is zero') index_x2o_Foxx_snow = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_snow') if (index_x2o_Foxx_snow == 0) call shr_sys_abort('index_x2o_Foxx_snow is zero') index_x2o_Foxx_rain = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_rain') if (index_x2o_Foxx_rain == 0) call shr_sys_abort('index_x2o_Foxx_rain is zero') index_x2o_Foxx_evap = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_evap') if (index_x2o_Foxx_evap == 0) call shr_sys_abort('index_x2o_Foxx_evap is zero') index_x2o_Foxx_meltw = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_meltw') if (index_x2o_Foxx_meltw == 0) call shr_sys_abort('index_x2o_Foxx_meltw is zero') index_x2o_Forr_roff = shr_string_listGetIndexF(seq_flds_x2o_fields,'Forr_roff') if (index_x2o_Forr_roff == 0) call shr_sys_abort('index_x2o_Forr_roff is zero') index_x2o_Forr_ioff = shr_string_listGetIndexF(seq_flds_x2o_fields,'Forr_ioff') if (index_x2o_Forr_ioff == 0) call shr_sys_abort('index_x2o_Forr_ioff is zero') index_x2o_Foxx_bcphidry = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_bcphidry') if (index_x2o_Foxx_bcphidry == 0) call shr_sys_abort('index_x2o_Foxx_bcphidry is zero') index_x2o_Foxx_bcphodry = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_bcphodry') if (index_x2o_Foxx_bcphodry == 0) call shr_sys_abort('index_x2o_Foxx_bcphodry is zero') index_x2o_Foxx_bcphiwet = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_bcphiwet') if (index_x2o_Foxx_bcphiwet== 0) call shr_sys_abort('index_x2o_Foxx_bcphiwet is zero') index_x2o_Foxx_ocphidry = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_ocphidry') if (index_x2o_Foxx_ocphidry == 0) call shr_sys_abort('index_x2o_Foxx_ocphidry is zero') index_x2o_Foxx_ocphodry = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_ocphodry') if (index_x2o_Foxx_ocphodry == 0) call shr_sys_abort('index_x2o_Foxx_ocphodry is zero') index_x2o_Foxx_ocphiwet = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_ocphiwet') if (index_x2o_Foxx_ocphiwet == 0) call shr_sys_abort('index_x2o_Foxx_ocphiwet is zero') index_x2o_Foxx_dstdry1 = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_dstdry1') if (index_x2o_Foxx_dstdry1 == 0) call shr_sys_abort('index_x2o_Foxx_dstdry1 is zero') index_x2o_Foxx_dstdry2 = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_dstdry2') if (index_x2o_Foxx_dstdry2 == 0) call shr_sys_abort('index_x2o_Foxx_dstdry2 is zero') index_x2o_Foxx_dstdry3 = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_dstdry3') if (index_x2o_Foxx_dstdry3 == 0) call shr_sys_abort('index_x2o_Foxx_dstdry3 is zero') index_x2o_Foxx_dstdry4 = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_dstdry4') if (index_x2o_Foxx_dstdry4 == 0) call shr_sys_abort('index_x2o_Foxx_dstdry4 is zero') index_x2o_Foxx_dstwet1 = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_dstwet1') if (index_x2o_Foxx_dstwet1 == 0) call shr_sys_abort('index_x2o_Foxx_dstwet1 is zero') index_x2o_Foxx_dstwet2 = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_dstwet2') if (index_x2o_Foxx_dstwet2 == 0) call shr_sys_abort('index_x2o_Foxx_dstwet2 is zero') index_x2o_Foxx_dstwet3 = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_dstwet3') if (index_x2o_Foxx_dstwet3 == 0) call shr_sys_abort('index_x2o_Foxx_dstwet3 is zero') index_x2o_Foxx_dstwet4 = shr_string_listGetIndexF(seq_flds_x2o_fields,'Foxx_dstwet4') if (index_x2o_Foxx_dstwet4 == 0) call shr_sys_abort('index_x2o_Foxx_dstwet4 is zero') ! Optional fields index_x2o_Sa_co2prog = shr_string_listGetIndexF(seq_flds_x2o_fields,'Sa_co2prog') index_x2o_Sa_co2diag = shr_string_listGetIndexF(seq_flds_x2o_fields,'Sa_co2diag') nflds_x2o = shr_string_listGetNum(seq_flds_x2o_fields) !------------------------------------------------------------- ! ice -> drv !------------------------------------------------------------- index_i2x_Si_t = shr_string_listGetIndexF(seq_flds_i2x_fields,'Si_t') if (index_i2x_Si_t == 0) call shr_sys_abort('index_i2x_Si_t is zero') index_i2x_Si_tref = shr_string_listGetIndexF(seq_flds_i2x_fields,'Si_tref') if (index_i2x_Si_tref == 0) call shr_sys_abort('index_i2x_Si_tref is zero') index_i2x_Si_qref = shr_string_listGetIndexF(seq_flds_i2x_fields,'Si_qref') if (index_i2x_Si_qref == 0) call shr_sys_abort('index_i2x_Si_qref is zero') index_i2x_Si_ifrac = shr_string_listGetIndexF(seq_flds_i2x_fields,'Si_ifrac') if (index_i2x_Si_ifrac == 0) call shr_sys_abort('index_i2x_Si_ifrac is zero') index_i2x_Si_avsdr = shr_string_listGetIndexF(seq_flds_i2x_fields,'Si_avsdr') if (index_i2x_Si_avsdr == 0) call shr_sys_abort('index_i2x_Si_avsdr is zero') index_i2x_Si_anidr = shr_string_listGetIndexF(seq_flds_i2x_fields,'Si_anidr') if (index_i2x_Si_anidr == 0) call shr_sys_abort('index_i2x_Si_anidr is zero') index_i2x_Si_avsdf = shr_string_listGetIndexF(seq_flds_i2x_fields,'Si_avsdf') if (index_i2x_Si_avsdf == 0) call shr_sys_abort('index_i2x_Si_avsdf is zero') index_i2x_Si_anidf = shr_string_listGetIndexF(seq_flds_i2x_fields,'Si_anidf') if (index_i2x_Si_anidf == 0) call shr_sys_abort('index_i2x_Si_anidf is zero') index_i2x_Si_sicthk = shr_string_listGetIndexF(seq_flds_i2x_fields,'Si_sicthk') if (index_i2x_Si_sicthk == 0) call shr_sys_abort('index_i2x_Si_sicthk is zero') index_i2x_Si_snowh = shr_string_listGetIndexF(seq_flds_i2x_fields,'Si_snowh') if (index_i2x_Si_snowh == 0) call shr_sys_abort('index_i2x_Si_snowh is zero') index_i2x_Faii_taux = shr_string_listGetIndexF(seq_flds_i2x_fields,'Faii_taux') if (index_i2x_Faii_taux == 0) call shr_sys_abort('index_i2x_Faii_taux is zero') index_i2x_Faii_tauy = shr_string_listGetIndexF(seq_flds_i2x_fields,'Faii_tauy') if (index_i2x_Faii_tauy == 0) call shr_sys_abort('index_i2x_Faii_tauy is zero') index_i2x_Faii_lat = shr_string_listGetIndexF(seq_flds_i2x_fields,'Faii_lat') if (index_i2x_Faii_lat == 0) call shr_sys_abort('index_i2x_Faii_lat is zero') index_i2x_Faii_sen = shr_string_listGetIndexF(seq_flds_i2x_fields,'Faii_sen') if (index_i2x_Faii_sen == 0) call shr_sys_abort('index_i2x_Faii_sen is zero') index_i2x_Faii_lwup = shr_string_listGetIndexF(seq_flds_i2x_fields,'Faii_lwup') if (index_i2x_Faii_lwup == 0) call shr_sys_abort('index_i2x_Faii_lwup is zero') index_i2x_Faii_evap = shr_string_listGetIndexF(seq_flds_i2x_fields,'Faii_evap') if (index_i2x_Faii_evap == 0) call shr_sys_abort('index_i2x_Faii_evap is zero') index_i2x_Faii_swnet = shr_string_listGetIndexF(seq_flds_i2x_fields,'Faii_swnet') if (index_i2x_Faii_swnet == 0) call shr_sys_abort('index_i2x_Faii_swnet is zero') index_i2x_Fioi_swpen = shr_string_listGetIndexF(seq_flds_i2x_fields,'Fioi_swpen') if (index_i2x_Fioi_swpen == 0) call shr_sys_abort('index_i2x_Fioi_swpen is zero') index_i2x_Fioi_melth = shr_string_listGetIndexF(seq_flds_i2x_fields,'Fioi_melth') if (index_i2x_Fioi_melth == 0) call shr_sys_abort('index_i2x_Fioi_melth is zero') index_i2x_Fioi_meltw = shr_string_listGetIndexF(seq_flds_i2x_fields,'Fioi_meltw') if (index_i2x_Fioi_meltw == 0) call shr_sys_abort('index_i2x_Fioi_meltw is zero') index_i2x_Fioi_salt = shr_string_listGetIndexF(seq_flds_i2x_fields,'Fioi_salt') if (index_i2x_Fioi_salt == 0) call shr_sys_abort('index_i2x_Fioi_salt is zero') index_i2x_Fioi_taux = shr_string_listGetIndexF(seq_flds_i2x_fields,'Fioi_taux') if (index_i2x_Fioi_taux == 0) call shr_sys_abort('index_i2x_Fioi_taux is zero') index_i2x_Fioi_tauy = shr_string_listGetIndexF(seq_flds_i2x_fields,'Fioi_tauy') if (index_i2x_Fioi_tauy == 0) call shr_sys_abort('index_i2x_Fioi_tauy is zero') nflds_i2x = shr_string_listGetNum(seq_flds_i2x_fields) !------------------------------------------------------------- ! drv -> ice !------------------------------------------------------------- index_x2i_So_t = shr_string_listGetIndexF(seq_flds_x2i_fields,'So_t') if (index_x2i_So_t == 0) call shr_sys_abort('index_x2i_So_t is zero') index_x2i_So_s = shr_string_listGetIndexF(seq_flds_x2i_fields,'So_s') if (index_x2i_So_s == 0) call shr_sys_abort('index_x2i_So_s is zero') index_x2i_So_u = shr_string_listGetIndexF(seq_flds_x2i_fields,'So_u') if (index_x2i_So_u == 0) call shr_sys_abort('index_x2i_So_u is zero') index_x2i_So_v = shr_string_listGetIndexF(seq_flds_x2i_fields,'So_v') if (index_x2i_So_v == 0) call shr_sys_abort('index_x2i_So_v is zero') index_x2i_Sa_z = shr_string_listGetIndexF(seq_flds_x2i_fields,'Sa_z') if (index_x2i_Sa_z == 0) call shr_sys_abort('index_x2i_Sa_z is zero') index_x2i_Sa_u = shr_string_listGetIndexF(seq_flds_x2i_fields,'Sa_u') if (index_x2i_Sa_u == 0) call shr_sys_abort('index_x2i_Sa_u is zero') index_x2i_Sa_v = shr_string_listGetIndexF(seq_flds_x2i_fields,'Sa_v') if (index_x2i_Sa_v == 0) call shr_sys_abort('index_x2i_Sa_v is zero') index_x2i_Sa_tbot = shr_string_listGetIndexF(seq_flds_x2i_fields,'Sa_tbot') if (index_x2i_Sa_tbot == 0) call shr_sys_abort('index_x2i_Sa_tbot is zero') index_x2i_Sa_ptem = shr_string_listGetIndexF(seq_flds_x2i_fields,'Sa_ptem') if (index_x2i_Sa_ptem == 0) call shr_sys_abort('index_x2i_Sa_ptem is zero') index_x2i_Sa_pbot = shr_string_listGetIndexF(seq_flds_x2i_fields,'Sa_pbot') if (index_x2i_Sa_pbot == 0) call shr_sys_abort('index_x2i_Sa_pbot is zero') index_x2i_Sa_shum = shr_string_listGetIndexF(seq_flds_x2i_fields,'Sa_shum') if (index_x2i_Sa_shum == 0) call shr_sys_abort('index_x2i_Sa_shum is zero') index_x2i_Sa_dens = shr_string_listGetIndexF(seq_flds_x2i_fields,'Sa_dens') if (index_x2i_Sa_dens == 0) call shr_sys_abort('index_x2i_Sa_dens is zero') index_x2i_So_dhdx = shr_string_listGetIndexF(seq_flds_x2i_fields,'So_dhdx') if (index_x2i_So_dhdx == 0) call shr_sys_abort('index_x2i_So_dhdx is zero') index_x2i_So_dhdy = shr_string_listGetIndexF(seq_flds_x2i_fields,'So_dhdy') if (index_x2i_So_dhdy == 0) call shr_sys_abort('index_x2i_So_dhdy is zero') index_x2i_Faxa_lwdn = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_lwdn') if (index_x2i_Faxa_lwdn == 0) call shr_sys_abort('index_x2i_Faxa_lwdn is zero') index_x2i_Faxa_rain = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_rain') if (index_x2i_Faxa_rain == 0) call shr_sys_abort('index_x2i_Faxa_rain is zero') index_x2i_Faxa_snow = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_snow') if (index_x2i_Faxa_snow == 0) call shr_sys_abort('index_x2i_Faxa_snow is zero') index_x2i_Faxa_swndr = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_swndr') if (index_x2i_Faxa_swndr == 0) call shr_sys_abort('index_x2i_Faxa_swndr is zero') index_x2i_Faxa_swvdr = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_swvdr') if (index_x2i_Faxa_swvdr == 0) call shr_sys_abort('index_x2i_Faxa_swvdr is zero') index_x2i_Faxa_swndf = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_swndf') if (index_x2i_Faxa_swndf == 0) call shr_sys_abort('index_x2i_Faxa_swndf is zero') index_x2i_Faxa_swvdf = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_swvdf') if (index_x2i_Faxa_swvdf == 0) call shr_sys_abort('index_x2i_Faxa_swvdf is zero') index_x2i_Fioo_q = shr_string_listGetIndexF(seq_flds_x2i_fields,'Fioo_q') if (index_x2i_Fioo_q == 0) call shr_sys_abort('index_x2i_Fioo_q is zero') index_x2i_Faxa_bcphidry = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_bcphidry') if (index_x2i_Faxa_bcphidry == 0) call shr_sys_abort('index_x2i_Faxa_bcphidry is zero') index_x2i_Faxa_bcphodry = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_bcphodry') if (index_x2i_Faxa_bcphodry == 0) call shr_sys_abort('index_x2i_Faxa_bcphodry is zero') index_x2i_Faxa_bcphiwet = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_bcphiwet') if (index_x2i_Faxa_bcphiwet== 0) call shr_sys_abort('index_x2i_Faxa_bcphiwet is zero') index_x2i_Faxa_ocphidry = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_ocphidry') if (index_x2i_Faxa_ocphidry == 0) call shr_sys_abort('index_x2i_Faxa_ocphidry is zero') index_x2i_Faxa_ocphodry = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_ocphodry') if (index_x2i_Faxa_ocphodry == 0) call shr_sys_abort('index_x2i_Faxa_ocphodry is zero') index_x2i_Faxa_ocphiwet = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_ocphiwet') if (index_x2i_Faxa_ocphiwet == 0) call shr_sys_abort('index_x2i_Faxa_ocphiwet is zero') index_x2i_Faxa_dstdry1 = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_dstdry1') if (index_x2i_Faxa_dstdry1 == 0) call shr_sys_abort('index_x2i_Faxa_dstdry1 is zero') index_x2i_Faxa_dstdry2 = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_dstdry2') if (index_x2i_Faxa_dstdry2 == 0) call shr_sys_abort('index_x2i_Faxa_dstdry2 is zero') index_x2i_Faxa_dstdry3 = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_dstdry3') if (index_x2i_Faxa_dstdry3 == 0) call shr_sys_abort('index_x2i_Faxa_dstdry3 is zero') index_x2i_Faxa_dstdry4 = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_dstdry4') if (index_x2i_Faxa_dstdry4 == 0) call shr_sys_abort('index_x2i_Faxa_dstdry4 is zero') index_x2i_Faxa_dstwet1 = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_dstwet1') if (index_x2i_Faxa_dstwet1 == 0) call shr_sys_abort('index_x2i_Faxa_dstwet1 is zero') index_x2i_Faxa_dstwet2 = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_dstwet2') if (index_x2i_Faxa_dstwet2 == 0) call shr_sys_abort('index_x2i_Faxa_dstwet2 is zero') index_x2i_Faxa_dstwet3 = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_dstwet3') if (index_x2i_Faxa_dstwet3 == 0) call shr_sys_abort('index_x2i_Faxa_dstwet3 is zero') index_x2i_Faxa_dstwet4 = shr_string_listGetIndexF(seq_flds_x2i_fields,'Faxa_dstwet4') if (index_x2i_Faxa_dstwet4 == 0) call shr_sys_abort('index_x2i_Faxa_dstwet4 is zero') nflds_x2i = shr_string_listGetNum(seq_flds_x2i_fields) !------------------------------------------------------------- ! lnd -> drv !------------------------------------------------------------- index_l2x_Sl_landfrac = shr_string_listGetIndexF(seq_flds_l2x_fields,'Sl_landfrac') if (index_l2x_Sl_landfrac == 0) call shr_sys_abort('index_l2x_Sl_landfrac is zero') index_l2x_Sl_t = shr_string_listGetIndexF(seq_flds_l2x_fields,'Sl_t') if (index_l2x_Sl_t == 0) call shr_sys_abort('index_l2x_Sl_t is zero') index_l2x_Sl_snowh = shr_string_listGetIndexF(seq_flds_l2x_fields,'Sl_snowh') if (index_l2x_Sl_snowh == 0) call shr_sys_abort('index_l2x_Sl_snowh is zero') index_l2x_Sl_avsdr = shr_string_listGetIndexF(seq_flds_l2x_fields,'Sl_avsdr') if (index_l2x_Sl_avsdr == 0) call shr_sys_abort('index_l2x_Sl_avsdr is zero') index_l2x_Sl_anidr = shr_string_listGetIndexF(seq_flds_l2x_fields,'Sl_anidr') if (index_l2x_Sl_anidr == 0) call shr_sys_abort('index_l2x_Sl_anidr is zero') index_l2x_Sl_avsdf = shr_string_listGetIndexF(seq_flds_l2x_fields,'Sl_avsdf') if (index_l2x_Sl_avsdf == 0) call shr_sys_abort('index_l2x_Sl_avsdf is zero') index_l2x_Sl_anidf = shr_string_listGetIndexF(seq_flds_l2x_fields,'Sl_anidf') if (index_l2x_Sl_anidf == 0) call shr_sys_abort('index_l2x_Sl_anidf is zero') index_l2x_Sl_tref = shr_string_listGetIndexF(seq_flds_l2x_fields,'Sl_tref') if (index_l2x_Sl_tref == 0) call shr_sys_abort('index_l2x_Sl_tref is zero') index_l2x_Sl_qref = shr_string_listGetIndexF(seq_flds_l2x_fields,'Sl_qref') if (index_l2x_Sl_qref == 0) call shr_sys_abort('index_l2x_Sl_qref is zero') index_l2x_Fall_taux = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_taux') if (index_l2x_Fall_taux == 0) call shr_sys_abort('index_l2x_Fall_taux is zero') index_l2x_Fall_tauy = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_tauy') if (index_l2x_Fall_tauy == 0) call shr_sys_abort('index_l2x_Fall_tauy is zero') index_l2x_Fall_lat = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_lat') if (index_l2x_Fall_lat == 0) call shr_sys_abort('index_l2x_Fall_lat is zero') index_l2x_Fall_sen = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_sen') if (index_l2x_Fall_sen == 0) call shr_sys_abort('index_l2x_Fall_sen is zero') index_l2x_Fall_lwup = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_lwup') if (index_l2x_Fall_lwup == 0) call shr_sys_abort('index_l2x_Fall_lwup is zero') index_l2x_Fall_evap = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_evap') if (index_l2x_Fall_evap == 0) call shr_sys_abort('index_l2x_Fall_evap is zero') index_l2x_Fall_swnet = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_swnet') if (index_l2x_Fall_swnet == 0) call shr_sys_abort('index_l2x_Fall_swnet is zero') index_l2x_Sl_ram1 = shr_string_listGetIndexF(seq_flds_l2x_fields,'Sl_ram1') index_l2x_Sl_fv = shr_string_listGetIndexF(seq_flds_l2x_fields,'Sl_fv') index_l2x_Fall_nee = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_nee') index_l2x_Fall_flxdst1 = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_flxdst1') index_l2x_Fall_flxdst2 = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_flxdst2') index_l2x_Fall_flxdst3 = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_flxdst3') index_l2x_Fall_flxdst4 = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_flxdst4') ! dry deposition velocities if ( lnd_drydep )then index_l2x_Sl_ddvel = shr_string_listGetIndexF(seq_flds_l2x_fields, trim(drydep_fields_token)) else index_l2x_Sl_ddvel = 0 end if index_l2x_Fall_flxvoc1 = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_flxvoc1') index_l2x_Fall_flxvoc2 = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_flxvoc2') index_l2x_Fall_flxvoc3 = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_flxvoc3') index_l2x_Fall_flxvoc4 = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_flxvoc4') index_l2x_Fall_flxvoc5 = shr_string_listGetIndexF(seq_flds_l2x_fields,'Fall_flxvoc5') nflds_l2x = shr_string_listGetNum(seq_flds_l2x_fields) !------------------------------------------------------------- ! runoff !------------------------------------------------------------- index_r2x_Forr_roff = shr_string_listGetIndexF(seq_flds_r2x_fields,'Forr_roff') if (index_r2x_Forr_roff == 0) call shr_sys_abort('index_r2x_Forr_roff is zero') index_r2x_Forr_ioff = shr_string_listGetIndexF(seq_flds_r2x_fields,'Forr_ioff') if (index_r2x_Forr_ioff == 0) call shr_sys_abort('index_r2x_Forr_ioff is zero') nflds_r2x = shr_string_listGetNum(seq_flds_r2x_fields) !------------------------------------------------------------- ! drv -> lnd !------------------------------------------------------------- index_x2l_Sa_z = shr_string_listGetIndexF(seq_flds_x2l_fields,'Sa_z') if (index_x2l_Sa_z == 0) call shr_sys_abort('index_x2l_Sa_z is zero') index_x2l_Sa_u = shr_string_listGetIndexF(seq_flds_x2l_fields,'Sa_u') if (index_x2l_Sa_u == 0) call shr_sys_abort('index_x2l_Sa_u is zero') index_x2l_Sa_v = shr_string_listGetIndexF(seq_flds_x2l_fields,'Sa_v') if (index_x2l_Sa_v == 0) call shr_sys_abort('index_x2l_Sa_v is zero') index_x2l_Sa_ptem = shr_string_listGetIndexF(seq_flds_x2l_fields,'Sa_ptem') if (index_x2l_Sa_ptem == 0) call shr_sys_abort('index_x2l_Sa_ptem is zero') index_x2l_Sa_pbot = shr_string_listGetIndexF(seq_flds_x2l_fields,'Sa_pbot') if (index_x2l_Sa_pbot == 0) call shr_sys_abort('index_x2l_Sa_pbot is zero') index_x2l_Sa_tbot = shr_string_listGetIndexF(seq_flds_x2l_fields,'Sa_tbot') if (index_x2l_Sa_tbot == 0) call shr_sys_abort('index_x2l_Sa_tbot is zero') index_x2l_Sa_shum = shr_string_listGetIndexF(seq_flds_x2l_fields,'Sa_shum') if (index_x2l_Sa_shum == 0) call shr_sys_abort('index_x2l_Sa_shum is zero') index_x2l_Faxa_lwdn = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_lwdn') if (index_x2l_Faxa_lwdn == 0) call shr_sys_abort('index_x2l_Faxa_lwdn is zero') index_x2l_Faxa_rainc = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_rainc') if (index_x2l_Faxa_rainc == 0) call shr_sys_abort('index_x2l_Faxa_rainc is zero') index_x2l_Faxa_rainl = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_rainl') if (index_x2l_Faxa_rainl == 0) call shr_sys_abort('index_x2l_Faxa_rainl is zero') index_x2l_Faxa_snowc = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_snowc') if (index_x2l_Faxa_snowc == 0) call shr_sys_abort('index_x2l_Faxa_snowc is zero') index_x2l_Faxa_snowl = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_snowl') if (index_x2l_Faxa_snowl == 0) call shr_sys_abort('index_x2l_Faxa_snowl is zero') index_x2l_Faxa_swndr = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_swndr') if (index_x2l_Faxa_swndr == 0) call shr_sys_abort('index_x2l_Faxa_swndr is zero') index_x2l_Faxa_swvdr = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_swvdr') if (index_x2l_Faxa_swvdr == 0) call shr_sys_abort('index_x2l_Faxa_swvdr is zero') index_x2l_Faxa_swndf = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_swndf') if (index_x2l_Faxa_swndf == 0) call shr_sys_abort('index_x2l_Faxa_swndf is zero') index_x2l_Faxa_swvdf = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_swvdf') if (index_x2l_Faxa_swvdf == 0) call shr_sys_abort('index_x2l_Faxa_swvdf is zero') index_x2l_Faxa_bcphidry = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_bcphidry') if (index_x2l_Faxa_bcphidry == 0) call shr_sys_abort('index_x2l_Faxa_bcphidry is zero') index_x2l_Faxa_bcphodry = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_bcphodry') if (index_x2l_Faxa_bcphodry == 0) call shr_sys_abort('index_x2l_Faxa_bcphodry is zero') index_x2l_Faxa_bcphiwet = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_bcphiwet') if (index_x2l_Faxa_bcphiwet== 0) call shr_sys_abort('index_x2l_Faxa_bcphiwet is zero') index_x2l_Faxa_ocphidry = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_ocphidry') if (index_x2l_Faxa_ocphidry == 0) call shr_sys_abort('index_x2l_Faxa_ocphidry is zero') index_x2l_Faxa_ocphodry = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_ocphodry') if (index_x2l_Faxa_ocphodry == 0) call shr_sys_abort('index_x2l_Faxa_ocphodry is zero') index_x2l_Faxa_ocphiwet = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_ocphiwet') if (index_x2l_Faxa_ocphiwet == 0) call shr_sys_abort('index_x2l_Faxa_ocphiwet is zero') index_x2l_Faxa_dstdry1 = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_dstdry1') if (index_x2l_Faxa_dstdry1 == 0) call shr_sys_abort('index_x2l_Faxa_dstdry1 is zero') index_x2l_Faxa_dstdry2 = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_dstdry2') if (index_x2l_Faxa_dstdry2 == 0) call shr_sys_abort('index_x2l_Faxa_dstdry2 is zero') index_x2l_Faxa_dstdry3 = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_dstdry3') if (index_x2l_Faxa_dstdry3 == 0) call shr_sys_abort('index_x2l_Faxa_dstdry3 is zero') index_x2l_Faxa_dstdry4 = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_dstdry4') if (index_x2l_Faxa_dstdry4 == 0) call shr_sys_abort('index_x2l_Faxa_dstdry4 is zero') index_x2l_Faxa_dstwet1 = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_dstwet1') if (index_x2l_Faxa_dstwet1 == 0) call shr_sys_abort('index_x2l_Faxa_dstwet1 is zero') index_x2l_Faxa_dstwet2 = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_dstwet2') if (index_x2l_Faxa_dstwet2 == 0) call shr_sys_abort('index_x2l_Faxa_dstwet2 is zero') index_x2l_Faxa_dstwet3 = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_dstwet3') if (index_x2l_Faxa_dstwet3 == 0) call shr_sys_abort('index_x2l_Faxa_dstwet3 is zero') index_x2l_Faxa_dstwet4 = shr_string_listGetIndexF(seq_flds_x2l_fields,'Faxa_dstwet4') if (index_x2l_Faxa_dstwet4 == 0) call shr_sys_abort('index_x2l_Faxa_dstwet4 is zero') ! Optional fields index_x2l_Sa_co2prog = shr_string_listGetIndexF(seq_flds_x2l_fields,'Sa_co2prog') index_x2l_Sa_co2diag = shr_string_listGetIndexF(seq_flds_x2l_fields,'Sa_co2diag') nflds_x2l = shr_string_listGetNum(seq_flds_x2l_fields) !------------------------------------------------------------- ! glc -> drv !------------------------------------------------------------- index_g2x_Sg_frac01 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_frac01') index_g2x_Sg_topo01 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_topo01') index_g2x_Fsgg_rofi01 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofi01') index_g2x_Fsgg_rofl01 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofl01') index_g2x_Fsgg_hflx01 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_hflx01') index_g2x_Sg_frac02 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_frac02') index_g2x_Sg_topo02 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_topo02') index_g2x_Fsgg_rofi02 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofi02') index_g2x_Fsgg_rofl02 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofl02') index_g2x_Fsgg_hflx02 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_hflx02') index_g2x_Sg_frac03 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_frac03') index_g2x_Sg_topo03 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_topo03') index_g2x_Fsgg_rofi03 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofi03') index_g2x_Fsgg_rofl03 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofl03') index_g2x_Fsgg_hflx03 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_hflx03') index_g2x_Sg_frac04 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_frac04') index_g2x_Sg_topo04 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_topo04') index_g2x_Fsgg_rofi04 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofi04') index_g2x_Fsgg_rofl04 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofl04') index_g2x_Fsgg_hflx04 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_hflx04') index_g2x_Sg_frac05 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_frac05') index_g2x_Sg_topo05 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_topo05') index_g2x_Fsgg_rofi05 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofi05') index_g2x_Fsgg_rofl05 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofl05') index_g2x_Fsgg_hflx05 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_hflx05') index_g2x_Sg_frac06 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_frac06') index_g2x_Sg_topo06 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_topo06') index_g2x_Fsgg_rofi06 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofi06') index_g2x_Fsgg_rofl06 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofl06') index_g2x_Fsgg_hflx06 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_hflx06') index_g2x_Sg_frac07 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_frac07') index_g2x_Sg_topo07 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_topo07') index_g2x_Fsgg_rofi07 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofi07') index_g2x_Fsgg_rofl07 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofl07') index_g2x_Fsgg_hflx07 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_hflx07') index_g2x_Sg_frac08 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_frac08') index_g2x_Sg_topo08 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_topo08') index_g2x_Fsgg_rofi08 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofi08') index_g2x_Fsgg_rofl08 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofl08') index_g2x_Fsgg_hflx08 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_hflx08') index_g2x_Sg_frac09 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_frac09') index_g2x_Sg_topo09 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_topo09') index_g2x_Fsgg_rofi09 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofi09') index_g2x_Fsgg_rofl09 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofl09') index_g2x_Fsgg_hflx09 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_hflx09') index_g2x_Sg_frac10 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_frac10') index_g2x_Sg_topo10 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Sg_topo10') index_g2x_Fsgg_rofi10 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofi10') index_g2x_Fsgg_rofl10 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_rofl10') index_g2x_Fsgg_hflx10 = shr_string_listGetIndexF(seq_flds_g2x_fields,'Fsgg_hflx10') nflds_g2x = shr_string_listGetNum(seq_flds_g2x_fields) !------------------------------------------------------------- ! drv -> glc !------------------------------------------------------------- index_x2g_Ss_tsrf01 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_tsrf01') index_x2g_Ss_topo01 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_topo01') index_x2g_Fgss_qice01 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Fgss_qice01') index_x2g_Ss_tsrf02 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_tsrf02') index_x2g_Ss_topo02 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_topo02') index_x2g_Fgss_qice02 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Fgss_qice02') index_x2g_Ss_tsrf03 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_tsrf03') index_x2g_Ss_topo03 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_topo03') index_x2g_Fgss_qice03 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Fgss_qice03') index_x2g_Ss_tsrf04 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_tsrf04') index_x2g_Ss_topo04 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_topo04') index_x2g_Fgss_qice04 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Fgss_qice04') index_x2g_Ss_tsrf05 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_tsrf05') index_x2g_Ss_topo05 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_topo05') index_x2g_Fgss_qice05 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Fgss_qice05') index_x2g_Ss_tsrf06 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_tsrf06') index_x2g_Ss_topo06 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_topo06') index_x2g_Fgss_qice06 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Fgss_qice06') index_x2g_Ss_tsrf07 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_tsrf07') index_x2g_Ss_topo07 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_topo07') index_x2g_Fgss_qice07 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Fgss_qice07') index_x2g_Ss_tsrf08 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_tsrf08') index_x2g_Ss_topo08 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_topo08') index_x2g_Fgss_qice08 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Fgss_qice08') index_x2g_Ss_tsrf09 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_tsrf09') index_x2g_Ss_topo09 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_topo09') index_x2g_Fgss_qice09 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Fgss_qice09') index_x2g_Ss_tsrf10 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_tsrf10') index_x2g_Ss_topo10 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Ss_topo10') index_x2g_Fgss_qice10 = shr_string_listGetIndexF(seq_flds_x2g_fields,'Fgss_qice10') nflds_x2g = shr_string_listGetNum(seq_flds_x2g_fields) !------------------------------------------------------------- ! drv -> sno !------------------------------------------------------------- index_x2s_Sg_frac01 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_frac01') index_x2s_Sg_topo01 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_topo01') index_x2s_Fsgg_rofi01 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofi01') index_x2s_Fsgg_rofl01 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofl01') index_x2s_Fsgg_hflx01 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_hflx01') index_x2s_Sg_frac02 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_frac02') index_x2s_Sg_topo02 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_topo02') index_x2s_Fsgg_rofi02 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofi02') index_x2s_Fsgg_rofl02 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofl02') index_x2s_Fsgg_hflx02 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_hflx02') index_x2s_Sg_frac03 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_frac03') index_x2s_Sg_topo03 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_topo03') index_x2s_Fsgg_rofi03 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofi03') index_x2s_Fsgg_rofl03 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofl03') index_x2s_Fsgg_hflx03 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_hflx03') index_x2s_Sg_frac04 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_frac04') index_x2s_Sg_topo04 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_topo04') index_x2s_Fsgg_rofi04 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofi04') index_x2s_Fsgg_rofl04 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofl04') index_x2s_Fsgg_hflx04 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_hflx04') index_x2s_Sg_frac05 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_frac05') index_x2s_Sg_topo05 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_topo05') index_x2s_Fsgg_rofi05 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofi05') index_x2s_Fsgg_rofl05 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofl05') index_x2s_Fsgg_hflx05 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_hflx05') index_x2s_Sg_frac06 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_frac06') index_x2s_Sg_topo06 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_topo06') index_x2s_Fsgg_rofi06 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofi06') index_x2s_Fsgg_rofl06 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofl06') index_x2s_Fsgg_hflx06 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_hflx06') index_x2s_Sg_frac07 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_frac07') index_x2s_Sg_topo07 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_topo07') index_x2s_Fsgg_rofi07 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofi07') index_x2s_Fsgg_rofl07 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofl07') index_x2s_Fsgg_hflx07 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_hflx07') index_x2s_Sg_frac08 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_frac08') index_x2s_Sg_topo08 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_topo08') index_x2s_Fsgg_rofi08 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofi08') index_x2s_Fsgg_rofl08 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofl08') index_x2s_Fsgg_hflx08 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_hflx08') index_x2s_Sg_frac09 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_frac09') index_x2s_Sg_topo09 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_topo09') index_x2s_Fsgg_rofi09 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofi09') index_x2s_Fsgg_rofl09 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofl09') index_x2s_Fsgg_hflx09 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_hflx09') index_x2s_Sg_frac10 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_frac10') index_x2s_Sg_topo10 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Sg_topo10') index_x2s_Fsgg_rofi10 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofi10') index_x2s_Fsgg_rofl10 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_rofl10') index_x2s_Fsgg_hflx10 = shr_string_listGetIndexF(seq_flds_x2s_fields,'Fsgg_hflx10') nflds_x2s = shr_string_listGetNum(seq_flds_x2s_fields) !------------------------------------------------------------- ! sno -> drv !------------------------------------------------------------- index_s2x_Ss_tsrf01 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_tsrf01') index_s2x_Ss_topo01 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_topo01') index_s2x_Fgss_qice01 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Fgss_qice01') index_s2x_Ss_tsrf02 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_tsrf02') index_s2x_Ss_topo02 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_topo02') index_s2x_Fgss_qice02 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Fgss_qice02') index_s2x_Ss_tsrf03 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_tsrf03') index_s2x_Ss_topo03 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_topo03') index_s2x_Fgss_qice03 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Fgss_qice03') index_s2x_Ss_tsrf04 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_tsrf04') index_s2x_Ss_topo04 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_topo04') index_s2x_Fgss_qice04 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Fgss_qice04') index_s2x_Ss_tsrf05 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_tsrf05') index_s2x_Ss_topo05 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_topo05') index_s2x_Fgss_qice05 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Fgss_qice05') index_s2x_Ss_tsrf06 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_tsrf06') index_s2x_Ss_topo06 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_topo06') index_s2x_Fgss_qice06 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Fgss_qice06') index_s2x_Ss_tsrf07 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_tsrf07') index_s2x_Ss_topo07 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_topo07') index_s2x_Fgss_qice07 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Fgss_qice07') index_s2x_Ss_tsrf08 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_tsrf08') index_s2x_Ss_topo08 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_topo08') index_s2x_Fgss_qice08 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Fgss_qice08') index_s2x_Ss_tsrf09 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_tsrf09') index_s2x_Ss_topo09 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_topo09') index_s2x_Fgss_qice09 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Fgss_qice09') index_s2x_Ss_tsrf10 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_tsrf10') index_s2x_Ss_topo10 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Ss_topo10') index_s2x_Fgss_qice10 = shr_string_listGetIndexF(seq_flds_s2x_fields,'Fgss_qice10') nflds_s2x = shr_string_listGetNum(seq_flds_s2x_fields) end subroutine seq_flds_indices_set !=============================================================================== end module seq_flds_indices