/[MITgcm]/MITgcm/model/src/calc_viscosity.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_viscosity.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by heimbach, Mon Aug 13 18:05:26 2001 UTC revision 1.2 by heimbach, Mon Aug 13 23:27:53 2001 UTC
# Line 4  Line 4 
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    
# Line 23  C     == GLobal variables == Line 22  C     == GLobal variables ==
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
# Line 52  C     I, J, K - Loop counters Line 49  C     I, J, K - Loop counters
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
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22