--- MITgcm/pkg/ptracers/ptracers_implicit.F	2009/06/26 23:10:10	1.6
+++ MITgcm/pkg/ptracers/ptracers_implicit.F	2010/01/02 23:42:51	1.7
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ptracers/Attic/ptracers_implicit.F,v 1.6 2009/06/26 23:10:10 jahn Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ptracers/Attic/ptracers_implicit.F,v 1.7 2010/01/02 23:42:51 jmc Exp $
 C $Name:  $
 
 #include "PTRACERS_OPTIONS.h"
@@ -56,7 +56,9 @@
       INTEGER iTracer
       INTEGER iMin,iMax,jMin,jMax
       INTEGER GAD_TR
-      INTEGER K
+#ifdef ALLOW_OBCS
+      INTEGER k
+#endif
 CEOP
 
       iMin=0
@@ -128,17 +130,17 @@
      U         gPtr(1-Olx,1-Oly,1,1,1,iTracer),
      I         myThid )
 
-#ifdef   ALLOW_OBCS
+#ifdef ALLOW_OBCS
 C--      Apply open boundary conditions
         IF ( useOBCS ) THEN
-         DO K=1,Nr
+         DO k=1,Nr
           CALL OBCS_APPLY_PTRACER(
-     I         bi, bj, K, iTracer,
-     U         gPtr(1-Olx,1-Oly,K,bi,bj,iTracer),
+     I         bi, bj, k, iTracer,
+     U         gPtr(1-Olx,1-Oly,k,bi,bj,iTracer),
      I         myThid )
          ENDDO
         ENDIF
-#endif   /* ALLOW_OBCS */
+#endif /* ALLOW_OBCS */
 
         ENDIF
 C End of tracer loop