/[MITgcm]/MITgcm/pkg/ctrl/optim_readparms.F
ViewVC logotype

Contents of /MITgcm/pkg/ctrl/optim_readparms.F

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

Revision 1.3 - (show annotations) (download)
Tue Oct 9 00:00:01 2007 UTC (16 years, 8 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62c, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62w, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint63g, checkpoint60, checkpoint61, checkpoint62, checkpoint63, checkpoint63p, checkpoint63q, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59k, checkpoint62b, checkpoint61f, checkpoint61n, checkpoint59j, checkpoint61q, checkpoint61e, checkpoint61g, checkpoint61d, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.2: +5 -4 lines 
add missing cvs $Header:$ or $Name:$
1 C $Header: $
2 C $Name: $
3
4 #include "CTRL_CPPOPTIONS.h"
5
6
7 subroutine optim_readparms(
8 I mythid
9 & )
10
11 c ==================================================================
12 c SUBROUTINE optim_readparms
13 c ==================================================================
14 c
15 c o Initialise the optimization part of the ECCO release.
16 c
17 c started: Christian Eckert eckert@mit.edu 03-Mar-2000
18 c
19 c changed:
20 c
21 c ==================================================================
22 c SUBROUTINE optim_readparms
23 c ==================================================================
24
25 implicit none
26
27 c == global variables ==
28
29 #include "EEPARAMS.h"
30
31 #include "optim.h"
32
33 c == routine arguments ==
34
35 integer mythid
36
37 c == local variables ==
38
39 integer errio
40 integer il
41 integer iUnit
42
43 character*(max_len_prec) record
44 character*(max_len_mbuf) msgbuf
45
46 c == external ==
47
48 integer ilnblnk
49 external ilnblnk
50
51 c == end of interface ==
52
53 c-- Optimization parameters.
54 namelist /optim/
55 & optimcycle, nvars,
56 & nondimcontrol,
57 & numiter, nfunc, fmin, iprint,
58 & epsf, epsx, epsg,
59 & nupdate, eps
60
61 _BEGIN_MASTER( mythid )
62
63 c-- Set default values.
64 optimcycle = 0
65 nvars = 10
66 nondimcontrol = .false.
67 numiter = 0
68 nfunc = 1
69 fmin = 0.0 _d 0
70 iprint = 10
71 epsx = 1.e-6
72 epsg = 1.e-6
73 eps = -1.e-6
74 nupdate = 0
75
76 WRITE(msgBuf,'(A)') 'OPTIM_READPARMS: opening data.optim'
77 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
78 & SQUEEZE_RIGHT , 1)
79
80 CALL OPEN_COPY_DATA_FILE(
81 I 'data.optim', 'OPTIM_READPARMS',
82 O iUnit,
83 I myThid )
84
85 READ(unit = iUnit, nml = optim)
86
87 WRITE(msgBuf,'(A)')
88 & 'OPTIM_READPARMS: finished reading data.optim'
89 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
90 & SQUEEZE_RIGHT , 1)
91
92 CLOSE( iUnit )
93
94 _END_MASTER( mythid )
95
96 _BARRIER
97
98 return
99 end
100
  ViewVC Help
Powered by ViewVC 1.1.22