--- MITgcm/model/src/calc_viscosity.F	2001/09/26 18:09:14	1.3
+++ MITgcm/model/src/calc_viscosity.F	2002/04/17 14:05:34	1.3.6.1
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/calc_viscosity.F,v 1.3 2001/09/26 18:09:14 cnh Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/calc_viscosity.F,v 1.3.6.1 2002/04/17 14:05:34 heimbach Exp $
 C $Name:  $
 
 #include "CPP_OPTIONS.h"
@@ -44,14 +44,14 @@
       INTEGER i,j
 CEOP
 
-      DO j=jMin,jMax
-       DO i=iMin,iMax
+      DO j = 1-Oly, sNy+Oly
+       DO i = 1-Olx, sNx+Olx
         KappaRU(i,j,k) = viscAr
        ENDDO
       ENDDO
 
-      DO j=jMin,jMax
-       DO i=iMin,iMax
+      DO j = 1-Oly, sNy+Oly
+       DO i = 1-Olx, sNx+Olx
         KappaRV(i,j,k) = viscAr
        ENDDO
       ENDDO