forked from altMITgcm/MITgcm
-
Notifications
You must be signed in to change notification settings - Fork 0
/
KPP.h
49 lines (42 loc) · 1.95 KB
/
KPP.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
C $Header: /u/gcmpack/MITgcm/pkg/kpp/KPP.h,v 1.10 2007/12/18 09:05:59 dimitri Exp $
C $Name: $
#ifdef ALLOW_KPP
CBOP
C !ROUTINE: KPP.h
C !DESCRIPTION: \bv
C /==========================================================\
C | KPP.h |
C | o Basic header for KPP vertical mixing parameterization. |
C | Contains all KPP field declarations. |
C \==========================================================/
C-----------------------------------------------------------------------
C
C Time varying parameters computed by subroutine kpp_calc
C KPPviscAz - Vertical eddy viscosity coefficient (m^2/s)
C KPPdiffKzS - Vertical diffusion coefficient for salt and tracers(m^2/s)
C KPPdiffKzT - Vertical diffusion coefficient for heat (m^2/s)
C KPPghat - Nonlocal transport coefficient (s/m^2)
C KPPhbl - Mixing layer depth (m)
C KPPfrac - Fraction of short-wave flux penetrating mixing layer
C KPPplumefrac - Fraction of saltplume penetrating mixing layer
C
C-----------------------------------------------------------------------
C \ev
CEOP
_RL KPPviscAz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
_RL KPPdiffKzS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
_RL KPPdiffKzT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
_RL KPPghat (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
_RL KPPhbl (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
_RL KPPfrac (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
COMMON /kpp/ KPPviscAz, KPPdiffKzT, KPPdiffKzS
& , KPPghat, KPPhbl
#ifdef ALLOW_SALT_PLUME
_RL KPPplumefrac(1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
COMMON /kpp_short1/ KPPplumefrac
#endif /* ALLOW_SALT_PLUME */
COMMON /kpp_short/ KPPfrac
#endif /* ALLOW_KPP */
CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***