MITgcm/optim/optim_write_control.F


      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

1	heimbach	1.1.2.1
2			subroutine optim_write_control(
3			I nv,
4			I xx
5			& )
6
7			c ==================================================================
8			c SUBROUTINE optim_write_control
9			c ==================================================================
10			c
11			c o Interface routine for writing the next estimate of the control
12			c vector that is to be used by the ocean state estimation program.
13			c
14			c started: Christian Eckert eckert@mit.edu 12-Apr-2000
15			c
16			c changed: Patrick Heimbach heimbach@mit.edu 19-Jun-2000
17			c - finished, revised and debugged
18			c
19			c ==================================================================
20			c SUBROUTINE optim_write_control
21			c ==================================================================
22
23			implicit none
24
25			c == global variables ==
26
27			#include "EEPARAMS.h"
28			#include "SIZE.h"
29
30			#include "ecco.h"
31			#include "ctrl.h"
32			#include "optim.h"
33
34			c == routine arguments ==
35
36			integer nv
37			_RL xx(nv)
38
39			c == local variables ==
40
41			_RL ff
42
43			logical lheaderonly
44
45			c == end of interface ==
46
47			ff = -9999.
48
49			print *,'pathei: writing ', nv,' sized control to file',
50			& ctrlname
51
52			lheaderonly = .false.
53			call optim_writedata( nv, ctrlname, lheaderonly, ff, xx )
54
55			return
56			end
57