3 |
|
|
4 |
SUBROUTINE KPP_CALC_VISC( |
SUBROUTINE KPP_CALC_VISC( |
5 |
I bi,bj,iMin,iMax,jMin,jMax,K, |
I bi,bj,iMin,iMax,jMin,jMax,K, |
|
I maskUp, |
|
6 |
U KappaRU,KappaRV, |
U KappaRU,KappaRV, |
7 |
I myThid) |
I myThid) |
8 |
|
|
21 |
|
|
22 |
C == Routine arguments == |
C == Routine arguments == |
23 |
C bi, bj, iMin, iMax, jMin, jMax - Range of points for which calculation |
C bi, bj, iMin, iMax, jMin, jMax - Range of points for which calculation |
|
C maskUp - land/water mask for Wvel points (above tracer level) |
|
24 |
C myThid - Instance number for this innvocation of CALC_COMMON_FACTORS |
C myThid - Instance number for this innvocation of CALC_COMMON_FACTORS |
25 |
C |
C |
26 |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
_RS maskUp(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
27 |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
28 |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
29 |
INTEGER myThid |
INTEGER myThid |