--- MITgcm/pkg/shap_filt/shap_filt_tracer_s1.F	2004/06/26 01:15:30	1.5
+++ MITgcm/pkg/shap_filt/shap_filt_tracer_s1.F	2004/12/04 00:19:12	1.6
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/shap_filt/shap_filt_tracer_s1.F,v 1.5 2004/06/26 01:15:30 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/shap_filt/shap_filt_tracer_s1.F,v 1.6 2004/12/04 00:19:12 jmc Exp $
 C $Name:  $
 
 #include "SHAP_FILT_OPTIONS.h"
@@ -110,7 +110,7 @@
            DO I=1,sNx
             tmpScal=field(i,j,k,bi,bj)
             field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
-     &          -0.5*tmpFld(i,j,k,bi,bj)*deltaTtracer/Shap_Trtau
+     &          -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
             tmpFld(i,j,k,bi,bj)=tmpScal
            ENDDO
           ENDDO
@@ -162,7 +162,7 @@
           DO J=1,sNy
            DO I=1,sNx
             field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
-     &          -0.5*tmpFld(i,j,k,bi,bj)*deltaTtracer/Shap_Trtau
+     &          -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
            ENDDO
           ENDDO
          ENDDO