--- MITgcm/pkg/ctrl/ctrl_set_fname.F	2002/02/05 20:23:58	1.1
+++ MITgcm/pkg/ctrl/ctrl_set_fname.F	2002/07/13 02:47:32	1.2
@@ -0,0 +1,76 @@
+#include "CTRL_CPPOPTIONS.h"
+
+
+      subroutine ctrl_set_fname( 
+     I     xx_fname,fname, adfname, mythid )
+
+c     ==================================================================
+c     SUBROUTINE ctrl_set_fname
+c     ==================================================================
+c
+c     o get filename for control variable and adjoint thereof
+c     o initialise adjoint field
+c
+c     started: heimbach@mit.edu, 16-Aug-2001
+c
+c     ==================================================================
+
+      implicit none
+
+c     == global variables ==
+
+#include "EEPARAMS.h"
+#include "SIZE.h"
+#include "PARAMS.h"
+#include "GRID.h"
+
+#include "ctrl.h"
+#include "cost.h"
+
+#ifdef ALLOW_ECCO_OPTIMIZATION
+#include "optim.h"
+#endif
+
+c     == routine arguments ==
+
+      character*(MAX_LEN_FNAM) xx_fname
+      character*( 80)   fname
+      character*( 80) adfname
+      integer mythid
+
+c     == local variables ==
+
+#ifndef ALLOW_ECCO_OPTIMIZATION
+      integer optimcycle
+#endif
+
+      integer ii
+      integer il
+
+c     == external ==
+
+      integer  ilnblnk
+      external ilnblnk
+
+c     == end of interface ==
+
+#ifndef ALLOW_ECCO_OPTIMIZATION
+      optimcycle = 0
+#endif
+
+c--   Only the master thread will do I/O.
+      _BEGIN_MASTER( mythid )
+
+      il=ilnblnk( xx_fname )
+
+      write(  fname(1:80),'(80a)') ' '
+      write(adfname(1:80),'(80a)') ' '
+
+      write(fname(1:80),'(2a,i10.10)')
+     &     xx_fname(1:il) ,'.', optimcycle
+      write(adfname(1:80),'(3a,i10.10)')
+     &     yadprefix, xx_fname(1:il), '.', optimcycle
+
+      _END_MASTER( mythid )
+
+      end