--- MITgcm/pkg/mom_fluxform/mom_v_xviscflux.F	2005/09/16 20:57:09	1.5
+++ MITgcm/pkg/mom_fluxform/mom_v_xviscflux.F	2005/09/26 15:27:11	1.6
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mom_fluxform/mom_v_xviscflux.F,v 1.5 2005/09/16 20:57:09 baylor Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mom_fluxform/mom_v_xviscflux.F,v 1.6 2005/09/26 15:27:11 baylor Exp $
 C $Name:  $
 
 #include "MOM_FLUXFORM_OPTIONS.h"
@@ -11,7 +11,7 @@
      I        bi,bj,k,
      I        vFld, del2v, hFacZ,
      O        xViscFluxV,
-     I        viscAh_Z,viscAh_D,viscA4_Z,viscA4_D,
+     I        viscAh_Z,viscA4_Z,
      I        myThid)
 
 C !DESCRIPTION:
@@ -39,9 +39,7 @@
       _RL del2v(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
       _RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
       _RL viscAh_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
-      _RL viscAh_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
       _RL viscA4_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
-      _RL viscA4_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
       INTEGER myThid
 
 C !OUTPUT PARAMETERS: ==================================================