| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffields.F |
688 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:8).EQ.'xx_atemp') |
|
./pkg/exf/exf_getffields.F |
691 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:6).EQ.'xx_aqh') |
|
./pkg/exf/exf_getffields.F |
694 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:9).EQ.'xx_precip') |
|
./pkg/exf/exf_getffields.F |
697 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:9).EQ.'xx_lwflux') |
|
./pkg/exf/exf_getffields.F |
702 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:9).EQ.'xx_swflux') |
|
./pkg/exf/exf_getffields.F |
707 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:9).EQ.'xx_swdown') |
|
./pkg/exf/exf_getffields.F |
710 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:9).EQ.'xx_lwdown') |
|
./pkg/exf/exf_getffields.F |
715 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:9).EQ.'xx_runoff') |
|
./pkg/exf/exf_getffields.F |
720 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:7).EQ.'xx_evap') |
|
./pkg/exf/exf_getffields.F |
725 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:12).EQ.'xx_apressure') |
|
./pkg/exf/exf_getffields.F |
730 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:11).EQ.'xx_areamask') |
|
./pkg/exf/exf_getffields.F |
735 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:8).EQ.'xx_uwind') |
|
./pkg/exf/exf_getffields.F |
738 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:8).EQ.'xx_vwind') |
|
./pkg/exf/exf_getffields.F |
742 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:8).EQ.'xx_uwind') |
|
./pkg/exf/exf_getffields.F |
745 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:8).EQ.'xx_vwind') |
|
./pkg/exf/exf_getsurfacefluxes.F |
113 |
EXF_GETSURFACEFLUXES |
if (xx_gentim2d_file(iarr)(1:7).EQ.'xx_tauu') |
|
./pkg/exf/exf_getsurfacefluxes.F |
116 |
EXF_GETSURFACEFLUXES |
if (xx_gentim2d_file(iarr)(1:7).EQ.'xx_tauv') |
|
./pkg/exf/exf_getsurfacefluxes.F |
120 |
EXF_GETSURFACEFLUXES |
if (xx_gentim2d_file(iarr)(1:7).EQ.'xx_tauu') |
|
./pkg/exf/exf_getsurfacefluxes.F |
123 |
EXF_GETSURFACEFLUXES |
if (xx_gentim2d_file(iarr)(1:7).EQ.'xx_tauv') |
|
./pkg/exf/exf_wind.F |
233 |
EXF_WIND |
if (xx_gentim2d_file(iarr)(1:9).EQ.'xx_wspeed') |
|
./pkg/grdchk/grdchk_getadxx.F |
482 |
GRDCHK_GETADXX |
il=ilnblnk( xx_gentim2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getadxx.F |
485 |
GRDCHK_GETADXX |
& yadmark, xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
669 |
GRDCHK_GETXX |
il=ilnblnk( xx_gentim2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getxx.F |
672 |
GRDCHK_GETXX |
& yadmark, xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
675 |
GRDCHK_GETXX |
& xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_setxx.F |
674 |
GRDCHK_SETXX |
il=ilnblnk( xx_gentim2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_setxx.F |
677 |
GRDCHK_SETXX |
& yadmark, xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_setxx.F |
680 |
GRDCHK_SETXX |
& xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/smooth/smooth_correl2dw.F |
112 |
SMOOTH_CORREL2DW |
if ( xx_gen_file .EQ. xx_gentim2d_file(iarr) ) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
131 |
CTRL_MAP_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
133 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_file(iarr), |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
86 |
CTRL_MAP_INI_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
96 |
CTRL_MAP_INI_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
131 |
CTRL_MAP_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
133 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_file(iarr), |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
93 |
CTRL_MAP_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
95 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_file(iarr), |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
93 |
CTRL_MAP_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
95 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_file(iarr), |
|
./pkg/ctrl/CTRL_GENARR.h |
47 |
NO PROCEDURE |
& xx_gentim2d_file, xx_gentim2d_weight, |
|
./pkg/ctrl/CTRL_GENARR.h |
49 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) xx_gentim2d_file(maxCtrlTim2D) |
|
./pkg/ctrl/ctrl_check.F |
106 |
CTRL_CHECK |
& (xx_gentim2d_file(iarr).EQ.' ')).OR. |
|
./pkg/ctrl/ctrl_check.F |
108 |
CTRL_CHECK |
& (xx_gentim2d_file(iarr).NE.' '))) then |
|
./pkg/ctrl/ctrl_cost_driver.F |
78 |
CTRL_COST_DRIVER |
& xx_gentim2d_file(iarr),xx_gentim2d_dummy(iarr), |
|
./pkg/ctrl/ctrl_init.F |
866 |
CTRL_INIT |
call CTRL_INIT_REC ( xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM), |
|
./pkg/ctrl/ctrl_init.F |
899 |
CTRL_INIT |
ilgen=ilnblnk( xx_gentim2d_file(iarr) ) |
|
./pkg/ctrl/ctrl_init.F |
901 |
CTRL_INIT |
& xx_gentim2d_file(iarr)(1:ilgen),'.effective' |
|
./pkg/ctrl/ctrl_init.F |
908 |
CTRL_INIT |
ilgen=ilnblnk( xx_gentim2d_file(iarr) ) |
|
./pkg/ctrl/ctrl_init.F |
910 |
CTRL_INIT |
& xx_gentim2d_file(iarr)(1:ilgen),'.tmp' |
|
./pkg/ctrl/ctrl_init.F |
918 |
CTRL_INIT |
& xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM), |
|
./pkg/ctrl/ctrl_map_forcing.F |
319 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:5).EQ.'xx_fe') tmpUE |
|
./pkg/ctrl/ctrl_map_forcing.F |
321 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:5).EQ.'xx_fn') tmpVN |
|
./pkg/ctrl/ctrl_map_forcing.F |
341 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:7).EQ.'xx_qnet') Qnet |
|
./pkg/ctrl/ctrl_map_forcing.F |
343 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:8).EQ.'xx_empmr') EmPmR |
|
./pkg/ctrl/ctrl_map_forcing.F |
345 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:6).EQ.'xx_qsw') Qsw |
|
./pkg/ctrl/ctrl_map_forcing.F |
347 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:6).EQ.'xx_sst') SST |
|
./pkg/ctrl/ctrl_map_forcing.F |
349 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:6).EQ.'xx_sss') SSS |
|
./pkg/ctrl/ctrl_map_forcing.F |
351 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:8).EQ.'xx_pload') pLoad |
|
./pkg/ctrl/ctrl_map_forcing.F |
353 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:11).EQ.'xx_saltflux') saltFlux |
|
./pkg/ctrl/ctrl_map_forcing.F |
355 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:5).EQ.'xx_fu') fu |
|
./pkg/ctrl/ctrl_map_forcing.F |
357 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:5).EQ.'xx_fv') fv |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
144 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_file(iarr).EQ.'xx_gen_precip') then |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
88 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM), |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
107 |
CTRL_MAP_INI_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
139 |
CTRL_MAP_INI_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./pkg/ctrl/ctrl_pack.F |
783 |
CTRL_PACK |
call CTRL_SET_FNAME( xx_gentim2d_file(iarr), |
|
./pkg/ctrl/ctrl_readparms.F |
154 |
CTRL_READPARMS |
& xx_genarr2d_file, xx_genarr3d_file, xx_gentim2d_file, |
|
./pkg/ctrl/ctrl_readparms.F |
269 |
CTRL_READPARMS |
write(xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
271 |
CTRL_READPARMS |
write(xx_gentim2d_file(iarr)(1:14),'(a,i2.2)') |
|
./pkg/ctrl/ctrl_readparms.F |
273 |
CTRL_READPARMS |
write(xx_gentim2d_file(iarr)(15:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_summary.F |
474 |
CTRL_SUMMARY |
il = ILNBLNK( xx_gentim2d_file(iarr) ) |
|
./pkg/ctrl/ctrl_summary.F |
476 |
CTRL_SUMMARY |
&' file = ',xx_gentim2d_file(iarr)(1:il) |
|
./pkg/ctrl/ctrl_unpack.F |
871 |
CTRL_UNPACK |
call CTRL_SET_FNAME( xx_gentim2d_file(iarr), |
|
./pkg/ecco/cost_averagesfields.F |
220 |
COST_AVERAGESFIELDS |
if (xx_gentim2d_file(iarr).EQ.'xx_gen_precip') |
|
./pkg/ecco/ecco_cost_final.F |
1568 |
ECCO_COST_FINAL |
IL = ILNBLNK( xx_gentim2d_file(num_var) ) |
|
./pkg/ecco/ecco_cost_final.F |
1571 |
ECCO_COST_FINAL |
& xx_gentim2d_file(num_var)(1:IL), |