73 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
74 |
#include "SIZE.h" |
#include "SIZE.h" |
75 |
|
|
76 |
#include "ecco.h" |
cdfer#include "ecco.h" |
77 |
#include "ctrl.h" |
#include "ctrl.h" |
78 |
#include "optim.h" |
#include "optim.h" |
79 |
#include "minimization.h" |
#include "minimization.h" |
155 |
& xx_obcsestartdate1, xx_obcsestartdate2, xx_obcseperiod, |
& xx_obcsestartdate1, xx_obcsestartdate2, xx_obcseperiod, |
156 |
& xx_diffkr_file, xx_kapgm_file, xx_tr1_file, |
& xx_diffkr_file, xx_kapgm_file, xx_tr1_file, |
157 |
& xx_sst_file, xx_sss_file, |
& xx_sst_file, xx_sss_file, |
158 |
& xx_sst_file, xx_sststartdate1, xx_sststartdate2, xx_sstperiod, |
& xx_sststartdate1, xx_sststartdate2, xx_sstperiod, |
159 |
& xx_sss_file, xx_sssstartdate1, xx_sssstartdate2, xx_sssperiod, |
& xx_sssstartdate1, xx_sssstartdate2, xx_sssperiod, |
160 |
& xx_depth_file, xx_efluxy_file, xx_efluxp_file, |
& xx_depth_file, xx_efluxy_file, xx_efluxp_file, |
161 |
& xx_bottomdrag_file, xx_edtaux_file, xx_edtauy_file, |
& xx_bottomdrag_file, xx_edtaux_file, xx_edtauy_file, |
162 |
& xx_uvel_file, xx_vvel_file, xx_etan_file, |
& xx_uvel_file, xx_vvel_file, xx_etan_file, |
163 |
& doInitXX, doPackDiag, doZscaleUnpack, doZscalePack, |
& doInitXX, doPackDiag, doZscaleUnpack, doZscalePack, |
164 |
& doMainUnpack, doMainPack, doAdmtlmBypassAD, delZexp |
& doMainUnpack, doMainPack, doAdmtlmBypassAD, delZexp |
165 |
|
cdfer |
166 |
|
& ,xx_hfluxm_file |
167 |
|
cdfer |
168 |
|
|
169 |
namelist /CTRL_PACKNAMES/ |
namelist /CTRL_PACKNAMES/ |
170 |
& yadmark, yctrlid, yctrlposunpack, yctrlpospack, |
& yadmark, yctrlid, yctrlposunpack, yctrlpospack, |
188 |
eps = -1.e-6 |
eps = -1.e-6 |
189 |
nupdate = 1 |
nupdate = 1 |
190 |
ff = 0. |
ff = 0. |
191 |
expId = 'MIT_CE_000' |
cdfer expId = 'MIT_CE_000' |
192 |
yctrlid = expId |
yctrlid = 'MIT_CE_000' |
193 |
|
|
194 |
modeldataunit = 14 |
modeldataunit = 14 |
195 |
scrunit1 = 11 |
scrunit1 = 11 |
219 |
print*, ' OPTIM_NUMBMOD: Control options have been read.' |
print*, ' OPTIM_NUMBMOD: Control options have been read.' |
220 |
|
|
221 |
cph( |
cph( |
222 |
expId = yctrlid |
cdfer expId = yctrlid |
223 |
cph) |
cph) |
224 |
|
|
225 |
c-- Read optimization parameters from file. |
c-- Read optimization parameters from file. |