| File |
Line number |
Procedure |
Code |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
138 |
CTRL_MAP_INI_GENTIM2D |
& call MDSREADFIELD( xx_gentim2d_weight(iarr), ctrlprec, 'RL', |
|
./pkg/ctrl/CTRL_GENARR.h |
47 |
NO PROCEDURE |
& xx_gentim2d_file, xx_gentim2d_weight, |
|
./pkg/ctrl/CTRL_GENARR.h |
50 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) xx_gentim2d_weight(maxCtrlTim2D) |
|
./pkg/ctrl/ctrl_check.F |
105 |
CTRL_CHECK |
if (((xx_gentim2d_weight(iarr).NE.' ').AND. |
|
./pkg/ctrl/ctrl_check.F |
107 |
CTRL_CHECK |
& ((xx_gentim2d_weight(iarr).EQ.' ').AND. |
|
./pkg/ctrl/ctrl_cost_driver.F |
66 |
CTRL_COST_DRIVER |
if (xx_gentim2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_init.F |
877 |
CTRL_INIT |
if (xx_gentim2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
86 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_weight(iarr).NE.' ') |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
104 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
310 |
CTRL_MAP_INI_GENTIM2D |
CALL MDS_READ_FIELD( xx_gentim2d_weight(iarr),ctrlprec, |
|
./pkg/ctrl/ctrl_pack.F |
782 |
CTRL_PACK |
if (xx_gentim2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_pack.F |
791 |
CTRL_PACK |
& xx_gentim2d_weight(iarr), |
|
./pkg/ctrl/ctrl_readparms.F |
155 |
CTRL_READPARMS |
& xx_genarr2d_weight, xx_genarr3d_weight, xx_gentim2d_weight, |
|
./pkg/ctrl/ctrl_readparms.F |
275 |
CTRL_READPARMS |
write(xx_gentim2d_weight(iarr)(1:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_summary.F |
466 |
CTRL_SUMMARY |
if (xx_gentim2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_summary.F |
480 |
CTRL_SUMMARY |
il = ILNBLNK( xx_gentim2d_weight(iarr) ) |
|
./pkg/ctrl/ctrl_summary.F |
482 |
CTRL_SUMMARY |
&' weight = ',xx_gentim2d_weight(iarr)(1:il) |
|
./pkg/ctrl/ctrl_unpack.F |
870 |
CTRL_UNPACK |
if (xx_gentim2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_unpack.F |
879 |
CTRL_UNPACK |
& xx_gentim2d_weight(iarr), |