--- MITgcm/pkg/ptracers/ptracers_implicit.F	2004/12/05 22:22:06	1.1
+++ MITgcm/pkg/ptracers/ptracers_implicit.F	2004/12/16 23:20:48	1.2
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ptracers/Attic/ptracers_implicit.F,v 1.1 2004/12/05 22:22:06 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ptracers/Attic/ptracers_implicit.F,v 1.2 2004/12/16 23:20:48 jmc Exp $
 C $Name:  $
 
 #include "PTRACERS_OPTIONS.h"
@@ -94,9 +94,7 @@
 #endif /* ALLOW_AUTODIFF_TAMC */
 
 #ifdef INCLUDE_IMPLVERTADV_CODE
-c       IF ( PTRACERS_ImplVertAdv(iTracer) ) THEN
-        IF ( (dTtracerLev(1).NE.dTtracerLev(Nr).AND.implicitDiffusion)
-     &    .OR.PTRACERS_ImplVertAdv(iTracer) ) THEN
+        IF ( PTRACERS_ImplVertAdv(iTracer) ) THEN
 
           CALL GAD_IMPLICIT_R(
      I         PTRACERS_ImplVertAdv(iTracer), 
@@ -112,7 +110,7 @@
 
           CALL IMPLDIFF(
      I         bi, bj, iMin, iMax, jMin, jMax,
-     I         dTtracerLev(1), kappaRk, recip_HFacC,
+     I         GAD_TR, kappaRk, recip_HFacC,
      U         gPtr(1-Olx,1-Oly,1,1,1,iTracer),
      I         myThid )