--- MITgcm/model/src/ini_fields.F	1998/12/09 16:11:52	1.5
+++ MITgcm/model/src/ini_fields.F	2001/05/29 14:01:37	1.10
@@ -1,4 +1,5 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/ini_fields.F,v 1.5 1998/12/09 16:11:52 adcroft Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/ini_fields.F,v 1.10 2001/05/29 14:01:37 adcroft Exp $
+C $Name:  $
 
 #include "CPP_OPTIONS.h"
 
@@ -27,10 +28,10 @@
 
 C--   Set model variables to initial/restart conditions
       IF ( startTime .EQ. 0. .AND.  nIter0 .EQ. 0 ) THEN
-       CALL INI_UVEL( myThid )
-       CALL INI_VVEL( myThid )
+       CALL INI_VEL( myThid )
        CALL INI_THETA( myThid )
        CALL INI_SALT( myThid )
+       CALL INI_PSURF( myThid )
       ELSE
        IF ( nIter0 .EQ. 0 ) THEN
         nIter0 = INT(startTime/deltaTClock )