44 |
|
|
45 |
#include "ctrl.h" |
#include "ctrl.h" |
46 |
#include "cost.h" |
#include "cost.h" |
47 |
|
#include "optim.h" |
48 |
|
|
49 |
#ifdef ALLOW_ECCO |
#ifdef ALLOW_ECCO |
50 |
# include "ecco_cost.h" |
# include "ecco_cost.h" |
52 |
# include "ctrl_weights.h" |
# include "ctrl_weights.h" |
53 |
#endif |
#endif |
54 |
|
|
|
#ifdef ALLOW_ECCO_OPTIMIZATION |
|
|
# include "optim.h" |
|
|
#endif |
|
|
|
|
55 |
c == routine arguments == |
c == routine arguments == |
56 |
|
|
57 |
logical first |
logical first |
60 |
#ifndef EXCLUDE_CTRL_PACK |
#ifndef EXCLUDE_CTRL_PACK |
61 |
c == local variables == |
c == local variables == |
62 |
|
|
|
#ifndef ALLOW_ECCO_OPTIMIZATION |
|
|
integer optimcycle |
|
|
_RL fmin |
|
|
#endif |
|
|
|
|
63 |
_RL fcloc |
_RL fcloc |
64 |
|
|
65 |
integer i, j, k |
integer i, j, k |
89 |
c == end of interface == |
c == end of interface == |
90 |
|
|
91 |
#ifndef ALLOW_ECCO_OPTIMIZATION |
#ifndef ALLOW_ECCO_OPTIMIZATION |
|
optimcycle = 0 |
|
92 |
fmin = 0. _d 0 |
fmin = 0. _d 0 |
93 |
#endif |
#endif |
94 |
|
|
98 |
c-- Initialise adjoint variables on active files. |
c-- Initialise adjoint variables on active files. |
99 |
ladinit = .false. |
ladinit = .false. |
100 |
|
|
101 |
|
c-- Initialise global buffer index |
102 |
|
nbuffglobal = 0 |
103 |
|
|
104 |
c-- Assign file names. |
c-- Assign file names. |
105 |
|
|
106 |
call ctrl_set_fname(xx_theta_file, fname_theta, mythid) |
call ctrl_set_fname(xx_theta_file, fname_theta, mythid) |