MOM_MEKE_types.F90

Go to the documentation of this file.

module mom_meke_types
!***********************************************************************
!*                   GNU General Public License                        *
!* This file is a part of MOM.                                         *
!*                                                                     *
!* MOM is free software; you can redistribute it and/or modify it and  *
!* are expected to follow the terms of the GNU General Public License  *
!* as published by the Free Software Foundation; either version 2 of   *
!* the License, or (at your option) any later version.                 *
!*                                                                     *
!* MOM is distributed in the hope that it will be useful, but WITHOUT  *
!* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY  *
!* or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public    *
!* License for more details.                                           *
!*                                                                     *
!* For the full text of the GNU General Public License,                *
!* write to: Free Software Foundation, Inc.,                           *
!*           675 Mass Ave, Cambridge, MA 02139, USA.                   *
!* or see:   http://www.gnu.org/licenses/gpl.html                      *
!***********************************************************************

!********+*********+*********+*********+*********+*********+*********+**
!*                                                                     *
!*    This program contains the subroutine that calculates the         *
!*  effects of horizontal viscosity, including parameterizations of    *
!*  the value of the viscosity itself. mesosclae_EKE calculates        *
!*  the evolution of sub-grid scale mesoscale EKE.                     *
!*                                                                     *
!********+*********+*********+*********+*********+*********+*********+**

implicit none ; private

type, public :: meke_type
  ! Variables
  real, dimension(:,:), pointer :: &
    meke => null(), &   ! Vertically averaged eddy kinetic energy, in m2 s-2.
    gm_src => null(), & ! MEKE source due to thickness mixing (GM), in W m-2.
    mom_src => null(),& ! MEKE source from lateral friction in the momentum
                        ! equations, in W m-2.
    kh => null(), &     ! The MEKE-derived lateral mixing coefficient in m2 s-1.
    rd_dx_h => null(), &! The deformation radius compared with the grid
                        ! spacing, copied from VarMix_CS, nondim.
    ku => null()        ! The MEKE-derived lateral viscosity coefficient in m2 s-1.
                        ! This viscosity can be negative when representing backscatter
                        ! from unresolved eddies (see Jansen and Held, 2014).
  ! Parameters
  real :: khth_fac = 1.0 ! Multiplier to map Kh(MEKE) to KhTh, nondim
  real :: khtr_fac = 1.0 ! Multiplier to map Kh(MEKE) to KhTr, nondim.
  real :: backscatter_ro_pow = 0.0 ! Power in Rossby number function for backscatter.
  real :: backscatter_ro_c = 0.0 ! Coefficient in Rossby number function for backscatter.
end type meke_type

end module mom_meke_types