--- MITgcm/model/src/dynamics.F	2002/04/17 14:05:34	1.83.4.3
+++ MITgcm/model/src/dynamics.F	2003/02/19 22:43:51	1.83.4.4
@@ -391,7 +391,6 @@
 C--     Implicit viscosity
         IF (implicitViscosity.AND.momStepping) THEN
 #ifdef    ALLOW_AUTODIFF_TAMC
-          idkey = iikey + 3
 CADJ STORE gUNm1(:,:,:,bi,bj) = comlev1_bibj , key=ikey, byte=isbyte
 #endif    /* ALLOW_AUTODIFF_TAMC */
           CALL IMPLDIFF(
@@ -400,7 +399,6 @@
      U         gUNm1,
      I         myThid )
 #ifdef    ALLOW_AUTODIFF_TAMC
-          idkey = iikey + 4
 CADJ STORE gVNm1(:,:,:,bi,bj) = comlev1_bibj , key=ikey, byte=isbyte
 #endif    /* ALLOW_AUTODIFF_TAMC */
           CALL IMPLDIFF(
@@ -420,7 +418,6 @@
 
 #ifdef    INCLUDE_CD_CODE
 #ifdef    ALLOW_AUTODIFF_TAMC
-          idkey = iikey + 5
 CADJ STORE vVelD(:,:,:,bi,bj) = comlev1_bibj , key=ikey, byte=isbyte
 #endif    /* ALLOW_AUTODIFF_TAMC */
           CALL IMPLDIFF(
@@ -429,7 +426,6 @@
      U         vVelD,
      I         myThid )
 #ifdef    ALLOW_AUTODIFF_TAMC
-          idkey = iikey + 6
 CADJ STORE uVelD(:,:,:,bi,bj) = comlev1_bibj , key=ikey, byte=isbyte
 #endif    /* ALLOW_AUTODIFF_TAMC */
           CALL IMPLDIFF(