--- MITgcm/optim/optim_write_control.F	2002/02/05 20:34:35	1.1
+++ MITgcm/optim/optim_write_control.F	2002/11/15 04:03:25	1.2
@@ -0,0 +1,57 @@
+
+      subroutine optim_write_control(
+     I                          nv,
+     I                          xx
+     &                        ) 
+
+c     ==================================================================
+c     SUBROUTINE optim_write_control
+c     ==================================================================
+c
+c     o Interface routine for writing the next estimate of the control
+c       vector that is to be used by the ocean state estimation program.
+c
+c     started: Christian Eckert eckert@mit.edu 12-Apr-2000
+c
+c     changed:  Patrick Heimbach heimbach@mit.edu 19-Jun-2000
+c               - finished, revised and debugged
+c
+c     ==================================================================
+c     SUBROUTINE optim_write_control
+c     ==================================================================
+
+      implicit none
+
+c     == global variables ==
+
+#include "EEPARAMS.h"
+#include "SIZE.h"
+
+#include "ecco.h"
+#include "ctrl.h"
+#include "optim.h"
+
+c     == routine arguments ==
+
+      integer nv
+      _RL     xx(nv)
+
+c     == local variables ==
+
+      _RL           ff
+
+      logical lheaderonly
+
+c     == end of interface ==
+
+      ff       = -9999.
+
+      print *,'pathei: writing ', nv,' sized control to file',
+     &     ctrlname
+
+      lheaderonly = .false.
+      call optim_writedata( nv, ctrlname, lheaderonly, ff, xx )
+
+      return
+      end
+