mom_thickness_diffuse::thickness_diffuse_cs integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_uhgm id_uhgm = -1 Diagnostic identifier. integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_vhgm id_vhgm = -1 Diagnostic identifier. integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_gmwork id_gmwork = -1 Diagnostic identifier. integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_kh_u id_kh_u = -1 Diagnostic identifier. integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_kh_v id_kh_v = -1 Diagnostic identifier. integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_kh_t id_kh_t = -1 Diagnostic identifier. integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_kh_u1 id_kh_u1 = -1 Diagnostic identifier. integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_kh_v1 id_kh_v1 = -1 Diagnostic identifier. integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_kh_t1 id_kh_t1 = -1 Diagnostic identifier. integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_slope_x id_slope_x = -1 Diagnostic identifier. integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_slope_y id_slope_y = -1 Diagnostic identifier. integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_sfn_unlim_x id_sfn_unlim_x = -1 Diagnostic identifier. integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_sfn_unlim_y id_sfn_unlim_y = -1 Diagnostic identifier. integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_sfn_x id_sfn_x = -1 Diagnostic identifier. integer integer mom_thickness_diffuse::thickness_diffuse_cs::id_sfn_y id_sfn_y = -1 Diagnostic identifier. real real mom_thickness_diffuse::thickness_diffuse_cs::khth khth Background interface depth diffusivity [L2 T-1 ~> m2 s-1]. real real mom_thickness_diffuse::thickness_diffuse_cs::khth_slope_cff khth_slope_cff Slope dependence coefficient of Khth [nondim]. real real mom_thickness_diffuse::thickness_diffuse_cs::max_khth_cfl max_khth_cfl Maximum value of the diffusive CFL for thickness diffusion. real real mom_thickness_diffuse::thickness_diffuse_cs::khth_min khth_min Minimum value of Khth [L2 T-1 ~> m2 s-1]. real real mom_thickness_diffuse::thickness_diffuse_cs::khth_max khth_max Maximum value of Khth [L2 T-1 ~> m2 s-1], or 0 for no max. real real mom_thickness_diffuse::thickness_diffuse_cs::slope_max slope_max Slopes steeper than slope_max are limited in some way [nondim]. real real mom_thickness_diffuse::thickness_diffuse_cs::kappa_smooth kappa_smooth Vertical diffusivity used to interpolate more sensible values of T & S into thin layers [Z2 T-1 ~> m2 s-1]. logical logical mom_thickness_diffuse::thickness_diffuse_cs::thickness_diffuse thickness_diffuse If true, interfaces heights are diffused. logical logical mom_thickness_diffuse::thickness_diffuse_cs::use_fgnv_streamfn use_fgnv_streamfn If true, use the streamfunction formulation of Ferrari et al., 2010, which effectively emphasizes graver vertical modes by smoothing in the vertical. real real mom_thickness_diffuse::thickness_diffuse_cs::fgnv_scale fgnv_scale A coefficient scaling the vertical smoothing term in the Ferrari et al., 2010, streamfunction formulation [nondim]. real real mom_thickness_diffuse::thickness_diffuse_cs::fgnv_c_min fgnv_c_min A minimum wave speed used in the Ferrari et al., 2010, streamfunction formulation [L T-1 ~> m s-1]. real real mom_thickness_diffuse::thickness_diffuse_cs::n2_floor n2_floor A floor for Brunt-Vasaila frequency in the Ferrari et al., 2010, streamfunction formulation [T-2 ~> s-2]. logical logical mom_thickness_diffuse::thickness_diffuse_cs::detangle_interfaces detangle_interfaces If true, add 3-d structured interface height diffusivities to horizontally smooth jagged layers. real real mom_thickness_diffuse::thickness_diffuse_cs::detangle_time detangle_time If detangle_interfaces is true, this is the timescale over which maximally jagged grid-scale thickness variations are suppressed [T ~> s]. This must be longer than DT, or 0 (the default) to use DT. integer integer mom_thickness_diffuse::thickness_diffuse_cs::nkml nkml number of layers within mixed layer logical logical mom_thickness_diffuse::thickness_diffuse_cs::debug debug write verbose checksums for debugging purposes logical logical mom_thickness_diffuse::thickness_diffuse_cs::use_gme_thickness_diffuse use_gme_thickness_diffuse If true, passes GM coefficients to MOM_hor_visc for use with GME closure. logical logical mom_thickness_diffuse::thickness_diffuse_cs::meke_geometric meke_geometric If true, uses the GM coefficient formulation from the GEOMETRIC framework (Marshall et al., 2012) real real mom_thickness_diffuse::thickness_diffuse_cs::meke_geometric_alpha meke_geometric_alpha The nondimensional coefficient governing the efficiency of the GEOMETRIC thickness difussion [nondim]. real real mom_thickness_diffuse::thickness_diffuse_cs::meke_geometric_epsilon meke_geometric_epsilon Minimum Eady growth rate for the GEOMETRIC thickness diffusivity [T-1 ~> s-1]. logical logical mom_thickness_diffuse::thickness_diffuse_cs::meke_geom_answers_2018 meke_geom_answers_2018 If true, use expressions in the MEKE_GEOMETRIC calculation that recover the answers from the original implementation. Otherwise, use expressions that satisfy rotational symmetry. logical logical mom_thickness_diffuse::thickness_diffuse_cs::use_kh_in_meke use_kh_in_meke If true, uses the thickness diffusivity calculated here to diffuse MEKE. logical logical mom_thickness_diffuse::thickness_diffuse_cs::gm_src_alt gm_src_alt If true, use the GM energy conversion form S^2*N^2*kappa rather than the streamfunction for the GM source term. logical logical mom_thickness_diffuse::thickness_diffuse_cs::use_gm_work_bug use_gm_work_bug If true, use the incorrect sign for the top-level work tendency on the top layer. real real mom_thickness_diffuse::thickness_diffuse_cs::stanley_det_coeff stanley_det_coeff The coefficient correlating SGS temperature variance with the mean temperature gradient in the deterministic part of the Stanley parameterization. Negative values disable the scheme." [nondim]. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_thickness_diffuse::thickness_diffuse_cs::diag diag => NULL() structure used to regulate timing of diagnostics real, dimension(:,:), pointer real, dimension(:,:), pointer mom_thickness_diffuse::thickness_diffuse_cs::gmwork gmwork => NULL() Work by thickness diffusivity [R Z L2 T-3 ~> W m-2]. real, dimension(:,:,:), pointer real, dimension(:,:,:), pointer mom_thickness_diffuse::thickness_diffuse_cs::diagslopex diagslopex => NULL() Diagnostic: zonal neutral slope [nondim]. real, dimension(:,:,:), pointer real, dimension(:,:,:), pointer mom_thickness_diffuse::thickness_diffuse_cs::diagslopey diagslopey => NULL() Diagnostic: zonal neutral slope [nondim]. real, dimension(:,:,:), pointer real, dimension(:,:,:), pointer mom_thickness_diffuse::thickness_diffuse_cs::kh_u_gme kh_u_gme => NULL() interface height diffusivities in u-columns [L2 T-1 ~> m2 s-1] real, dimension(:,:,:), pointer real, dimension(:,:,:), pointer mom_thickness_diffuse::thickness_diffuse_cs::kh_v_gme kh_v_gme => NULL() interface height diffusivities in v-columns [L2 T-1 ~> m2 s-1] Control structure for thickness diffusion. real mom_thickness_diffuse::thickness_diffuse_cs meke_geometric thickness_diffuse meke_geom_answers_2018 use_gm_work_bug use_gme_thickness_diffuse use_fgnv_streamfn gm_src_alt detangle_interfaces use_kh_in_meke debug ... diag id_kh_t1 id_gmwork id_kh_u1 id_kh_v1 id_sfn_x id_sfn_unlim_x id_sfn_y id_sfn_unlim_y id_slope_x id_slope_y ... meke_geometric_epsilon khth_min khth diagslopex khth_slope_cff diagslopey fgnv_scale gmwork max_khth_cfl kh_u_gme ... logical diag_ctrl integer mom_thickness_diffuse::thickness_diffuse_csdebug mom_thickness_diffuse::thickness_diffuse_csdetangle_interfaces mom_thickness_diffuse::thickness_diffuse_csdetangle_time mom_thickness_diffuse::thickness_diffuse_csdiag mom_thickness_diffuse::thickness_diffuse_csdiagslopex mom_thickness_diffuse::thickness_diffuse_csdiagslopey mom_thickness_diffuse::thickness_diffuse_csfgnv_c_min mom_thickness_diffuse::thickness_diffuse_csfgnv_scale mom_thickness_diffuse::thickness_diffuse_csgm_src_alt mom_thickness_diffuse::thickness_diffuse_csgmwork mom_thickness_diffuse::thickness_diffuse_csid_gmwork mom_thickness_diffuse::thickness_diffuse_csid_kh_t mom_thickness_diffuse::thickness_diffuse_csid_kh_t1 mom_thickness_diffuse::thickness_diffuse_csid_kh_u mom_thickness_diffuse::thickness_diffuse_csid_kh_u1 mom_thickness_diffuse::thickness_diffuse_csid_kh_v mom_thickness_diffuse::thickness_diffuse_csid_kh_v1 mom_thickness_diffuse::thickness_diffuse_csid_sfn_unlim_x mom_thickness_diffuse::thickness_diffuse_csid_sfn_unlim_y mom_thickness_diffuse::thickness_diffuse_csid_sfn_x mom_thickness_diffuse::thickness_diffuse_csid_sfn_y mom_thickness_diffuse::thickness_diffuse_csid_slope_x mom_thickness_diffuse::thickness_diffuse_csid_slope_y mom_thickness_diffuse::thickness_diffuse_csid_uhgm mom_thickness_diffuse::thickness_diffuse_csid_vhgm mom_thickness_diffuse::thickness_diffuse_cskappa_smooth mom_thickness_diffuse::thickness_diffuse_cskh_u_gme mom_thickness_diffuse::thickness_diffuse_cskh_v_gme mom_thickness_diffuse::thickness_diffuse_cskhth mom_thickness_diffuse::thickness_diffuse_cskhth_max mom_thickness_diffuse::thickness_diffuse_cskhth_min mom_thickness_diffuse::thickness_diffuse_cskhth_slope_cff mom_thickness_diffuse::thickness_diffuse_csmax_khth_cfl mom_thickness_diffuse::thickness_diffuse_csmeke_geom_answers_2018 mom_thickness_diffuse::thickness_diffuse_csmeke_geometric mom_thickness_diffuse::thickness_diffuse_csmeke_geometric_alpha mom_thickness_diffuse::thickness_diffuse_csmeke_geometric_epsilon mom_thickness_diffuse::thickness_diffuse_csn2_floor mom_thickness_diffuse::thickness_diffuse_csnkml mom_thickness_diffuse::thickness_diffuse_csslope_max mom_thickness_diffuse::thickness_diffuse_csstanley_det_coeff mom_thickness_diffuse::thickness_diffuse_csthickness_diffuse mom_thickness_diffuse::thickness_diffuse_csuse_fgnv_streamfn mom_thickness_diffuse::thickness_diffuse_csuse_gm_work_bug mom_thickness_diffuse::thickness_diffuse_csuse_gme_thickness_diffuse mom_thickness_diffuse::thickness_diffuse_csuse_kh_in_meke