mom_meke::meke_cs integer integer mom_meke::meke_cs::id_meke id_meke = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_ue id_ue = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_kh id_kh = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_src id_src = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_ub id_ub = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_ut id_ut = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_gm_src id_gm_src = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_mom_src id_mom_src = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_gme_snk id_gme_snk = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_decay id_decay = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_khmeke_u id_khmeke_u = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_khmeke_v id_khmeke_v = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_ku id_ku = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_au id_au = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_le id_le = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_gamma_b id_gamma_b = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_gamma_t id_gamma_t = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_lrhines id_lrhines = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_leady id_leady = -1 Diagnostic handles. integer integer mom_meke::meke_cs::id_meke_equilibrium id_meke_equilibrium = -1 Diagnostic handles. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_meke::meke_cs::equilibrium_value equilibrium_value => NULL() The equilbrium value of MEKE to be calculated at each time step [L2 T-2 ~> m2 s-2]. real real mom_meke::meke_cs::meke_frcoeff meke_frcoeff Efficiency of conversion of ME into MEKE [nondim]. real real mom_meke::meke_cs::meke_gmcoeff meke_gmcoeff Efficiency of conversion of PE into MEKE [nondim]. real real mom_meke::meke_cs::meke_gmecoeff meke_gmecoeff Efficiency of conversion of MEKE into ME by GME [nondim]. real real mom_meke::meke_cs::meke_damping meke_damping Local depth-independent MEKE dissipation rate [T-1 ~> s-1]. real real mom_meke::meke_cs::meke_cd_scale meke_cd_scale The ratio of the bottom eddy velocity to the column mean eddy velocity, i.e. sqrt(2*MEKE). This should be less than 1 to account for the surface intensification of MEKE. real real mom_meke::meke_cs::meke_cb meke_cb Coefficient in the $\gamma_{bot}$ expression [nondim]. real real mom_meke::meke_cs::meke_min_gamma meke_min_gamma Minimum value of gamma_b^2 allowed [nondim]. real real mom_meke::meke_cs::meke_ct meke_ct Coefficient in the $\gamma_{bt}$ expression [nondim]. logical logical mom_meke::meke_cs::visc_drag visc_drag If true use the vertvisc_type to calculate bottom drag. logical logical mom_meke::meke_cs::meke_geometric meke_geometric If true, uses the GM coefficient formulation from the GEOMETRIC framework (Marshall et al., 2012) real real mom_meke::meke_cs::meke_geometric_alpha meke_geometric_alpha The nondimensional coefficient governing the efficiency of the GEOMETRIC thickness diffusion. logical logical mom_meke::meke_cs::meke_equilibrium_alt meke_equilibrium_alt If true, use an alternative calculation for the equilibrium value of MEKE. logical logical mom_meke::meke_cs::meke_equilibrium_restoring meke_equilibrium_restoring If true, restore MEKE back to its equilibrium value, which is calculated at each time step. logical logical mom_meke::meke_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 MEKE GM source term. logical logical mom_meke::meke_cs::rd_as_max_scale rd_as_max_scale If true the length scale can not exceed the first baroclinic deformation radius. logical logical mom_meke::meke_cs::use_old_lscale use_old_lscale Use the old formula for mixing length scale. logical logical mom_meke::meke_cs::use_min_lscale use_min_lscale Use simple minimum for mixing length scale. real real mom_meke::meke_cs::cdrag cdrag The bottom drag coefficient for MEKE [nondim]. real real mom_meke::meke_cs::meke_bgsrc meke_bgsrc Background energy source for MEKE [L2 T-3 ~> W kg-1] (= m2 s-3). real real mom_meke::meke_cs::meke_dtscale meke_dtscale Scale factor to accelerate time-stepping [nondim]. real real mom_meke::meke_cs::meke_khcoeff meke_khcoeff Scaling factor to convert MEKE into Kh [nondim]. real real mom_meke::meke_cs::meke_uscale meke_uscale MEKE velocity scale for bottom drag [L T-1 ~> m s-1]. real real mom_meke::meke_cs::meke_kh meke_kh Background lateral diffusion of MEKE [L2 T-1 ~> m2 s-1]. real real mom_meke::meke_cs::meke_k4 meke_k4 Background bi-harmonic diffusivity (of MEKE) [L4 T-1 ~> m4 s-1]. real real mom_meke::meke_cs::khmeke_fac khmeke_fac A factor relating MEKEKh to the diffusivity used for MEKE itself [nondim]. real real mom_meke::meke_cs::viscosity_coeff_ku viscosity_coeff_ku The scaling coefficient in the expression for viscosity used to parameterize lateral harmonic momentum mixing by unresolved eddies represented by MEKE. real real mom_meke::meke_cs::viscosity_coeff_au viscosity_coeff_au The scaling coefficient in the expression for viscosity used to parameterize lateral biharmonic momentum mixing by unresolved eddies represented by MEKE. real real mom_meke::meke_cs::lfixed lfixed Fixed mixing length scale [L ~> m]. real real mom_meke::meke_cs::adeform adeform Weighting towards deformation scale of mixing length [nondim]. real real mom_meke::meke_cs::arhines arhines Weighting towards Rhines scale of mixing length [nondim]. real real mom_meke::meke_cs::africt africt Weighting towards frictional arrest scale of mixing length [nondim]. real real mom_meke::meke_cs::aeady aeady Weighting towards Eady scale of mixing length [nondim]. real real mom_meke::meke_cs::agrid agrid Weighting towards grid scale of mixing length [nondim]. real real mom_meke::meke_cs::meke_advection_factor meke_advection_factor A scaling in front of the advection of MEKE [nondim]. real real mom_meke::meke_cs::meke_topographic_beta meke_topographic_beta Weight for how much topographic beta is considered when computing beta in Rhines scale [nondim]. real real mom_meke::meke_cs::meke_restoring_rate meke_restoring_rate Inverse of the timescale used to nudge MEKE toward its equilibrium value [s-1]. logical logical mom_meke::meke_cs::kh_flux_enabled kh_flux_enabled If true, lateral diffusive MEKE flux is enabled. logical logical mom_meke::meke_cs::initialize initialize If True, invokes a steady state solver to calculate MEKE. logical logical mom_meke::meke_cs::debug debug If true, write out checksums of data for debugging. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_meke::meke_cs::diag diag => NULL() A type that regulates diagnostics output. integer integer mom_meke::meke_cs::id_clock_pass id_clock_pass Clock for group pass calls. type(group_pass_type) type(group_pass_type) mom_meke::meke_cs::pass_meke pass_meke Group halo pass handle for MEKEMEKE and maybe MEKEKh_diff. type(group_pass_type) type(group_pass_type) mom_meke::meke_cs::pass_kh pass_kh Group halo pass handle for MEKEKh, MEKEKu, and/or MEKEAu. Control structure that contains MEKE parameters and diagnostics handles. real logical mom_meke::meke_cs meke_geometric meke_equilibrium_alt rd_as_max_scale initialize meke_equilibrium_restoring kh_flux_enabled use_old_lscale use_min_lscale gm_src_alt debug ... pass_kh pass_meke diag id_mom_src id_gm_src id_src id_leady id_au id_meke id_meke_equilibrium id_decay id_le id_ku ... adeform viscosity_coeff_ku cdrag agrid meke_gmecoeff equilibrium_value meke_advection_factor meke_uscale meke_cd_scale meke_damping ... diag_ctrl integer group_pass_type mom_meke::meke_csadeform mom_meke::meke_csaeady mom_meke::meke_csafrict mom_meke::meke_csagrid mom_meke::meke_csarhines mom_meke::meke_cscdrag mom_meke::meke_csdebug mom_meke::meke_csdiag mom_meke::meke_csequilibrium_value mom_meke::meke_csgm_src_alt mom_meke::meke_csid_au mom_meke::meke_csid_clock_pass mom_meke::meke_csid_decay mom_meke::meke_csid_gamma_b mom_meke::meke_csid_gamma_t mom_meke::meke_csid_gm_src mom_meke::meke_csid_gme_snk mom_meke::meke_csid_kh mom_meke::meke_csid_khmeke_u mom_meke::meke_csid_khmeke_v mom_meke::meke_csid_ku mom_meke::meke_csid_le mom_meke::meke_csid_leady mom_meke::meke_csid_lrhines mom_meke::meke_csid_meke mom_meke::meke_csid_meke_equilibrium mom_meke::meke_csid_mom_src mom_meke::meke_csid_src mom_meke::meke_csid_ub mom_meke::meke_csid_ue mom_meke::meke_csid_ut mom_meke::meke_csinitialize mom_meke::meke_cskh_flux_enabled mom_meke::meke_cskhmeke_fac mom_meke::meke_cslfixed mom_meke::meke_csmeke_advection_factor mom_meke::meke_csmeke_bgsrc mom_meke::meke_csmeke_cb mom_meke::meke_csmeke_cd_scale mom_meke::meke_csmeke_ct mom_meke::meke_csmeke_damping mom_meke::meke_csmeke_dtscale mom_meke::meke_csmeke_equilibrium_alt mom_meke::meke_csmeke_equilibrium_restoring mom_meke::meke_csmeke_frcoeff mom_meke::meke_csmeke_geometric mom_meke::meke_csmeke_geometric_alpha mom_meke::meke_csmeke_gmcoeff mom_meke::meke_csmeke_gmecoeff mom_meke::meke_csmeke_k4 mom_meke::meke_csmeke_kh mom_meke::meke_csmeke_khcoeff mom_meke::meke_csmeke_min_gamma mom_meke::meke_csmeke_restoring_rate mom_meke::meke_csmeke_topographic_beta mom_meke::meke_csmeke_uscale mom_meke::meke_cspass_kh mom_meke::meke_cspass_meke mom_meke::meke_csrd_as_max_scale mom_meke::meke_csuse_min_lscale mom_meke::meke_csuse_old_lscale mom_meke::meke_csvisc_drag mom_meke::meke_csviscosity_coeff_au mom_meke::meke_csviscosity_coeff_ku