mlosch/optim_m1qn3/optim.h



c     ==================================================================
c     HEADER OPTIMIZATION
c     ==================================================================
c
c     o Header for the large scale optimization.
c
c       This header file contains those parameters that are monitoring
c       the state of the off-line optimization procedure. One
c       optimization cycle is considered to consist of a forward/adjoint
c       model run followed by a cost function minimization that then
c       yields a new guess for the control vector:
c
c       optimcycle i:   xx(i) --> fc(i) adxx(i) --> xx(i+1)
c
c
c     started: Christian Eckert eckert@mit.edu  30-Jun-1999
c
c     changed: Christian Eckert eckert@mit.edu  24-Feb-2000
c
c
c     ==================================================================
c     HEADER OPTIMIZATION
c     ==================================================================

c     Optimization version:
c     =====================
c
c     lsoptversion - Version of the large scale optimization.

      character*(5)  lsoptversion
      parameter    ( lsoptversion = '2.1.0' )

      character*(5)  offlineversion
      parameter    ( offlineversion = '0.1.1' )

c     The off-line optimization part:
c     ===============================
c
c     Starting an optimization experiment implies setting optimcycle to
c     zero. During cycle number I the model is called first, then the
c     offline optimization is run. The latter provides a new guess for
c     the vector of control variables for the next cycle I+1.
c
c     optimcycle - cycle number of the off-line optimization.

      common /optiparm_i/
     &                    optimcycle,
     &                    nvars,
     &                    numiter,
     &                    nfunc,
     &                    iprint,
     &                    nupdate
      integer optimcycle
      integer nvars
      integer numiter
      integer nfunc
      integer iprint
      integer nupdate

      common /optiparm_r/
     &                    fmin,
     &                    epsf,
     &                    epsx,
     &                    epsg,
     &                    eps
      _RL epsf
      _RL epsx
      _RL fmin
      _RL epsg
      _RL eps

      common /optiparm_l/
     &                    nondimcontrol
      logical nondimcontrol

      common /optiparm_c/
     &                    copt
      character*( 3) copt

c     ==================================================================
c     END OF HEADER OPTIMIZATION
c     ==================================================================


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 off-line 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 30-Jun-1999
19	c
20	c changed: Christian Eckert eckert@mit.edu 24-Feb-2000
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 off-line 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 off-line 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