MOM6
MOM_MEKE_types.F90
1 module mom_meke_types
2 
3 ! This file is part of MOM6. See LICENSE.md for the license.
4 
5 implicit none ; private
6 
7 !> This type is used to exchange information related to the MEKE calculations.
8 type, public :: meke_type
9  ! Variables
10  real, dimension(:,:), pointer :: &
11  meke => null(), & !< Vertically averaged eddy kinetic energy [m2 s-2].
12  gm_src => null(), & !< MEKE source due to thickness mixing (GM) [W m-2].
13  mom_src => null(),& !< MEKE source from lateral friction in the momentum equations [W m-2].
14  gme_snk => null(),& !< MEKE sink from GME backscatter in the momentum equations [W m-2].
15  kh => null(), & !< The MEKE-derived lateral mixing coefficient [m2 s-1].
16  kh_diff => null(), & !< Uses the non-MEKE-derived thickness diffusion coefficient to diffuse
17  !! MEKE [m2 s-1].
18  rd_dx_h => null() !< The deformation radius compared with the grid spacing [nondim].
19  !! Rd_dx_h is copied from VarMix_CS.
20  real, dimension(:,:), pointer :: ku => null() !< The MEKE-derived lateral viscosity coefficient
21  !! [m2 T-1 ~> m2 s-1]. This viscosity can be negative when representing
22  !! backscatter from unresolved eddies (see Jansen and Held, 2014).
23  real, dimension(:,:), pointer :: au => null() !< The MEKE-derived lateral biharmonic viscosity
24  !! coefficient [m4 T-1 ~> m4 s-1].
25  ! Parameters
26  real :: khth_fac = 1.0 !< Multiplier to map Kh(MEKE) to KhTh [nondim]
27  real :: khtr_fac = 1.0 !< Multiplier to map Kh(MEKE) to KhTr [nondim].
28  real :: backscatter_ro_pow = 0.0 !< Power in Rossby number function for backscatter.
29  real :: backscatter_ro_c = 0.0 !< Coefficient in Rossby number function for backscatter.
30 
31 end type meke_type
32 
33 end module mom_meke_types
mom_meke_types::meke_type
This type is used to exchange information related to the MEKE calculations.
Definition: MOM_MEKE_types.F90:8