File |
Line number |
Procedure |
Code |
./pkg/grdchk/grdchk_getadxx.F |
84 |
GRDCHK_GETADXX |
il=ilnblnk( xx_theta_file ) |
./pkg/grdchk/grdchk_getadxx.F |
87 |
GRDCHK_GETADXX |
& yadmark, xx_theta_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
89 |
GRDCHK_GETXX |
il=ilnblnk( xx_theta_file ) |
./pkg/grdchk/grdchk_getxx.F |
92 |
GRDCHK_GETXX |
& yadmark, xx_theta_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
95 |
GRDCHK_GETXX |
& xx_theta_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
86 |
GRDCHK_SETXX |
il=ilnblnk( xx_theta_file ) |
./pkg/grdchk/grdchk_setxx.F |
89 |
GRDCHK_SETXX |
& yadmark, xx_theta_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
92 |
GRDCHK_SETXX |
& xx_theta_file(1:il),'.',optimcycle |
./verification/OpenAD/code_oad_all/ctrl_pack.F |
107 |
CTRL_PACK |
call CTRL_SET_FNAME(xx_theta_file, fname_theta, mythid) |
./optim/optim_numbmod.F |
114 |
OPTIM_NUMBMOD |
& xx_theta_file, xx_salt_file, |
./pkg/admtlm/admtlm_bypassad.F |
177 |
ADMTLM_BYPASSAD |
il = ilnblnk(xx_theta_file) |
./pkg/admtlm/admtlm_bypassad.F |
179 |
ADMTLM_BYPASSAD |
& xx_theta_file(1:il),'.',optimcycle |
./pkg/admtlm/admtlm_dsvd2model.F |
127 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_FNAME(xx_theta_file, fname_theta, mythid) |
./pkg/admtlm/admtlm_model2dsvd.F |
118 |
ADMTLM_MODEL2DSVD |
call CTRL_SET_FNAME(xx_theta_file, fname_theta, mythid) |
./pkg/ctrl/ctrl.h |
575 |
NO PROCEDURE |
& xx_theta_file |
./pkg/ctrl/ctrl.h |
626 |
NO PROCEDURE |
character*(MAX_LEN_FNAM) xx_theta_file |
./pkg/ctrl/ctrl_init.F |
174 |
CTRL_INIT |
& xx_theta_file, 1, 101, 1, 1, 1, |
./pkg/ctrl/ctrl_map_ini.F |
95 |
CTRL_MAP_INI |
il=ilnblnk( xx_theta_file ) |
./pkg/ctrl/ctrl_map_ini.F |
97 |
CTRL_MAP_INI |
& xx_theta_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini_ecco.F |
146 |
CTRL_MAP_INI_ECCO |
call CTRL_MAP_INI_GEN3D(xx_theta_file, 'wthetaLev', |
./pkg/ctrl/ctrl_pack.F |
107 |
CTRL_PACK |
call CTRL_SET_FNAME(xx_theta_file, fname_theta, mythid) |
./pkg/ctrl/ctrl_readparms.F |
163 |
CTRL_READPARMS |
xx_theta_file = 'xx_theta' |
./pkg/ctrl/ctrl_readparms.F |
73 |
CTRL_READPARMS |
& xx_theta_file, xx_salt_file, |
./pkg/ctrl/ctrl_unpack.F |
116 |
CTRL_UNPACK |
call CTRL_SET_FNAME(xx_theta_file, fname_theta, mythid) |
./pkg/ecco/cost_theta0.F |
101 |
COST_THETA0 |
& xx_theta_file(1:ilfld),'.',optimcycle |
./pkg/ecco/cost_theta0.F |
99 |
COST_THETA0 |
ilfld = ilnblnk( xx_theta_file ) |