1 

2 

3 
c ================================================================== 
4 
c HEADER OPTIMIZATION 
5 
c ================================================================== 
6 
c 
7 
c o Header for the large scale optimization. 
8 
c 
9 
c This header file contains those parameters that are monitoring 
10 
c the state of the offline optimization procedure. One 
11 
c optimization cycle is considered to consist of a forward/adjoint 
12 
c model run followed by a cost function minimization that then 
13 
c yields a new guess for the control vector: 
14 
c 
15 
c optimcycle i: xx(i) > fc(i) adxx(i) > xx(i+1) 
16 
c 
17 
c 
18 
c started: Christian Eckert eckert@mit.edu 30Jun1999 
19 
c 
20 
c changed: Christian Eckert eckert@mit.edu 24Feb2000 
21 
c 
22 
c 
23 
c ================================================================== 
24 
c HEADER OPTIMIZATION 
25 
c ================================================================== 
26 

27 
c Optimization version: 
28 
c ===================== 
29 
c 
30 
c lsoptversion  Version of the large scale optimization. 
31 

32 
character*(5) lsoptversion 
33 
parameter ( lsoptversion = '2.1.0' ) 
34 

35 
character*(5) offlineversion 
36 
parameter ( offlineversion = '0.1.1' ) 
37 

38 
c The offline optimization part: 
39 
c =============================== 
40 
c 
41 
c Starting an optimization experiment implies setting optimcycle to 
42 
c zero. During cycle number I the model is called first, then the 
43 
c offline optimization is run. The latter provides a new guess for 
44 
c the vector of control variables for the next cycle I+1. 
45 
c 
46 
c optimcycle  cycle number of the offline optimization. 
47 

48 
common /optiparm_i/ 
49 
& optimcycle, 
50 
& nvars, 
51 
& numiter, 
52 
& nfunc, 
53 
& iprint, 
54 
& nupdate 
55 
integer optimcycle 
56 
integer nvars 
57 
integer numiter 
58 
integer nfunc 
59 
integer iprint 
60 
integer nupdate 
61 

62 
common /optiparm_r/ 
63 
& fmin, 
64 
& epsf, 
65 
& epsx, 
66 
& epsg, 
67 
& eps 
68 
_RL epsf 
69 
_RL epsx 
70 
_RL fmin 
71 
_RL epsg 
72 
_RL eps 
73 

74 
common /optiparm_l/ 
75 
& nondimcontrol 
76 
logical nondimcontrol 
77 

78 
common /optiparm_c/ 
79 
& copt 
80 
character*( 3) copt 
81 

82 
c ================================================================== 
83 
c END OF HEADER OPTIMIZATION 
84 
c ================================================================== 
85 

86 
