pkg/kl10/KL10.h

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