mom_hor_visc::hor_visc_cs integer integer mom_hor_visc::hor_visc_cs::id_grid_re_ah id_grid_re_ah = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_grid_re_kh id_grid_re_kh = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_diffu id_diffu = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_diffv id_diffv = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_hf_diffu_2d id_hf_diffu_2d = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_hf_diffv_2d id_hf_diffv_2d = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_ah_h id_ah_h = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_ah_q id_ah_q = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_kh_h id_kh_h = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_kh_q id_kh_q = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_gme_coeff_h id_gme_coeff_h = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_gme_coeff_q id_gme_coeff_q = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_vort_xy_q id_vort_xy_q = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_div_xx_h id_div_xx_h = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_sh_xy_q id_sh_xy_q = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_sh_xx_h id_sh_xx_h = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_frictwork id_frictwork = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_frictworkintz id_frictworkintz = -1 Diagnostic id. integer integer mom_hor_visc::hor_visc_cs::id_frictwork_gme id_frictwork_gme = -1 Diagnostic id. logical logical mom_hor_visc::hor_visc_cs::laplacian laplacian Use a Laplacian horizontal viscosity if true. logical logical mom_hor_visc::hor_visc_cs::biharmonic biharmonic Use a biharmonic horizontal viscosity if true. logical logical mom_hor_visc::hor_visc_cs::debug debug If true, write verbose checksums for debugging purposes. logical logical mom_hor_visc::hor_visc_cs::no_slip no_slip If true, no slip boundary conditions are used. Otherwise free slip boundary conditions are assumed. The implementation of the free slip boundary conditions on a C-grid is much cleaner than the no slip boundary conditions. The use of free slip b.c.s is strongly encouraged. The no slip b.c.s are not implemented with the biharmonic viscosity. logical logical mom_hor_visc::hor_visc_cs::bound_kh bound_kh If true, the Laplacian coefficient is locally limited to guarantee stability. logical logical mom_hor_visc::hor_visc_cs::better_bound_kh better_bound_kh If true, use a more careful bounding of the Laplacian viscosity to guarantee stability. logical logical mom_hor_visc::hor_visc_cs::bound_ah bound_ah If true, the biharmonic coefficient is locally limited to guarantee stability. logical logical mom_hor_visc::hor_visc_cs::better_bound_ah better_bound_ah If true, use a more careful bounding of the biharmonic viscosity to guarantee stability. real real mom_hor_visc::hor_visc_cs::re_ah re_ah so that the biharmonic Reynolds number is equal to this. real real mom_hor_visc::hor_visc_cs::bound_coef bound_coef The nondimensional coefficient of the ratio of the viscosity bounds to the theoretical maximum for stability without considering other terms [nondim]. The default is 0.8. logical logical mom_hor_visc::hor_visc_cs::smagorinsky_kh smagorinsky_kh If true, use Smagorinsky nonlinear eddy viscosity. KH is the background value. logical logical mom_hor_visc::hor_visc_cs::smagorinsky_ah smagorinsky_ah If true, use a biharmonic form of Smagorinsky nonlinear eddy viscosity. AH is the background. logical logical mom_hor_visc::hor_visc_cs::leith_kh leith_kh If true, use 2D Leith nonlinear eddy viscosity. KH is the background value. logical logical mom_hor_visc::hor_visc_cs::modified_leith modified_leith If true, use extra component of Leith viscosity to damp divergent flow. To use, still set Leith_Kh=.TRUE. logical logical mom_hor_visc::hor_visc_cs::use_beta_in_leith use_beta_in_leith If true, includes the beta term in the Leith viscosity. logical logical mom_hor_visc::hor_visc_cs::leith_ah leith_ah If true, use a biharmonic form of 2D Leith nonlinear eddy viscosity. AH is the background. logical logical mom_hor_visc::hor_visc_cs::use_qg_leith_visc use_qg_leith_visc If true, use QG Leith nonlinear eddy viscosity. KH is the background value. logical logical mom_hor_visc::hor_visc_cs::bound_coriolis bound_coriolis If true & SMAGORINSKY_AH is used, the biharmonic viscosity is modified to include a term that scales quadratically with the velocity shears. logical logical mom_hor_visc::hor_visc_cs::use_kh_bg_2d use_kh_bg_2d Read 2d background viscosity from a file. real real mom_hor_visc::hor_visc_cs::kh_bg_min kh_bg_min The minimum value allowed for Laplacian horizontal viscosity [L2 T-1 ~> m2 s-1]. The default is 0.0. logical logical mom_hor_visc::hor_visc_cs::use_land_mask use_land_mask Use the land mask for the computation of thicknesses at velocity locations. This eliminates the dependence on arbitrary values over land or outside of the domain. Default is False to maintain answers with legacy experiments but should be changed to True for new experiments. logical logical mom_hor_visc::hor_visc_cs::anisotropic anisotropic If true, allow anisotropic component to the viscosity. logical logical mom_hor_visc::hor_visc_cs::add_les_viscosity add_les_viscosity If true, adds the viscosity from Smagorinsky and Leith to the background viscosity instead of taking the maximum. real real mom_hor_visc::hor_visc_cs::kh_aniso kh_aniso The anisotropic viscosity [L2 T-1 ~> m2 s-1]. logical logical mom_hor_visc::hor_visc_cs::dynamic_aniso dynamic_aniso If true, the anisotropic viscosity is recomputed as a function of state. This is set depending on ANISOTROPIC_MODE. logical logical mom_hor_visc::hor_visc_cs::res_scale_meke res_scale_meke If true, the viscosity contribution from MEKE is scaled by the resolution function. logical logical mom_hor_visc::hor_visc_cs::use_gme use_gme If true, use GME backscatter scheme. logical logical mom_hor_visc::hor_visc_cs::answers_2018 answers_2018 If true, use the order of arithmetic and expressions that recover the answers from the end of 2018. Otherwise, use updated and more robust forms of the same expressions. real real mom_hor_visc::hor_visc_cs::gme_h0 gme_h0 The strength of GME tapers quadratically to zero when the bathymetric depth is shallower than GME_H0 [Z ~> m]. real real mom_hor_visc::hor_visc_cs::gme_efficiency gme_efficiency The nondimensional prefactor multiplying the GME coefficient [nondim]. real real mom_hor_visc::hor_visc_cs::gme_limiter gme_limiter The absolute maximum value the GME coefficient is allowed to take [L2 T-1 ~> m2 s-1]. real real mom_hor_visc::hor_visc_cs::min_grid_kh min_grid_kh Minimum horizontal Laplacian viscosity used to limit the grid Reynolds number [L2 T-1 ~> m2 s-1]. real real mom_hor_visc::hor_visc_cs::min_grid_ah min_grid_ah Minimun horizontal biharmonic viscosity used to limit grid Reynolds number [L4 T-1 ~> m4 s-1]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::kh_bg_xx kh_bg_xx The background Laplacian viscosity at h points [L2 T-1 ~> m2 s-1]. The actual viscosity may be the larger of this viscosity and the Smagorinsky and Leith viscosities. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::kh_bg_2d kh_bg_2d The background Laplacian viscosity at h points [L2 T-1 ~> m2 s-1]. The actual viscosity may be the larger of this viscosity and the Smagorinsky and Leith viscosities. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::ah_bg_xx ah_bg_xx The background biharmonic viscosity at h points [L4 T-1 ~> m4 s-1]. The actual viscosity may be the larger of this viscosity and the Smagorinsky and Leith viscosities. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::reduction_xx reduction_xx The amount by which stresses through h points are reduced due to partial barriers [nondim]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::kh_max_xx kh_max_xx The maximum permitted Laplacian viscosity [L2 T-1 ~> m2 s-1]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::ah_max_xx ah_max_xx The maximum permitted biharmonic viscosity [L4 T-1 ~> m4 s-1]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::n1n2_h n1n2_h Factor n1*n2 in the anisotropic direction tensor at h-points. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::n1n1_m_n2n2_h n1n1_m_n2n2_h Factor n1**2-n2**2 in the anisotropic direction tensor at h-points. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::grid_sp_h2 grid_sp_h2 Harmonic mean of the squares of the grid [L2 ~> m2]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::grid_sp_h3 grid_sp_h3 Harmonic mean of the squares of the grid^(3/2) [L3 ~> m3]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::kh_bg_xy kh_bg_xy The background Laplacian viscosity at q points [L2 T-1 ~> m2 s-1]. The actual viscosity may be the larger of this viscosity and the Smagorinsky and Leith viscosities. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::ah_bg_xy ah_bg_xy The background biharmonic viscosity at q points [L4 T-1 ~> m4 s-1]. The actual viscosity may be the larger of this viscosity and the Smagorinsky and Leith viscosities. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::reduction_xy reduction_xy The amount by which stresses through q points are reduced due to partial barriers [nondim]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::kh_max_xy kh_max_xy The maximum permitted Laplacian viscosity [L2 T-1 ~> m2 s-1]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::ah_max_xy ah_max_xy The maximum permitted biharmonic viscosity [L4 T-1 ~> m4 s-1]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::n1n2_q n1n2_q Factor n1*n2 in the anisotropic direction tensor at q-points. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::n1n1_m_n2n2_q n1n1_m_n2n2_q Factor n1**2-n2**2 in the anisotropic direction tensor at q-points. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::dx2h dx2h Pre-calculated dx^2 at h points [L2 ~> m2]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::dy2h dy2h Pre-calculated dy^2 at h points [L2 ~> m2]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::dx_dyt dx_dyt Pre-calculated dx/dy at h points [nondim]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::dy_dxt dy_dxt Pre-calculated dy/dx at h points [nondim]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::dx2q dx2q Pre-calculated dx^2 at q points [L2 ~> m2]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::dy2q dy2q Pre-calculated dy^2 at q points [L2 ~> m2]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::dx_dybu dx_dybu Pre-calculated dx/dy at q points [nondim]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::dy_dxbu dy_dxbu Pre-calculated dy/dx at q points [nondim]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::idx2dycu idx2dycu 1/(dx^2 dy) at u points [L-3 ~> m-3] real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::idxdy2u idxdy2u 1/(dx dy^2) at u points [L-3 ~> m-3] real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::idx2dycv idx2dycv 1/(dx^2 dy) at v points [L-3 ~> m-3] real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::idxdy2v idxdy2v 1/(dx dy^2) at v points [L-3 ~> m-3] real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::laplac2_const_xx laplac2_const_xx Laplacian metric-dependent constants [L2 ~> m2]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::biharm6_const_xx biharm6_const_xx Biharmonic metric-dependent constants [L6 ~> m6]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::laplac3_const_xx laplac3_const_xx Laplacian metric-dependent constants [L3 ~> m3]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::biharm_const_xx biharm_const_xx Biharmonic metric-dependent constants [L4 ~> m4]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::biharm_const2_xx biharm_const2_xx Biharmonic metric-dependent constants [T L4 ~> s m4]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::re_ah_const_xx re_ah_const_xx Biharmonic metric-dependent constants [L3 ~> m3]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::laplac2_const_xy laplac2_const_xy Laplacian metric-dependent constants [L2 ~> m2]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::biharm6_const_xy biharm6_const_xy Biharmonic metric-dependent constants [L6 ~> m6]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::laplac3_const_xy laplac3_const_xy Laplacian metric-dependent constants [L3 ~> m3]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::biharm_const_xy biharm_const_xy Biharmonic metric-dependent constants [L4 ~> m4]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::biharm_const2_xy biharm_const2_xy Biharmonic metric-dependent constants [T L4 ~> s m4]. real, dimension(:, :), allocatable real, dimension( : , : ), allocatable mom_hor_visc::hor_visc_cs::re_ah_const_xy re_ah_const_xy Biharmonic metric-dependent constants [L3 ~> m3]. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_hor_visc::hor_visc_cs::diag diag => NULL() structure to regulate diagnostics Control structure for horizontal viscosity. real logical mom_hor_visc::hor_visc_cs bound_ah answers_2018 better_bound_kh use_qg_leith_visc better_bound_ah biharmonic smagorinsky_kh use_gme dynamic_aniso bound_kh ... diag id_hf_diffv_2d id_grid_re_kh id_frictwork id_sh_xy_q id_ah_q id_hf_diffu_2d id_frictworkintz id_ah_h id_gme_coeff_q id_sh_xx_h ... laplac3_const_xy biharm_const_xx kh_bg_xy gme_efficiency biharm_const_xy re_ah_const_xx re_ah_const_xy laplac2_const_xx dx_dyt n1n1_m_n2n2_q ... diag_ctrl integer mom_hor_visc::hor_visc_csadd_les_viscosity mom_hor_visc::hor_visc_csah_bg_xx mom_hor_visc::hor_visc_csah_bg_xy mom_hor_visc::hor_visc_csah_max_xx mom_hor_visc::hor_visc_csah_max_xy mom_hor_visc::hor_visc_csanisotropic mom_hor_visc::hor_visc_csanswers_2018 mom_hor_visc::hor_visc_csbetter_bound_ah mom_hor_visc::hor_visc_csbetter_bound_kh mom_hor_visc::hor_visc_csbiharm6_const_xx mom_hor_visc::hor_visc_csbiharm6_const_xy mom_hor_visc::hor_visc_csbiharm_const2_xx mom_hor_visc::hor_visc_csbiharm_const2_xy mom_hor_visc::hor_visc_csbiharm_const_xx mom_hor_visc::hor_visc_csbiharm_const_xy mom_hor_visc::hor_visc_csbiharmonic mom_hor_visc::hor_visc_csbound_ah mom_hor_visc::hor_visc_csbound_coef mom_hor_visc::hor_visc_csbound_coriolis mom_hor_visc::hor_visc_csbound_kh mom_hor_visc::hor_visc_csdebug mom_hor_visc::hor_visc_csdiag mom_hor_visc::hor_visc_csdx2h mom_hor_visc::hor_visc_csdx2q mom_hor_visc::hor_visc_csdx_dybu mom_hor_visc::hor_visc_csdx_dyt mom_hor_visc::hor_visc_csdy2h mom_hor_visc::hor_visc_csdy2q mom_hor_visc::hor_visc_csdy_dxbu mom_hor_visc::hor_visc_csdy_dxt mom_hor_visc::hor_visc_csdynamic_aniso mom_hor_visc::hor_visc_csgme_efficiency mom_hor_visc::hor_visc_csgme_h0 mom_hor_visc::hor_visc_csgme_limiter mom_hor_visc::hor_visc_csgrid_sp_h2 mom_hor_visc::hor_visc_csgrid_sp_h3 mom_hor_visc::hor_visc_csid_ah_h mom_hor_visc::hor_visc_csid_ah_q mom_hor_visc::hor_visc_csid_diffu mom_hor_visc::hor_visc_csid_diffv mom_hor_visc::hor_visc_csid_div_xx_h mom_hor_visc::hor_visc_csid_frictwork mom_hor_visc::hor_visc_csid_frictwork_gme mom_hor_visc::hor_visc_csid_frictworkintz mom_hor_visc::hor_visc_csid_gme_coeff_h mom_hor_visc::hor_visc_csid_gme_coeff_q mom_hor_visc::hor_visc_csid_grid_re_ah mom_hor_visc::hor_visc_csid_grid_re_kh mom_hor_visc::hor_visc_csid_hf_diffu_2d mom_hor_visc::hor_visc_csid_hf_diffv_2d mom_hor_visc::hor_visc_csid_kh_h mom_hor_visc::hor_visc_csid_kh_q mom_hor_visc::hor_visc_csid_sh_xx_h mom_hor_visc::hor_visc_csid_sh_xy_q mom_hor_visc::hor_visc_csid_vort_xy_q mom_hor_visc::hor_visc_csidx2dycu mom_hor_visc::hor_visc_csidx2dycv mom_hor_visc::hor_visc_csidxdy2u mom_hor_visc::hor_visc_csidxdy2v mom_hor_visc::hor_visc_cskh_aniso mom_hor_visc::hor_visc_cskh_bg_2d mom_hor_visc::hor_visc_cskh_bg_min mom_hor_visc::hor_visc_cskh_bg_xx mom_hor_visc::hor_visc_cskh_bg_xy mom_hor_visc::hor_visc_cskh_max_xx mom_hor_visc::hor_visc_cskh_max_xy mom_hor_visc::hor_visc_cslaplac2_const_xx mom_hor_visc::hor_visc_cslaplac2_const_xy mom_hor_visc::hor_visc_cslaplac3_const_xx mom_hor_visc::hor_visc_cslaplac3_const_xy mom_hor_visc::hor_visc_cslaplacian mom_hor_visc::hor_visc_csleith_ah mom_hor_visc::hor_visc_csleith_kh mom_hor_visc::hor_visc_csmin_grid_ah mom_hor_visc::hor_visc_csmin_grid_kh mom_hor_visc::hor_visc_csmodified_leith mom_hor_visc::hor_visc_csn1n1_m_n2n2_h mom_hor_visc::hor_visc_csn1n1_m_n2n2_q mom_hor_visc::hor_visc_csn1n2_h mom_hor_visc::hor_visc_csn1n2_q mom_hor_visc::hor_visc_csno_slip mom_hor_visc::hor_visc_csre_ah mom_hor_visc::hor_visc_csre_ah_const_xx mom_hor_visc::hor_visc_csre_ah_const_xy mom_hor_visc::hor_visc_csreduction_xx mom_hor_visc::hor_visc_csreduction_xy mom_hor_visc::hor_visc_csres_scale_meke mom_hor_visc::hor_visc_cssmagorinsky_ah mom_hor_visc::hor_visc_cssmagorinsky_kh mom_hor_visc::hor_visc_csuse_beta_in_leith mom_hor_visc::hor_visc_csuse_gme mom_hor_visc::hor_visc_csuse_kh_bg_2d mom_hor_visc::hor_visc_csuse_land_mask mom_hor_visc::hor_visc_csuse_qg_leith_visc