| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_getadxx.F |
469 |
GRDCHK_GETADXX |
il=ilnblnk( xx_genarr3d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getadxx.F |
472 |
GRDCHK_GETADXX |
& yadmark, xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
652 |
GRDCHK_GETXX |
il=ilnblnk( xx_genarr3d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getxx.F |
655 |
GRDCHK_GETXX |
& yadmark, xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
658 |
GRDCHK_GETXX |
& xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_setxx.F |
657 |
GRDCHK_SETXX |
il=ilnblnk( xx_genarr3d_file(iarr) ) |
|
./pkg/grdchk/grdchk_setxx.F |
660 |
GRDCHK_SETXX |
& yadmark, xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_setxx.F |
663 |
GRDCHK_SETXX |
& xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
144 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
144 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
125 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
125 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
133 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
131 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( xx_genarr3d_file(iarr) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
133 |
CTRL_MAP_INI_GENARR |
& xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
133 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./pkg/ctrl/CTRL_GENARR.h |
12 |
NO PROCEDURE |
& xx_genarr3d_file, |
|
./pkg/ctrl/CTRL_GENARR.h |
18 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) xx_genarr3d_file(maxCtrlArr3D) |
|
./pkg/ctrl/ctrl_check.F |
91 |
CTRL_CHECK |
& (xx_genarr3d_file(iarr).EQ.' ')).OR. |
|
./pkg/ctrl/ctrl_check.F |
93 |
CTRL_CHECK |
& (xx_genarr3d_file(iarr).NE.' '))) then |
|
./pkg/ctrl/ctrl_cost_driver.F |
134 |
CTRL_COST_DRIVER |
& xx_genarr3d_file(iarr),xx_genarr3d_dummy(iarr), |
|
./pkg/ctrl/ctrl_init.F |
848 |
CTRL_INIT |
& xx_genarr3d_file(iarr)(1:MAX_LEN_FNAM), |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
108 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_file(iarr)(1:8).EQ.'xx_theta') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
110 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_file(iarr)(1:7).EQ.'xx_salt') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
112 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_file(iarr)(1:8).EQ.'xx_kapgm') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
114 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_file(iarr)(1:10).EQ.'xx_kapredi') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
116 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_file(iarr)(1:9).EQ.'xx_diffkr') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
119 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_file(iarr)(1:7).EQ.'xx_uvel') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
121 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_file(iarr)(1:7).EQ.'xx_vvel') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
410 |
CTRL_MAP_GENARR3D |
fnamebase = xx_genarr3d_file(iarr) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
437 |
CTRL_MAP_GENARR3D |
if (xx_genarr3d_file(iarr)(1:7).EQ.'xx_uvel') then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
439 |
CTRL_MAP_GENARR3D |
else if (xx_genarr3d_file(iarr)(1:7).EQ.'xx_vvel') then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
484 |
CTRL_MAP_GENARR3D |
if (xx_genarr3d_file(iarr)(1:7).NE.'xx_uvel'.AND. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
485 |
CTRL_MAP_GENARR3D |
& xx_genarr3d_file(iarr)(1:7).NE.'xx_vvel') |
|
./pkg/ctrl/ctrl_pack.F |
767 |
CTRL_PACK |
call CTRL_SET_FNAME( xx_genarr3d_file(iarr), |
|
./pkg/ctrl/ctrl_readparms.F |
154 |
CTRL_READPARMS |
& xx_genarr2d_file, xx_genarr3d_file, xx_gentim2d_file, |
|
./pkg/ctrl/ctrl_readparms.F |
248 |
CTRL_READPARMS |
write(xx_genarr3d_file(iarr)(1:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
250 |
CTRL_READPARMS |
write(xx_genarr3d_file(iarr)(1:14),'(a,i2.2)') |
|
./pkg/ctrl/ctrl_readparms.F |
252 |
CTRL_READPARMS |
write(xx_genarr3d_file(iarr)(15:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_summary.F |
439 |
CTRL_SUMMARY |
il = ILNBLNK( xx_genarr3d_file(iarr) ) |
|
./pkg/ctrl/ctrl_summary.F |
441 |
CTRL_SUMMARY |
&' file = ',xx_genarr3d_file(iarr)(1:il) |
|
./pkg/ctrl/ctrl_unpack.F |
855 |
CTRL_UNPACK |
call CTRL_SET_FNAME( xx_genarr3d_file(iarr), |
|
./pkg/ecco/ecco_cost_final.F |
1596 |
ECCO_COST_FINAL |
IL = ILNBLNK( xx_genarr3d_file(num_var) ) |
|
./pkg/ecco/ecco_cost_final.F |
1599 |
ECCO_COST_FINAL |
& xx_genarr3d_file(num_var)(1:IL), |