36 |
C pMask - Mask relating to Pressure/Tracer point grid. |
C pMask - Mask relating to Pressure/Tracer point grid. |
37 |
C 0. if P point is on land. |
C 0. if P point is on land. |
38 |
C 1. if P point is in water. |
C 1. if P point is in water. |
39 |
|
C Note: use now maskC since pMask is identical to maskC |
40 |
C zgrid (0:Nr+1) - vertical levels of tracers (<=0) (m) |
C zgrid (0:Nr+1) - vertical levels of tracers (<=0) (m) |
41 |
C hwide (0:Nr+1) - layer thicknesses (>=0) (m) |
C hwide (0:Nr+1) - layer thicknesses (>=0) (m) |
42 |
C kpp_freq - Re-computation frequency for KPP parameters (s) |
C kpp_freq - Re-computation frequency for KPP parameters (s) |
45 |
|
|
46 |
|
|
47 |
INTEGER nzmax ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, nSx, nSy ) |
INTEGER nzmax ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, nSx, nSy ) |
48 |
_KPP_RL pMask ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr, nSx, nSy ) |
c _KPP_RL pMask ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr, nSx, nSy ) |
49 |
_KPP_RL zgrid ( 0:Nr+1 ) |
_KPP_RL zgrid ( 0:Nr+1 ) |
50 |
_KPP_RL hwide ( 0:Nr+1 ) |
_KPP_RL hwide ( 0:Nr+1 ) |
51 |
_RL kpp_freq |
_RL kpp_freq |
54 |
|
|
55 |
COMMON /kpp_i/ nzmax |
COMMON /kpp_i/ nzmax |
56 |
|
|
57 |
COMMON /kpp_r1/ pMask, zgrid, hwide |
COMMON /kpp_r1/ zgrid, hwide |
58 |
|
|
59 |
COMMON /kpp_r2/ kpp_freq, kpp_dumpFreq, kpp_taveFreq |
COMMON /kpp_r2/ kpp_freq, kpp_dumpFreq, kpp_taveFreq |
60 |
|
|