--- MITgcm/optim/optim_readdata.F	2003/03/07 05:20:50	1.4
+++ MITgcm/optim/optim_readdata.F	2004/09/09 15:58:42	1.6
@@ -75,18 +75,18 @@
       integer funit
 
       integer cbuffindex
-      _RL     cbuff( sNx*nSx*nPx*sNy*nSy*nPy )
+      real*4 cbuff( sNx*nSx*nPx*sNy*nSy*nPy )
 
       character*(128) fname
 
-      integer         filei
-      integer         filej
-      integer         filek
+c      integer         filei
+c      integer         filej
+c      integer         filek
+c      integer         fileig
+c      integer         filejg
+c      integer         filensx
+c      integer         filensy
       integer         filenopt
-      integer         fileig
-      integer         filejg
-      integer         filensx
-      integer         filensy
       _RL             fileff
 
 cgg(
@@ -97,6 +97,8 @@
 
 c     == end of interface ==
 
+      print *, 'pathei-lsopt in optim_readdata'
+
 c--   The reference i/o unit.
       funit = 20
 
@@ -147,10 +149,6 @@
       read( funit ) filensx
       read( funit ) filensy
 
-cph(
-      print *,'ph-opt 1 ', nvartype, nvarlength, filensx, filensy
-cph)
-
       read( funit ) (nWetcGlobal(k), k=1,nr)
       read( funit ) (nWetsGlobal(k), k=1,nr)
       read( funit ) (nWetwGlobal(k), k=1,nr)