MITgcm/optim/optim_write_control.F


#include "CTRL_OPTIONS.h"

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