pkg/kl10/KL10.h

C $Header: /u/gcmpack/MITgcm/pkg/pp81/PP81.h,v 1.1 2004/09/02 09:11:54 mlosch Exp $
C $Name:  $

#ifdef ALLOW_KL10

CBOP
C !ROUTINE: KL10.h

C !DESCRIPTION: \bv
C     /==========================================================\
C     | KL10.h                                                   |
C     | o Basic header for Klymak and Legg (2010)                |
C     |   vertical mixing parameterization for breaking          |
C     |   internal waves.                                        |
C     |   Contains all KL10 field declarations.                  |
C     \==========================================================/

C-----------------------------------------------------------------------
C
C Constants that can be set in data.kl10
C     KLdumpFreq, KLtaveFreq - analogue to dumpFreq and taveFreq
C                              (=default)
C     KLmixingMaps - if true, include KL diagnostic maps in STDOUT
C     KLwriteState - if true, write KL state to file
C
C Time varying parameters computed by subroutine kl_calc
C     KLviscAr - Vertical eddy viscosity coefficient         (m^2/s)
C     KLdiffKr - Vertical diffusion coefficient for heat,
C                salt and tracers                            (m^2/s)
C     KLeps    - Turbulence dissipation estimate             (m^2/s^3)
C
C-----------------------------------------------------------------------
C \ev
CEOP

C      INTEGER KLnRi
C      COMMON /KL10_PARMS_I/
C     &     KLnRi
      _RL    KLdumpFreq, KLtaveFreq, KLviscMax
      COMMON /KL10_PARMS_R/
     &     KLdumpFreq, KLtaveFreq, KLviscMax

      _RL KLviscAr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL KLdiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL KLeps (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      COMMON /KL_FIELDS/ KLviscAr, KLdiffKr, KLeps

      LOGICAL KL10isOn, KLwriteState
      COMMON /KL10_PARMS_L/
     &     KL10isOn, KLwriteState

#endif /* ALLOW_KL10 */
1	C $Header: /u/gcmpack/MITgcm/pkg/pp81/PP81.h,v 1.1 2004/09/02 09:11:54 mlosch Exp $
2	C $Name: $
3
4	#ifdef ALLOW_KL10
5
6	CBOP
7	C !ROUTINE: KL10.h
8
9	C !DESCRIPTION: \bv
10	C /==========================================================\
11	C \| KL10.h \|
12	C \| o Basic header for Klymak and Legg (2010) \|
13	C \| vertical mixing parameterization for breaking \|
14	C \| internal waves. \|
15	C \| Contains all KL10 field declarations. \|
16	C \==========================================================/
17
18	C-----------------------------------------------------------------------
19	C
20	C Constants that can be set in data.kl10
21	C KLdumpFreq, KLtaveFreq - analogue to dumpFreq and taveFreq
22	C (=default)
23	C KLmixingMaps - if true, include KL diagnostic maps in STDOUT
24	C KLwriteState - if true, write KL state to file
25	C
26	C Time varying parameters computed by subroutine kl_calc
27	C KLviscAr - Vertical eddy viscosity coefficient (m^2/s)
28	C KLdiffKr - Vertical diffusion coefficient for heat,
29	C salt and tracers (m^2/s)
30	C KLeps - Turbulence dissipation estimate (m^2/s^3)
31	C
32	C-----------------------------------------------------------------------
33	C \ev
34	CEOP
35
36	C INTEGER KLnRi
37	C COMMON /KL10_PARMS_I/
38	C & KLnRi
39	_RL KLdumpFreq, KLtaveFreq, KLviscMax
40	COMMON /KL10_PARMS_R/
41	& KLdumpFreq, KLtaveFreq, KLviscMax
42
43	_RL KLviscAr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
44	_RL KLdiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
45	_RL KLeps (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
46	COMMON /KL_FIELDS/ KLviscAr, KLdiffKr, KLeps
47
48	LOGICAL KL10isOn, KLwriteState
49	COMMON /KL10_PARMS_L/
50	& KL10isOn, KLwriteState
51
52	#endif /* ALLOW_KL10 */