mom_dynamics_split_rk2::mom_dyn_split_rk2_cs integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_uh id_uh = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_vh id_vh = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_umo id_umo = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_vmo id_vmo = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_umo_2d id_umo_2d = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_vmo_2d id_vmo_2d = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_pfu id_pfu = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_pfv id_pfv = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_cau id_cau = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_cav id_cav = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_hf_pfu_2d id_hf_pfu_2d = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_hf_pfv_2d id_hf_pfv_2d = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_hf_cau_2d id_hf_cau_2d = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_hf_cav_2d id_hf_cav_2d = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_uav id_uav = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_vav id_vav = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_u_bt_accel id_u_bt_accel = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_v_bt_accel id_v_bt_accel = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_hf_u_bt_accel_2d id_hf_u_bt_accel_2d = -1 Diagnostic IDs. integer integer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::id_hf_v_bt_accel_2d id_hf_v_bt_accel_2d = -1 Diagnostic IDs. real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::cau cau CAu = f*v - u.grad(u) [L T-2 ~> m s-2]. real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::pfu pfu PFu = -dM/dx [L T-2 ~> m s-2]. real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::diffu diffu Zonal acceleration due to convergence of the along-isopycnal stress tensor [L T-2 ~> m s-2]. real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::cav cav CAv = -f*u - u.grad(v) [L T-2 ~> m s-2]. real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::pfv pfv PFv = -dM/dy [L T-2 ~> m s-2]. real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::diffv diffv Meridional acceleration due to convergence of the along-isopycnal stress tensor [L T-2 ~> m s-2]. real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::visc_rem_u visc_rem_u Both the fraction of the zonal momentum originally in a layer that remains after a time-step of viscosity, and the fraction of a time-step worth of a barotropic acceleration that a layer experiences after viscosity is applied. Nondimensional between 0 (at the bottom) and 1 (far above). real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::u_accel_bt u_accel_bt The zonal layer accelerations due to the difference between the barotropic accelerations and the baroclinic accelerations that were fed into the barotopic calculation [L T-2 ~> m s-2]. real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::visc_rem_v visc_rem_v Both the fraction of the meridional momentum originally in a layer that remains after a time-step of viscosity, and the fraction of a time-step worth of a barotropic acceleration that a layer experiences after viscosity is applied. Nondimensional between 0 (at the bottom) and 1 (far above). real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::v_accel_bt v_accel_bt The meridional layer accelerations due to the difference between the barotropic accelerations and the baroclinic accelerations that were fed into the barotopic calculation [L T-2 ~> m s-2]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::eta eta Instantaneous free surface height (in Boussinesq mode) or column mass anomaly (in non-Boussinesq mode) [H ~> m or kg m-2]. real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::u_av u_av layer x-velocity with vertical mean replaced by time-mean barotropic velocity over a baroclinic timestep [L T-1 ~> m s-1] real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::v_av v_av layer y-velocity with vertical mean replaced by time-mean barotropic velocity over a baroclinic timestep [L T-1 ~> m s-1] real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::h_av h_av arithmetic mean of two successive layer thicknesses [H ~> m or kg m-2] real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::eta_pf eta_pf instantaneous SSH used in calculating PFu and PFv [H ~> m or kg m-2] real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::uhbt uhbt average x-volume or mass flux determined by the barotropic solver [H L2 T-1 ~> m3 s-1 or kg s-1]. uhbt is roughly equal to the vertical sum of uh. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::vhbt vhbt average y-volume or mass flux determined by the barotropic solver [H L2 T-1 ~> m3 s-1 or kg s-1]. vhbt is roughly equal to vertical sum of vh. real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::pbce pbce pbce times eta gives the baroclinic pressure anomaly in each layer due to free surface height anomalies [L2 H-1 T-2 ~> m s-2 or m4 kg-1 s-2]. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::taux_bot taux_bot => NULL() frictional x-bottom stress from the ocean to the seafloor [R L Z T-2 ~> Pa] real, dimension(:,:), pointer real, dimension(:,:), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::tauy_bot tauy_bot => NULL() frictional y-bottom stress from the ocean to the seafloor [R L Z T-2 ~> Pa] type(bt_cont_type), pointer type(bt_cont_type), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::bt_cont bt_cont => NULL() A structure with elements that describe the effective summed open face areas as a function of barotropic flow. logical logical mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::bt_use_layer_fluxes bt_use_layer_fluxes If true, use the summed layered fluxes plus an adjustment due to a changed barotropic velocity in the barotropic continuity equation. logical logical mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::split_bottom_stress split_bottom_stress If true, provide the bottom stress calculated by the vertical viscosity to the barotropic solver. logical logical mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::calc_dtbt calc_dtbt If true, calculate the barotropic time-step dynamically. real real mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::be be A nondimensional number from 0.5 to 1 that controls the backward weighting of the time stepping scheme. real real mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::begw begw A nondimensional number from 0 to 1 that controls the extent to which the treatment of gravity waves is forward-backward (0) or simulated backward Euler (1). 0 is almost always used. logical logical mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::debug debug If true, write verbose checksums for debugging purposes. logical logical mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::debug_obc debug_obc If true, do debugging calls for open boundary conditions. logical logical mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::module_is_initialized module_is_initialized = .false. Record whether this mouled has been initialzed. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::diag diag A structure that is used to regulate the timing of diagnostic output. type(accel_diag_ptrs), pointer type(accel_diag_ptrs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::adp adp A structure pointing to the various accelerations in the momentum equations, which can later be used to calculate derived diagnostics like energy budgets. type(cont_diag_ptrs), pointer type(cont_diag_ptrs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::cdp cdp A structure with pointers to various terms in the continuity equations, which can later be used to calculate derived diagnostics like energy budgets. type(hor_visc_cs), pointer type(hor_visc_cs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::hor_visc_csp hor_visc_csp => NULL() A pointer to the horizontal viscosity control structure. type(continuity_cs), pointer type(continuity_cs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::continuity_csp continuity_csp => NULL() A pointer to the continuity control structure. type(coriolisadv_cs), pointer type(coriolisadv_cs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::coriolisadv_csp coriolisadv_csp => NULL() A pointer to the CoriolisAdv control structure. type(pressureforce_cs), pointer type(pressureforce_cs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::pressureforce_csp pressureforce_csp => NULL() A pointer to the PressureForce control structure. type(barotropic_cs), pointer type(barotropic_cs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::barotropic_csp barotropic_csp => NULL() A pointer to the barotropic stepping control structure. type(thickness_diffuse_cs), pointer type(thickness_diffuse_cs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::thickness_diffuse_csp thickness_diffuse_csp => NULL() A pointer to a structure containing interface height diffusivities. type(vertvisc_cs), pointer type(vertvisc_cs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::vertvisc_csp vertvisc_csp => NULL() A pointer to the vertical viscosity control structure. type(set_visc_cs), pointer type(set_visc_cs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::set_visc_csp set_visc_csp => NULL() A pointer to the set_visc control structure. type(tidal_forcing_cs), pointer type(tidal_forcing_cs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::tides_csp tides_csp => NULL() A pointer to the tidal forcing control structure. type(ale_cs), pointer type(ale_cs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::ale_csp ale_csp => NULL() A pointer to the ALE control structure. type(ocean_obc_type), pointer type(ocean_obc_type), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::obc obc => NULL() A pointer to an open boundary condition type that specifies whether, where, and what open boundary conditions are used. If no open BCs are used, this pointer stays nullified. Flather OBCs use open boundary_CS as well. type(update_obc_cs), pointer type(update_obc_cs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::update_obc_csp update_obc_csp => NULL() A pointer to the update_OBC control structure. type(group_pass_type) type(group_pass_type) mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::pass_eta pass_eta Structure for group halo pass. type(group_pass_type) type(group_pass_type) mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::pass_visc_rem pass_visc_rem Structure for group halo pass. type(group_pass_type) type(group_pass_type) mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::pass_uvp pass_uvp Structure for group halo pass. type(group_pass_type) type(group_pass_type) mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::pass_hp_uv pass_hp_uv Structure for group halo pass. type(group_pass_type) type(group_pass_type) mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::pass_uv pass_uv Structure for group halo pass. type(group_pass_type) type(group_pass_type) mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::pass_h pass_h Structure for group halo pass. type(group_pass_type) type(group_pass_type) mom_dynamics_split_rk2::mom_dyn_split_rk2_cs::pass_av_uvh pass_av_uvh Structure for group halo pass. MOM_dynamics_split_RK2 module control structure. type(update_obc_cs), pointer real type(bt_cont_type), pointer type(continuity_cs), pointer cont_diag_ptrs logical type(ale_cs), pointer type(coriolisadv_cs), pointer type(set_visc_cs), pointer ocean_obc_type diag_ctrl type(hor_visc_cs), pointer integer group_pass_type type(pressureforce_cs), pointer type(tidal_forcing_cs), pointer type(barotropic_cs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_cs ale_csp thickness_diffuse_csp debug_obc calc_dtbt bt_use_layer_fluxes split_bottom_stress debug module_is_initialized obc barotropic_csp set_visc_csp vertvisc_csp cdp hor_visc_csp continuity_csp bt_cont update_obc_csp pass_uv pass_uvp pass_eta pass_hp_uv pass_h pass_visc_rem pass_av_uvh coriolisadv_csp diag tides_csp pressureforce_csp id_vh id_cau id_umo id_uh id_cav id_vmo id_hf_v_bt_accel_2d id_uav id_vav id_hf_u_bt_accel_2d ... cau cav begw be eta_pf vhbt visc_rem_u pbce uhbt visc_rem_v ... adp type(vertvisc_cs), pointer accel_diag_ptrs type(thickness_diffuse_cs), pointer mom_dynamics_split_rk2::mom_dyn_split_rk2_csadp mom_dynamics_split_rk2::mom_dyn_split_rk2_csale_csp mom_dynamics_split_rk2::mom_dyn_split_rk2_csbarotropic_csp mom_dynamics_split_rk2::mom_dyn_split_rk2_csbe mom_dynamics_split_rk2::mom_dyn_split_rk2_csbegw mom_dynamics_split_rk2::mom_dyn_split_rk2_csbt_cont mom_dynamics_split_rk2::mom_dyn_split_rk2_csbt_use_layer_fluxes mom_dynamics_split_rk2::mom_dyn_split_rk2_cscalc_dtbt mom_dynamics_split_rk2::mom_dyn_split_rk2_cscau mom_dynamics_split_rk2::mom_dyn_split_rk2_cscav mom_dynamics_split_rk2::mom_dyn_split_rk2_cscdp mom_dynamics_split_rk2::mom_dyn_split_rk2_cscontinuity_csp mom_dynamics_split_rk2::mom_dyn_split_rk2_cscoriolisadv_csp mom_dynamics_split_rk2::mom_dyn_split_rk2_csdebug mom_dynamics_split_rk2::mom_dyn_split_rk2_csdebug_obc mom_dynamics_split_rk2::mom_dyn_split_rk2_csdiag mom_dynamics_split_rk2::mom_dyn_split_rk2_csdiffu mom_dynamics_split_rk2::mom_dyn_split_rk2_csdiffv mom_dynamics_split_rk2::mom_dyn_split_rk2_cseta mom_dynamics_split_rk2::mom_dyn_split_rk2_cseta_pf mom_dynamics_split_rk2::mom_dyn_split_rk2_csh_av mom_dynamics_split_rk2::mom_dyn_split_rk2_cshor_visc_csp mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_cau mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_cav mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_hf_cau_2d mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_hf_cav_2d mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_hf_pfu_2d mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_hf_pfv_2d mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_hf_u_bt_accel_2d mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_hf_v_bt_accel_2d mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_pfu mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_pfv mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_u_bt_accel mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_uav mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_uh mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_umo mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_umo_2d mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_v_bt_accel mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_vav mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_vh mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_vmo mom_dynamics_split_rk2::mom_dyn_split_rk2_csid_vmo_2d mom_dynamics_split_rk2::mom_dyn_split_rk2_csmodule_is_initialized mom_dynamics_split_rk2::mom_dyn_split_rk2_csobc mom_dynamics_split_rk2::mom_dyn_split_rk2_cspass_av_uvh mom_dynamics_split_rk2::mom_dyn_split_rk2_cspass_eta mom_dynamics_split_rk2::mom_dyn_split_rk2_cspass_h mom_dynamics_split_rk2::mom_dyn_split_rk2_cspass_hp_uv mom_dynamics_split_rk2::mom_dyn_split_rk2_cspass_uv mom_dynamics_split_rk2::mom_dyn_split_rk2_cspass_uvp mom_dynamics_split_rk2::mom_dyn_split_rk2_cspass_visc_rem mom_dynamics_split_rk2::mom_dyn_split_rk2_cspbce mom_dynamics_split_rk2::mom_dyn_split_rk2_cspfu mom_dynamics_split_rk2::mom_dyn_split_rk2_cspfv mom_dynamics_split_rk2::mom_dyn_split_rk2_cspressureforce_csp mom_dynamics_split_rk2::mom_dyn_split_rk2_csset_visc_csp mom_dynamics_split_rk2::mom_dyn_split_rk2_cssplit_bottom_stress mom_dynamics_split_rk2::mom_dyn_split_rk2_cstaux_bot mom_dynamics_split_rk2::mom_dyn_split_rk2_cstauy_bot mom_dynamics_split_rk2::mom_dyn_split_rk2_csthickness_diffuse_csp mom_dynamics_split_rk2::mom_dyn_split_rk2_cstides_csp mom_dynamics_split_rk2::mom_dyn_split_rk2_csu_accel_bt mom_dynamics_split_rk2::mom_dyn_split_rk2_csu_av mom_dynamics_split_rk2::mom_dyn_split_rk2_csuhbt mom_dynamics_split_rk2::mom_dyn_split_rk2_csupdate_obc_csp mom_dynamics_split_rk2::mom_dyn_split_rk2_csv_accel_bt mom_dynamics_split_rk2::mom_dyn_split_rk2_csv_av mom_dynamics_split_rk2::mom_dyn_split_rk2_csvertvisc_csp mom_dynamics_split_rk2::mom_dyn_split_rk2_csvhbt mom_dynamics_split_rk2::mom_dyn_split_rk2_csvisc_rem_u mom_dynamics_split_rk2::mom_dyn_split_rk2_csvisc_rem_v