--- MITgcm/pkg/generic_advdiff/gad_dst3_adv_y.F	2005/10/14 21:51:05	1.6
+++ MITgcm/pkg/generic_advdiff/gad_dst3_adv_y.F	2006/06/07 01:55:14	1.7
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/generic_advdiff/gad_dst3_adv_y.F,v 1.6 2005/10/14 21:51:05 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/generic_advdiff/gad_dst3_adv_y.F,v 1.7 2006/06/07 01:55:14 heimbach Exp $
 C $Name:  $
 
 #include "GAD_OPTIONS.h"
@@ -61,7 +61,7 @@
 
 c       vFld = vVel(i,j,k,bi,bj)
         vFld = vTrans(i,j)*recip_dxG(i,j,bi,bj)
-     &       *recip_drF(k)*recip_hFacS(i,j,k,bi,bj)
+     &       *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj)
         cfl=abs(vFld*deltaTloc*recip_dyC(i,j,bi,bj))
         d0=(2.-cfl)*(1.-cfl)*oneSixth
         d1=(1.-cfl*cfl)*oneSixth