pkg/my82/MY82.h

08be60903a Mart*0001 #ifdef ALLOW_MY82
                0002
                0003 CBOP
                0004 C !ROUTINE: MY82.h
                0005
                0006 C !DESCRIPTION: \bv
016b84c482 Mart*0007 C     *==========================================================*
                0008 C     | MY82.h                                                   |
                0009 C     | o Basic header for Mellor & Yamada (1982), level 2.0     |
08be60903a Mart*0010 C     |   vertical mixing parameterization.                      |
016b84c482 Mart*0011 C     |   Contains all MY82 field declarations.                  |
                0012 C     *==========================================================*
08be60903a Mart*0013
                0014 C-----------------------------------------------------------------------
                0015 C
016b84c482 Mart*0016 C Constants that can be set in data.my82
08be60903a Mart*0017 C     MYviscMax, MYdiffMax   - maximum allowed viscosity, diffusivity
                0018 C     MYhblScale             - scale the boundary length scale
                0019 C     RiMax                  - Maximum of Richardson number
016b84c482 Mart*0020 C     MYdumpFreq       - analogue to dumpFreq (=default)
08be60903a Mart*0021 C     MYmixingMaps     - if true, include MY diagnostic maps in STDOUT
                0022 C     MYwriteState     - if true, write MY state to file
                0023 C
                0024 C Time varying parameters computed by subroutine pp_calc
                0025 C     MYviscAr - Vertical eddy viscosity coefficient                (m^2/s)
016b84c482 Mart*0026 C     MYdiffKr - Vertical diffusion coefficient for heat,
08be60903a Mart*0027 C                salt and tracers                                   (m^2/s)
                0028 C
                0029 C-----------------------------------------------------------------------
                0030 C \ev
                0031 CEOP
                0032
                0033 C     Magic parameters of Mellor&Yamada(1982):
                0034 C     (M. Satoh, p.315)
                0035       _RL A1, A2, B1, B2, C1
8fef4b1a57 Mart*0036       PARAMETER( A1 = 0.92D0 )
                0037       PARAMETER( A2 = 0.74D0 )
                0038       PARAMETER( B1 = 16.6D0 )
                0039       PARAMETER( B2 = 10.1D0 )
                0040       PARAMETER( C1 = 0.08D0 )
08be60903a Mart*0041
                0042       _RL    alpha1, alpha2
                0043       _RL    beta1, beta2, beta3, beta4
                0044       _RL    RiMax
                0045       _RL    MYhblScale
                0046       _RL    MYviscMax, MYdiffMax
016b84c482 Mart*0047       _RL    MYdumpFreq
                0048       COMMON /MY_PARMS_R/
08be60903a Mart*0049      &     alpha1, alpha2, beta1, beta2, beta3, beta4,
                0050      &     RiMax, MYhblScale,
                0051      &     MYviscMax, MYdiffMax,
016b84c482 Mart*0052      &     MYdumpFreq
08be60903a Mart*0053
                0054       _RL MYhbl    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,   nSx,nSy)
                0055       _RL MYviscAr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0056       _RL MYdiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0057       COMMON /MY_FIELDS/ MYhbl, MYviscAr, MYdiffKr
                0058
                0059       LOGICAL MYisOn, MYmixingMaps, MYwriteState
                0060       COMMON /MY_PARMS_L/
                0061      &     MYisOn, MYmixingMaps, MYwriteState
                0062
                0063 #endif /* ALLOW_MY82 */