/[MITgcm]/MITgcm/optim/optim_write_control.F
ViewVC logotype

Contents of /MITgcm/optim/optim_write_control.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.5 - (show annotations) (download)
Tue Jun 2 14:49:13 2015 UTC (5 years ago) by gforget
Branch: MAIN
CVS Tags: checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65n, checkpoint65m, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65o, HEAD
Changes since 1.4: +0 -4 lines
- remove un-necessary option files includes

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 #include "ctrl.h"
30
31 c == routine arguments ==
32
33 integer nv
34 _RL xx(nv)
35
36 c == local variables ==
37
38 _RL ff
39
40 logical lheaderonly
41
42 c == end of interface ==
43
44 ff = -9999.
45
46 print *,'pathei: writing ', nv,' sized control to file',
47 & ctrlname
48
49 lheaderonly = .false.
50 call optim_writedata( nv, ctrlname, lheaderonly, ff, xx )
51
52 return
53 end
54

  ViewVC Help
Powered by ViewVC 1.1.22