26 |
|
|
27 |
#ifdef ALLOW_KPP |
#ifdef ALLOW_KPP |
28 |
|
|
29 |
|
C Package on/off information |
30 |
|
LOGICAL kppPackageIsOn |
31 |
|
COMMON /KPP_PKG/ kppPackageIsOn |
32 |
|
|
33 |
C Time invariant parameters initialized by subroutine kmixinit |
C Time invariant parameters initialized by subroutine kmixinit |
34 |
C nzmax (nx,ny) - Maximum number of wet levels in each column |
C nzmax (nx,ny) - Maximum number of wet levels in each column |
35 |
C pMask - Mask relating to Pressure/Tracer point grid. |
C pMask - Mask relating to Pressure/Tracer point grid. |
41 |
C kpp_dumpFreq - KPP dump frequency. (s) |
C kpp_dumpFreq - KPP dump frequency. (s) |
42 |
C kpp_taveFreq - KPP time-averaging frequency. (s) |
C kpp_taveFreq - KPP time-averaging frequency. (s) |
43 |
|
|
44 |
|
|
45 |
INTEGER nzmax (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
INTEGER nzmax (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
46 |
_RS pMask (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RS pMask (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
47 |
_RS zgrid (0:Nr+1) |
_RS zgrid (0:Nr+1) |