--- MITgcm/model/src/dynamics.F	1998/08/20 16:03:15	1.27
+++ MITgcm/model/src/dynamics.F	1998/08/20 19:25:05	1.28
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.27 1998/08/20 16:03:15 cnh Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.28 1998/08/20 19:25:05 cnh Exp $
 
 #include "CPP_OPTIONS.h"
 
@@ -227,7 +227,7 @@
         BOTTOM_LAYER = K .EQ. Nz
 
 C--     Calculate gradient of surface pressure
-        CALL GRAD_PSURF(
+        CALL CALC_GRAD_ETA_SURF(
      I       bi,bj,iMin,iMax,jMin,jMax,
      O       pSurfX,pSurfY,
      I       myThid)