--- MITgcm/verification/fizhi-gridalt-hs/code/do_fizhi.F	2004/10/21 15:19:18	1.6
+++ MITgcm/verification/fizhi-gridalt-hs/code/do_fizhi.F	2004/10/21 16:27:33	1.7
@@ -1,10 +1,10 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/verification/fizhi-gridalt-hs/code/do_fizhi.F,v 1.6 2004/10/21 15:19:18 molod Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/verification/fizhi-gridalt-hs/code/do_fizhi.F,v 1.7 2004/10/21 16:27:33 molod Exp $
 C $Name:  $
 #include "FIZHI_OPTIONS.h"
        subroutine do_fizhi(myid,
      . idim1,idim2,jdim1,jdim2,Nrphin,Nsxin,Nsyin,im1,im2,jm1,jm2,bi,bj,
      . nchp,nchptot,nchpland,
-     . uphy,vphy,thphy,sphy,pephy,lons,lats,phi0surf,
+     . uphy,vphy,thphy,sphy,pephy,lons,lats,Zsurf,
      . ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,
      . tgz,sst,sice,phis_var,landtype,fracland,emiss,albnirdr,albnirdf,
      . albvisdr,albvisdf,ityp,chfr,alai,agrn,igrd,chlat,chlon,
@@ -41,7 +41,7 @@
       _RL pephy(idim1:idim2,jdim1:jdim2,Nrphin+1,Nsxin,Nsyin)
       _RS lons(idim1:idim2,jdim1:jdim2,Nsxin,Nsyin)
       _RS lats(idim1:idim2,jdim1:jdim2,Nsxin,Nsyin)
-      _RS phi0surf(idim1:idim2,jdim1:jdim2,Nsxin,Nsyin)
+      _RS Zsurf(idim1:idim2,jdim1:jdim2,Nsxin,Nsyin)
       _RL ctmt(nchp,Nsxin,Nsyin),xxmt(nchp,Nsxin,Nsyin)
       _RL yymt(nchp,Nsxin,Nsyin)
       _RL zetamt(nchp,Nsxin,Nsyin)