4 |
CStartOfInterFace |
CStartOfInterFace |
5 |
SUBROUTINE CALC_VISCOSITY( |
SUBROUTINE CALC_VISCOSITY( |
6 |
I bi,bj,iMin,iMax,jMin,jMax,K, |
I bi,bj,iMin,iMax,jMin,jMax,K, |
|
I maskUp, |
|
7 |
O KappaRU,KappaRV, |
O KappaRU,KappaRV, |
8 |
I myThid) |
I myThid) |
9 |
|
|
22 |
|
|
23 |
C == Routine arguments == |
C == Routine arguments == |
24 |
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) |
|
25 |
C myThid - Instance number for this innvocation of CALC_COMMON_FACTORS |
C myThid - Instance number for this innvocation of CALC_COMMON_FACTORS |
26 |
C |
C |
27 |
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) |
|
28 |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
29 |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
30 |
INTEGER myThid |
INTEGER myThid |
49 |
#ifdef ALLOW_KPP |
#ifdef ALLOW_KPP |
50 |
IF (useKPP) CALL KPP_CALC_VISC( |
IF (useKPP) CALL KPP_CALC_VISC( |
51 |
I bi,bj,iMin+1,iMax,jMin+1,jMax,K, |
I bi,bj,iMin+1,iMax,jMin+1,jMax,K, |
|
I maskUp, |
|
52 |
O KappaRU,KappaRV, |
O KappaRU,KappaRV, |
53 |
I myThid) |
I myThid) |
54 |
#endif |
#endif |