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

Contents of /MITgcm/optim/optim_initmod.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 (4 years, 11 months 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 -2 lines
- remove un-necessary option files includes

1
2 subroutine optim_initmod(
3 I nn,
4 O xx
5 & )
6
7 c ==================================================================
8 c SUBROUTINE optim_initmod
9 c ==================================================================
10 c
11 c o Optim_Initmod is called before the optimization. It sets a first guess
12 c of the parameter vector. It may also contain the initialization
13 c of the model.
14 c
15 c started: Christian Eckert eckert@mit.edu 15-Feb-2000
16 c
17 c changed: Christian Eckert eckert@mit.edu 10-Mar-2000
18 c
19 c - Added ECCO layout.
20 c
21 c changed: Patrick Heimbach heimbach@mit.edu 19-Jun-2000
22 c - finished, revised and debugged
23 c
24 c ==================================================================
25 c SUBROUTINE optim_initmod
26 c ==================================================================
27
28 IMPLICIT NONE
29
30 c == global variables ==
31
32 #include "EEPARAMS.h"
33 #include "SIZE.h"
34 #include "ctrl.h"
35 #include "optim.h"
36
37 c == routine arguments ==
38
39 integer nn
40 _RL xx(nn)
41
42 c == local variables ==
43
44 character*(80) fname
45
46 c == end of interface ==
47
48 c-- Generate file name for the scaling of the control vector
49 c-- contributions.
50 write(fname(1:80),'(80a)') ' '
51 write(fname(1:80),'(4a,i10.10,a)')
52 & scalname(1:9),'_',yctrlid,'.',optimcycle,'.data'
53
54 c-- Read the scaling for the control vector.
55
56 c --> Presently not implemented, since the control vector and the
57 c gradient of the cost function can already be non-dimensionalized
58 c by *ecco_ControlPack* and *ecco_ControlUnPack*.
59 c
60 c To do this set:
61 c
62 c #define USE_NONDIMENSIONAL_CONTROL_IO
63 c
64 c in CPP_OPTIONS.h. The subroutine *ecco_ControlPack* will then
65 c non-dimensionalize its output and *ecco_ControlUnPack* will
66 c dimensionalize its input.
67
68 return
69 end

  ViewVC Help
Powered by ViewVC 1.1.22