pkg/kl10/KL10.h

d8d1486ca1 Jean*0001 #ifdef ALLOW_KL10
                0002
                0003 CBOP
                0004 C !ROUTINE: KL10.h
                0005
                0006 C !DESCRIPTION: \bv
b7411f1a84 Jean*0007 C     *==========================================================*
d8d1486ca1 Jean*0008 C     | KL10.h                                                   |
                0009 C     | o Basic header for Klymak and Legg (2010)                |
                0010 C     |   vertical mixing parameterization for breaking          |
                0011 C     |   internal waves.                                        |
                0012 C     |   Contains all KL10 field declarations.                  |
b7411f1a84 Jean*0013 C     *==========================================================*
d8d1486ca1 Jean*0014
                0015 C-----------------------------------------------------------------------
                0016 C
                0017 C Constants that can be set in data.kl10
b7411f1a84 Jean*0018 C     KLdumpFreq - analogue to dumpFreq (=default)
d8d1486ca1 Jean*0019 C     KLmixingMaps - if true, include KL diagnostic maps in STDOUT
                0020 C     KLwriteState - if true, write KL state to file
                0021 C
                0022 C Time varying parameters computed by subroutine kl_calc
                0023 C     KLviscAr - Vertical eddy viscosity coefficient         (m^2/s)
                0024 C     KLdiffKr - Vertical diffusion coefficient for heat,
                0025 C                salt and tracers                            (m^2/s)
                0026 C     KLeps    - Turbulence dissipation estimate             (m^2/s^3)
                0027 C
                0028 C-----------------------------------------------------------------------
                0029 C \ev
                0030 CEOP
                0031
                0032 C      INTEGER KLnRi
                0033 C      COMMON /KL10_PARMS_I/
                0034 C     &     KLnRi
b7411f1a84 Jean*0035       _RL    KLdumpFreq, KLviscMax
d8d1486ca1 Jean*0036       COMMON /KL10_PARMS_R/
b7411f1a84 Jean*0037      &     KLdumpFreq, KLviscMax
d8d1486ca1 Jean*0038
                0039       _RL KLviscAr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0040       _RL KLdiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0041       _RL KLeps (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0042       COMMON /KL_FIELDS/ KLviscAr, KLdiffKr, KLeps
                0043
                0044       LOGICAL KL10isOn, KLwriteState
                0045       COMMON /KL10_PARMS_L/
                0046      &     KL10isOn, KLwriteState
                0047
                0048 #endif /* ALLOW_KL10 */