1 |
|
|
2 |
|
#include "CTRL_OPTIONS.h" |
3 |
|
|
4 |
cph #ifdef TARGET_CRAY_VECTOR |
cph #ifdef TARGET_CRAY_VECTOR |
5 |
cph # define NML_OPTIM ECCO_OPTIM |
cph # define NML_OPTIM ECCO_OPTIM |
6 |
cph # define NML_ECCO ECCO_PARMS |
cph # define NML_ECCO ECCO_PARMS |
75 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
76 |
#include "SIZE.h" |
#include "SIZE.h" |
77 |
|
|
|
cdfer#include "ecco.h" |
|
78 |
#include "ctrl.h" |
#include "ctrl.h" |
79 |
#include "optim.h" |
#include "optim.h" |
80 |
#include "minimization.h" |
#include "minimization.h" |
81 |
|
#include "CTRL_OBCS.h" |
82 |
|
#ifndef ECCO_CTRL_DEPRECATED |
83 |
|
# include "ctrl_local_params.h" |
84 |
|
#endif |
85 |
|
|
86 |
c == routine arguments == |
c == routine arguments == |
87 |
|
|
169 |
& xx_shifwflx_remo_intercept, xx_shifwflx_remo_slope, |
& xx_shifwflx_remo_intercept, xx_shifwflx_remo_slope, |
170 |
& xx_shifwflxstartdate1, xx_shifwflxstartdate2, xx_shifwflxperiod, |
& xx_shifwflxstartdate1, xx_shifwflxstartdate2, xx_shifwflxperiod, |
171 |
& doInitXX, doPackDiag, doZscaleUnpack, doZscalePack, |
& doInitXX, doPackDiag, doZscaleUnpack, doZscalePack, |
172 |
& doMainUnpack, doMainPack, doAdmtlmBypassAD, delZexp |
& doMainUnpack, doMainPack, doAdmtlmBypassAD, delZexp, |
173 |
cdfer |
& xx_hfluxm_file, doSinglePrecTapelev |
|
& ,xx_hfluxm_file |
|
|
cdfer |
|
174 |
|
|
175 |
namelist /CTRL_PACKNAMES/ |
namelist /CTRL_PACKNAMES/ |
176 |
& yadmark, yctrlid, yctrlposunpack, yctrlpospack, |
& yadmark, yctrlid, yctrlposunpack, yctrlpospack, |