--- MITgcm/model/src/calc_phi_hyd.F	2006/03/20 14:22:26	1.34
+++ MITgcm/model/src/calc_phi_hyd.F	2007/02/05 03:20:39	1.35
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/calc_phi_hyd.F,v 1.34 2006/03/20 14:22:26 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/calc_phi_hyd.F,v 1.35 2007/02/05 03:20:39 jmc Exp $
 C $Name:  $
 
 #include "PACKAGES_CONFIG.h"
@@ -83,7 +83,6 @@
       _RL dRlocM,dRlocP, ddRloc, locAlpha
       _RL ddPIm, ddPIp, rec_dRm, rec_dRp
       _RL surfPhiFac
-      INTEGER iMnLoc,jMnLoc
       PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 )
       LOGICAL useDiagPhiRlow, addSurfPhiAnom
 CEOP
@@ -488,10 +487,8 @@
      I                      myTime, myIter, myThid)
 
       IF (momPressureForcing) THEN 
-        iMnLoc = MAX(1-Olx+1,iMin)
-        jMnLoc = MAX(1-Oly+1,jMin)
         CALL CALC_GRAD_PHI_HYD(
-     I                         k, bi, bj, iMnLoc,iMax, jMnLoc,jMax,
+     I                         k, bi, bj, iMin,iMax, jMin,jMax,
      I                         phiHydC, alphaRho, tFld, sFld,
      O                         dPhiHydX, dPhiHydY,
      I                         myTime, myIter, myThid)