1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
c Include ECCO_CPPOPTIONS because the ecco_ctrl,cost files |
C ECCO_CPPOPTIONS used to affect maxcvars and defined ALLOW_OBCS?_CONTROL |
5 |
c have headers with options for OBCS masks. |
C#include "ECCO_CPPOPTIONS.h" |
6 |
#include "ECCO_CPPOPTIONS.h" |
C now: |
7 |
|
C CTRL_OPTIONS affects maxcvars and may define ALLOW_OBCS?_CONTROL |
8 |
|
#include "CTRL_OPTIONS.h" |
9 |
|
|
10 |
subroutine optim_readparms( |
subroutine optim_readparms( |
11 |
O nn, ff |
O nn, ff |
87 |
ff = 0. |
ff = 0. |
88 |
cdfer expId = 'MIT_CE_000' |
cdfer expId = 'MIT_CE_000' |
89 |
yctrlid = 'MIT_CE_000' |
yctrlid = 'MIT_CE_000' |
90 |
|
yctrlposunpack = '.opt' |
91 |
|
yctrlpospack = '.opt' |
92 |
|
ctrlname = 'ecco_ctrl' |
93 |
|
costname = 'ecco_cost' |
94 |
|
scalname = ' ' |
95 |
|
maskname = ' ' |
96 |
|
metaname = ' ' |
97 |
coldStart = .false. |
coldStart = .false. |
98 |
|
|
99 |
modeldataunit = 14 |
modeldataunit = 14 |