mom_ale_sponge::ale_sponge_cs integer integer mom_ale_sponge::ale_sponge_cs::nz nz The total number of layers. integer integer mom_ale_sponge::ale_sponge_cs::nz_data nz_data The total number of arbritary layers (used by older code). integer integer mom_ale_sponge::ale_sponge_cs::isc isc The starting i-index of the computational domain at h. integer integer mom_ale_sponge::ale_sponge_cs::iec iec The ending i-index of the computational domain at h. integer integer mom_ale_sponge::ale_sponge_cs::jsc jsc The starting j-index of the computational domain at h. integer integer mom_ale_sponge::ale_sponge_cs::jec jec The ending j-index of the computational domain at h. integer integer mom_ale_sponge::ale_sponge_cs::iscb iscb The starting I-index of the computational domain at u/v. integer integer mom_ale_sponge::ale_sponge_cs::iecb iecb The ending I-index of the computational domain at u/v. integer integer mom_ale_sponge::ale_sponge_cs::jscb jscb The starting J-index of the computational domain at u/v. integer integer mom_ale_sponge::ale_sponge_cs::jecb jecb The ending J-index of the computational domain at h. integer integer mom_ale_sponge::ale_sponge_cs::isd isd The starting i-index of the data domain at h. integer integer mom_ale_sponge::ale_sponge_cs::ied ied The ending i-index of the data domain at h. integer integer mom_ale_sponge::ale_sponge_cs::jsd jsd The starting j-index of the data domain at h. integer integer mom_ale_sponge::ale_sponge_cs::jed jed The ending j-index of the data domain at h. integer integer mom_ale_sponge::ale_sponge_cs::num_col num_col The number of sponge tracer points within the computational domain. integer integer mom_ale_sponge::ale_sponge_cs::num_col_u num_col_u The number of sponge u-points within the computational domain. integer integer mom_ale_sponge::ale_sponge_cs::num_col_v num_col_v The number of sponge v-points within the computational domain. integer integer mom_ale_sponge::ale_sponge_cs::fldno fldno = 0 The number of fields which have already been registered by calls to set_up_sponge_field. logical logical mom_ale_sponge::ale_sponge_cs::sponge_uv sponge_uv Control whether u and v are included in sponge. integer, dimension(:), pointer integer, dimension(:), pointer mom_ale_sponge::ale_sponge_cs::col_i col_i => NULL() Array of the i-indicies of each tracer columns being damped. integer, dimension(:), pointer integer, dimension(:), pointer mom_ale_sponge::ale_sponge_cs::col_j col_j => NULL() Array of the j-indicies of each tracer columns being damped. integer, dimension(:), pointer integer, dimension(:), pointer mom_ale_sponge::ale_sponge_cs::col_i_u col_i_u => NULL() Array of the i-indicies of each u-columns being damped. integer, dimension(:), pointer integer, dimension(:), pointer mom_ale_sponge::ale_sponge_cs::col_j_u col_j_u => NULL() Array of the j-indicies of each u-columns being damped. integer, dimension(:), pointer integer, dimension(:), pointer mom_ale_sponge::ale_sponge_cs::col_i_v col_i_v => NULL() Array of the i-indicies of each v-columns being damped. integer, dimension(:), pointer integer, dimension(:), pointer mom_ale_sponge::ale_sponge_cs::col_j_v col_j_v => NULL() Array of the j-indicies of each v-columns being damped. real, dimension(:), pointer real, dimension(:), pointer mom_ale_sponge::ale_sponge_cs::iresttime_col iresttime_col => NULL() The inverse restoring time of each tracer column [T-1 ~> s-1]. real, dimension(:), pointer real, dimension(:), pointer mom_ale_sponge::ale_sponge_cs::iresttime_col_u iresttime_col_u => NULL() The inverse restoring time of each u-column [T-1 ~> s-1]. real, dimension(:), pointer real, dimension(:), pointer mom_ale_sponge::ale_sponge_cs::iresttime_col_v iresttime_col_v => NULL() The inverse restoring time of each v-column [T-1 ~> s-1]. type(p3d), dimension(50) type(p3d), dimension( 50 ) mom_ale_sponge::ale_sponge_cs::var var Pointers to the fields that are being damped. type(p2d), dimension(50) type(p2d), dimension( 50 ) mom_ale_sponge::ale_sponge_cs::ref_val ref_val The values to which the fields are damped. type(p2d) type(p2d) mom_ale_sponge::ale_sponge_cs::ref_val_u ref_val_u The values to which the u-velocities are damped. type(p2d) type(p2d) mom_ale_sponge::ale_sponge_cs::ref_val_v ref_val_v The values to which the v-velocities are damped. type(p3d) type(p3d) mom_ale_sponge::ale_sponge_cs::var_u var_u Pointer to the u velocities. that are being damped. type(p3d) type(p3d) mom_ale_sponge::ale_sponge_cs::var_v var_v Pointer to the v velocities. that are being damped. type(p2d) type(p2d) mom_ale_sponge::ale_sponge_cs::ref_h ref_h Grid on which reference data is provided (older code). type(p2d) type(p2d) mom_ale_sponge::ale_sponge_cs::ref_hu ref_hu u-point grid on which reference data is provided (older code). type(p2d) type(p2d) mom_ale_sponge::ale_sponge_cs::ref_hv ref_hv v-point grid on which reference data is provided (older code). type(diag_ctrl), pointer type(diag_ctrl), pointer mom_ale_sponge::ale_sponge_cs::diag diag A structure that is used to regulate the timing of diagnostic output. type(remapping_cs) type(remapping_cs) mom_ale_sponge::ale_sponge_cs::remap_cs remap_cs Remapping parameters and work arrays. logical logical mom_ale_sponge::ale_sponge_cs::remap_answers_2018 remap_answers_2018 If true, use the order of arithmetic and expressions that recover the answers for remapping from the end of 2018. Otherwise, use more robust forms of the same expressions. logical logical mom_ale_sponge::ale_sponge_cs::hor_regrid_answers_2018 hor_regrid_answers_2018 If true, use the order of arithmetic for horizonal regridding that recovers the answers from the end of 2018. Otherwise, use rotationally symmetric forms of the same expressions. logical logical mom_ale_sponge::ale_sponge_cs::time_varying_sponges time_varying_sponges True if using newer sponge code. logical logical mom_ale_sponge::ale_sponge_cs::spongedataongrid spongedataongrid True if the sponge data are on the model horizontal grid. ALE sponge control structure. real logical mom_ale_sponge::p3d h p mask_in id num_tlevs nz_data mom_ale_sponge::p2d h p mask_in id num_tlevs nz_data remapping_cs mom_ale_sponge::ale_sponge_cs remap_answers_2018 time_varying_sponges sponge_uv hor_regrid_answers_2018 spongedataongrid remap_cs ref_val_u ref_val_v ref_h ref_hu ref_val ref_hv var_u var_v var diag iresttime_col iresttime_col_u iresttime_col_v iec ied jec jed col_i_u col_i isc col_i_v col_j_u col_j ... diag_ctrl integer mom_ale_sponge::ale_sponge_cscol_i mom_ale_sponge::ale_sponge_cscol_i_u mom_ale_sponge::ale_sponge_cscol_i_v mom_ale_sponge::ale_sponge_cscol_j mom_ale_sponge::ale_sponge_cscol_j_u mom_ale_sponge::ale_sponge_cscol_j_v mom_ale_sponge::ale_sponge_csdiag mom_ale_sponge::ale_sponge_csfldno mom_ale_sponge::ale_sponge_cshor_regrid_answers_2018 mom_ale_sponge::ale_sponge_csiec mom_ale_sponge::ale_sponge_csiecb mom_ale_sponge::ale_sponge_csied mom_ale_sponge::ale_sponge_csiresttime_col mom_ale_sponge::ale_sponge_csiresttime_col_u mom_ale_sponge::ale_sponge_csiresttime_col_v mom_ale_sponge::ale_sponge_csisc mom_ale_sponge::ale_sponge_csiscb mom_ale_sponge::ale_sponge_csisd mom_ale_sponge::ale_sponge_csjec mom_ale_sponge::ale_sponge_csjecb mom_ale_sponge::ale_sponge_csjed mom_ale_sponge::ale_sponge_csjsc mom_ale_sponge::ale_sponge_csjscb mom_ale_sponge::ale_sponge_csjsd mom_ale_sponge::ale_sponge_csnum_col mom_ale_sponge::ale_sponge_csnum_col_u mom_ale_sponge::ale_sponge_csnum_col_v mom_ale_sponge::ale_sponge_csnz mom_ale_sponge::ale_sponge_csnz_data mom_ale_sponge::ale_sponge_csref_h mom_ale_sponge::ale_sponge_csref_hu mom_ale_sponge::ale_sponge_csref_hv mom_ale_sponge::ale_sponge_csref_val mom_ale_sponge::ale_sponge_csref_val_u mom_ale_sponge::ale_sponge_csref_val_v mom_ale_sponge::ale_sponge_csremap_answers_2018 mom_ale_sponge::ale_sponge_csremap_cs mom_ale_sponge::ale_sponge_cssponge_uv mom_ale_sponge::ale_sponge_csspongedataongrid mom_ale_sponge::ale_sponge_cstime_varying_sponges mom_ale_sponge::ale_sponge_csvar mom_ale_sponge::ale_sponge_csvar_u mom_ale_sponge::ale_sponge_csvar_v