--- MITgcm/optim/optim_initmod.F	2002/11/15 04:03:25	1.2
+++ MITgcm/optim/optim_initmod.F	2008/01/15 16:36:32	1.3
@@ -33,7 +33,6 @@
 #include "EEPARAMS.h"
 #include "SIZE.h"
 
-#include "ecco.h"
 #include "ctrl.h"
 #include "optim.h"
 
@@ -52,7 +51,7 @@
 c--   contributions.
       write(fname(1:80),'(80a)') ' '
       write(fname(1:80),'(4a,i10.10,a)')
-     &  scalname(1:9),'_',expId,'.',optimcycle,'.data'
+     &  scalname(1:9),'_',yctrlid,'.',optimcycle,'.data'
 
 c--   Read the scaling for the control vector.