/[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.9 by jmc, Thu Oct 8 20:03:18 2009 UTC revision 1.10 by jmc, Wed Jul 30 03:31:35 2014 UTC
# Line 37  C     KappaRV :: Total vertical viscosit Line 37  C     KappaRV :: Total vertical viscosit
37  C     myThid  :: my Thread Id number  C     myThid  :: my Thread Id number
38        INTEGER iMin,iMax,jMin,jMax        INTEGER iMin,iMax,jMin,jMax
39        INTEGER bi,bj        INTEGER bi,bj
40        _RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)        _RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
41        _RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)        _RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
42        INTEGER myThid        INTEGER myThid
43    
44  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
# Line 49  CEOP Line 49  CEOP
49    
50        DO k = 1,Nr        DO k = 1,Nr
51    
52         DO j = 1-Oly, sNy+Oly         DO j = 1-OLy, sNy+OLy
53          DO i = 1-Olx, sNx+Olx          DO i = 1-OLx, sNx+OLx
54           KappaRU(i,j,k) = viscArNr(k)           KappaRU(i,j,k) = viscArNr(k)
55           KappaRV(i,j,k) = viscArNr(k)           KappaRV(i,j,k) = viscArNr(k)
56          ENDDO          ENDDO
# Line 68  CEOP Line 68  CEOP
68       I        bi,bj, iMin,iMax,jMin,jMax, k,       I        bi,bj, iMin,iMax,jMin,jMax, k,
69       O        KappaRU,KappaRV,       O        KappaRU,KappaRV,
70       I        myThid)       I        myThid)
71    #endif
72    
73    #ifdef ALLOW_KL10
74           IF (useKL10) CALL KL10_CALC_VISC(
75         I        bi,bj, iMin,iMax,jMin,jMax, k,
76         O        KappaRU,KappaRV,
77         I        myThid)
78  #endif  #endif
79    
80  #ifdef ALLOW_MY82  #ifdef ALLOW_MY82
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22