mom_sponge::sponge_cs logical logical mom_sponge::sponge_cs::bulkmixedlayer bulkmixedlayer If true, a refined bulk mixed layer is used with nkml sublayers and nkbl buffer layer. integer integer mom_sponge::sponge_cs::nz nz The total number of layers. integer integer mom_sponge::sponge_cs::isc isc The starting i-index of the computational domain at h. integer integer mom_sponge::sponge_cs::iec iec The ending i-index of the computational domain at h. integer integer mom_sponge::sponge_cs::jsc jsc The starting j-index of the computational domain at h. integer integer mom_sponge::sponge_cs::jec jec The ending j-index of the computational domain at h. integer integer mom_sponge::sponge_cs::isd isd The starting i-index of the data domain at h. integer integer mom_sponge::sponge_cs::ied ied The ending i-index of the data domain at h. integer integer mom_sponge::sponge_cs::jsd jsd The starting j-index of the data domain at h. integer integer mom_sponge::sponge_cs::jed jed The ending j-index of the data domain at h. integer integer mom_sponge::sponge_cs::num_col num_col The number of sponge points within the computational domain. integer integer mom_sponge::sponge_cs::fldno fldno = 0 The number of fields which have already been registered by calls to set_up_sponge_field. integer, dimension(:), pointer integer, dimension(:), pointer mom_sponge::sponge_cs::col_i col_i => NULL() Array of the i-indicies of each of the columns being damped. integer, dimension(:), pointer integer, dimension(:), pointer mom_sponge::sponge_cs::col_j col_j => NULL() Array of the j-indicies of each of the columns being damped. real, dimension(:), pointer real, dimension(:), pointer mom_sponge::sponge_cs::iresttime_col iresttime_col => NULL() The inverse restoring time of each column [T-1 ~> s-1]. real, dimension(:), pointer real, dimension(:), pointer mom_sponge::sponge_cs::rcv_ml_ref rcv_ml_ref => NULL() The value toward which the mixed layer coordinate-density is being damped [R ~> kg m-3]. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_sponge::sponge_cs::ref_eta ref_eta => NULL() The value toward which the interface heights are being damped [Z ~> m]. type(p3d), dimension(50) type(p3d), dimension( 50 ) mom_sponge::sponge_cs::var var Pointers to the fields that are being damped. type(p2d), dimension(50) type(p2d), dimension( 50 ) mom_sponge::sponge_cs::ref_val ref_val The values to which the fields are damped. logical logical mom_sponge::sponge_cs::do_i_mean_sponge do_i_mean_sponge If true, apply sponges to the i-mean fields. real, dimension(:), pointer real, dimension(:), pointer mom_sponge::sponge_cs::iresttime_im iresttime_im => NULL() The inverse restoring time of each row for i-mean sponges [T-1 ~> s-1]. real, dimension(:), pointer real, dimension(:), pointer mom_sponge::sponge_cs::rcv_ml_ref_im rcv_ml_ref_im => NULL() mixed layer coordinate-density is being damped [R ~> kg m-3]. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_sponge::sponge_cs::ref_eta_im ref_eta_im => NULL() The value toward which the i-mean interface heights are being damped [Z ~> m]. type(p2d), dimension(50) type(p2d), dimension( 50 ) mom_sponge::sponge_cs::ref_val_im ref_val_im The values toward which the i-means of fields are damped. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_sponge::sponge_cs::diag diag => NULL() A structure that is used to regulate the timing of diagnostic output. integer integer mom_sponge::sponge_cs::id_w_sponge id_w_sponge = -1 A diagnostic ID. This control structure holds memory and parameters for the MOM_sponge module. real mom_sponge::p2d p mom_sponge::p3d p logical diag_ctrl integer mom_sponge::sponge_cs ref_val_im ref_val bulkmixedlayer do_i_mean_sponge diag iresttime_col ref_eta iresttime_im rcv_ml_ref_im rcv_ml_ref ref_eta_im iec ied jec jed col_i isc col_j isd jsc jsd ... var mom_sponge::sponge_csbulkmixedlayer mom_sponge::sponge_cscol_i mom_sponge::sponge_cscol_j mom_sponge::sponge_csdiag mom_sponge::sponge_csdo_i_mean_sponge mom_sponge::sponge_csfldno mom_sponge::sponge_csid_w_sponge mom_sponge::sponge_csiec mom_sponge::sponge_csied mom_sponge::sponge_csiresttime_col mom_sponge::sponge_csiresttime_im mom_sponge::sponge_csisc mom_sponge::sponge_csisd mom_sponge::sponge_csjec mom_sponge::sponge_csjed mom_sponge::sponge_csjsc mom_sponge::sponge_csjsd mom_sponge::sponge_csnum_col mom_sponge::sponge_csnz mom_sponge::sponge_csrcv_ml_ref mom_sponge::sponge_csrcv_ml_ref_im mom_sponge::sponge_csref_eta mom_sponge::sponge_csref_eta_im mom_sponge::sponge_csref_val mom_sponge::sponge_csref_val_im mom_sponge::sponge_csvar