--- MITgcm/model/src/calc_phi_hyd.F	1998/08/20 18:47:27	1.1
+++ MITgcm/model/src/calc_phi_hyd.F	1998/08/22 17:51:07	1.2
@@ -1,9 +1,9 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/calc_phi_hyd.F,v 1.1 1998/08/20 18:47:27 cnh Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/calc_phi_hyd.F,v 1.2 1998/08/22 17:51:07 cnh Exp $
 
 #include "CPP_EEOPTIONS.h"
 
       SUBROUTINE CALC_PHI_HYD( bi, bj, iMin, iMax, jMin, jMax, K,
-     I    buoyKM1, buoyKP1k, phiHyd, myThid)
+     I    buoyKM1, buoyKP1, phiHyd, myThid)
 C     /==========================================================\
 C     | SUBROUTINE CALC_PHI_HYD                                  |
 C     | o Integrate the hydrostatic relation to find phiHyd.     |
@@ -20,7 +20,7 @@
       INTEGER bi,bj,iMin,iMax,jMin,jMax,K
       _RL buoyKM1(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
       _RL buoyKP1(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
-      _RL phiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz)
+      _RL phiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
       integer myThid
 C     == Local variables ==
       INTEGER i,j,Km1