/[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.3 by cnh, Wed Sep 26 18:09:14 2001 UTC revision 1.3.6.1 by heimbach, Wed Apr 17 14:05:34 2002 UTC
# Line 44  C     I, J, K - Loop counters Line 44  C     I, J, K - Loop counters
44        INTEGER i,j        INTEGER i,j
45  CEOP  CEOP
46    
47        DO j=jMin,jMax        DO j = 1-Oly, sNy+Oly
48         DO i=iMin,iMax         DO i = 1-Olx, sNx+Olx
49          KappaRU(i,j,k) = viscAr          KappaRU(i,j,k) = viscAr
50         ENDDO         ENDDO
51        ENDDO        ENDDO
52    
53        DO j=jMin,jMax        DO j = 1-Oly, sNy+Oly
54         DO i=iMin,iMax         DO i = 1-Olx, sNx+Olx
55          KappaRV(i,j,k) = viscAr          KappaRV(i,j,k) = viscAr
56         ENDDO         ENDDO
57        ENDDO        ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.6.1
  ViewVC Help
Powered by ViewVC 1.1.22