rgc_initialization character(len=40) character(len=40) rgc_initialization::mod mod = "RGC_initialization" rgc_initialize_sponges subroutine, public subroutine, public rgc_initialization::rgc_initialize_sponges (G, GV, US, tv, u, v, PF, use_ALE, CSp, ACSp) rgc_initialize_sponges G G GV GV US US tv tv u u v v PF PF use_ALE use_ALE CSp CSp ACSp ACSp Sets up the the inverse restoration time, and the values towards which the interface heights, velocities and tracers should be restored within the sponges for the RGC test case. g The ocean's grid structure. gv The ocean's vertical grid structure. us A dimensional unit scaling type tv A structure containing pointers to any available thermodynamic fields, potential temperature and salinity or mixed layer density. Absent fields have NULL ptrs. u Array with the u velocity [L T-1 ~> m s-1] v Array with the v velocity [L T-1 ~> m s-1] pf A structure indicating the open file to parse for model parameter values. use_ale If true, indicates model is in ALE mode csp Layer-mode sponge structure acsp ALE-mode sponge structure mom_eos::eos_domain mod mom_error_handler::mom_error mom_sponge::set_up_sponge_ml_density mom_state_initialization::mom_initialize_state