--- MITgcm/pkg/shap_filt/shap_filt_tracer_s2.F	2007/08/16 02:20:41	1.13
+++ MITgcm/pkg/shap_filt/shap_filt_tracer_s2.F	2008/10/22 00:28:47	1.14
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/shap_filt/shap_filt_tracer_s2.F,v 1.13 2007/08/16 02:20:41 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/shap_filt/shap_filt_tracer_s2.F,v 1.14 2008/10/22 00:28:47 jmc Exp $
 C $Name:  $
 
 #include "SHAP_FILT_OPTIONS.h"
@@ -114,7 +114,7 @@
            IF ( .NOT.Shap_alwaysExchTr
      &          .AND. useCubedSphereExchange ) THEN
 C          to compute d/dx(tmpFld), fill corners with appropriate values:
-             CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,
+             CALL FILL_CS_CORNER_TR_RL( 1, .FALSE.,
      &                                 tmpFld(1-Olx,1-Oly,k,bi,bj),
      &                                 bi,bj, myThid )
            ENDIF
@@ -145,7 +145,7 @@
            IF ( .NOT.Shap_alwaysExchTr
      &          .AND. useCubedSphereExchange ) THEN
 C          to compute d/dy(tmpFld), fill corners with appropriate values:
-             CALL FILL_CS_CORNER_TR_RL(.FALSE., .FALSE.,
+             CALL FILL_CS_CORNER_TR_RL( 2, .FALSE.,
      &                                 tmpFld(1-Olx,1-Oly,k,bi,bj),
      &                                 bi,bj, myThid )
            ENDIF