34 |
C zgrid (0:Nr+1) - vertical levels of tracers (<=0) (m) |
C zgrid (0:Nr+1) - vertical levels of tracers (<=0) (m) |
35 |
C hwide (0:Nr+1) - layer thicknesses (>=0) (m) |
C hwide (0:Nr+1) - layer thicknesses (>=0) (m) |
36 |
C kpp_freq - Re-computation frequency for KPP parameters (s) |
C kpp_freq - Re-computation frequency for KPP parameters (s) |
37 |
|
C kpp_dumpFreq - KPP dump frequency. (s) |
38 |
|
C kpp_taveFreq - KPP time-averaging frequency. (s) |
39 |
|
|
40 |
INTEGER nzmax (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
INTEGER nzmax (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
41 |
_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) |
42 |
_RS zgrid (0:Nr+1) |
_RS zgrid (0:Nr+1) |
43 |
_RS hwide (0:Nr+1) |
_RS hwide (0:Nr+1) |
44 |
_RL kpp_freq |
_RL kpp_freq |
45 |
|
_RL kpp_dumpFreq |
46 |
|
_RL kpp_taveFreq |
47 |
|
|
48 |
COMMON /kpp_i/ nzmax |
COMMON /kpp_i/ nzmax |
49 |
|
|
50 |
COMMON /kpp_RS/ pMask, zgrid, hwide |
COMMON /kpp_RS/ pMask, zgrid, hwide |
51 |
|
|
52 |
COMMON /kpp_RL/ kpp_freq |
COMMON /kpp_RL/ kpp_freq, kpp_dumpFreq, kpp_taveFreq |
53 |
|
|
54 |
|
|
55 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |