--- MITgcm/pkg/seaice/diffus.F	2002/12/05 08:43:02	1.3
+++ MITgcm/pkg/seaice/diffus.F	2002/12/28 10:11:11	1.4
@@ -28,9 +28,9 @@
 #ifdef ALLOW_SEAICE
 
 C     === Local variables ===
-C     i,j,k,bi,bj - Loop counters
+C     i,j,bi,bj - Loop counters
 
-      INTEGER i, j, k, bi, bj
+      INTEGER i, j, bi, bj
       _RL DELTXX1, DELTYY1, DELTXX, DELTYY
       _RL HEFF1  (1-OLx:sNx+OLx, 1-OLy:sNy+OLy)