File |
Line number |
Procedure |
Code |
./pkg/smooth/smooth_correl2dw.F |
101 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_vwind_file ) then |
./pkg/smooth/smooth_correl2dw.F |
112 |
SMOOTH_CORREL2DW |
if ( xx_gen_file .EQ. xx_gentim2d_file(iarr) ) then |
./pkg/smooth/smooth_correl2dw.F |
134 |
SMOOTH_CORREL2DW |
& 'WARNING: no weights found for ',xx_gen_file |
./pkg/smooth/smooth_correl2dw.F |
13 |
SMOOTH_CORREL2DW |
U fld_in,mask_in,xx_gen_file,mythid) |
./pkg/smooth/smooth_correl2dw.F |
39 |
SMOOTH_CORREL2DW |
character*(MAX_LEN_FNAM) xx_gen_file |
./pkg/smooth/smooth_correl2dw.F |
68 |
SMOOTH_CORREL2DW |
if ( xx_gen_file .EQ. xx_hflux_file ) then |
./pkg/smooth/smooth_correl2dw.F |
70 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_sflux_file ) then |
./pkg/smooth/smooth_correl2dw.F |
72 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_tauu_file ) then |
./pkg/smooth/smooth_correl2dw.F |
74 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_tauv_file ) then |
./pkg/smooth/smooth_correl2dw.F |
77 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_atemp_file ) then |
./pkg/smooth/smooth_correl2dw.F |
79 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_aqh_file ) then |
./pkg/smooth/smooth_correl2dw.F |
81 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_precip_file ) then |
./pkg/smooth/smooth_correl2dw.F |
83 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_snowprecip_file ) then |
./pkg/smooth/smooth_correl2dw.F |
86 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_swflux_file ) then |
./pkg/smooth/smooth_correl2dw.F |
88 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_swdown_file ) then |
./pkg/smooth/smooth_correl2dw.F |
90 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_lwflux_file ) then |
./pkg/smooth/smooth_correl2dw.F |
92 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_lwdown_file ) then |
./pkg/smooth/smooth_correl2dw.F |
95 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_evap_file ) then |
./pkg/smooth/smooth_correl2dw.F |
97 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_apressure_file ) then |
./pkg/smooth/smooth_correl2dw.F |
99 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_uwind_file ) then |
./pkg/ctrl/ctrl_cost_gen.F |
140 |
CTRL_COST_GEN2D |
ilfld=ilnblnk( xx_gen_file ) |
./pkg/ctrl/ctrl_cost_gen.F |
142 |
CTRL_COST_GEN2D |
& xx_gen_file(1:ilfld),'.',optimcycle |
./pkg/ctrl/ctrl_cost_gen.F |
23 |
CTRL_COST_GEN2D |
I xx_gen_file, |
./pkg/ctrl/ctrl_cost_gen.F |
411 |
CTRL_COST_GEN3D |
I xx_gen_file, |
./pkg/ctrl/ctrl_cost_gen.F |
444 |
CTRL_COST_GEN3D |
character*(MAX_LEN_FNAM) xx_gen_file |
./pkg/ctrl/ctrl_cost_gen.F |
494 |
CTRL_COST_GEN3D |
ilfld = ilnblnk( xx_gen_file ) |
./pkg/ctrl/ctrl_cost_gen.F |
496 |
CTRL_COST_GEN3D |
& xx_gen_file(1:ilfld),'.',optimcycle |
./pkg/ctrl/ctrl_cost_gen.F |
67 |
CTRL_COST_GEN2D |
character*(MAX_LEN_FNAM) xx_gen_file |
./pkg/ctrl/ctrl_get_gen.F |
115 |
CTRL_GET_GEN |
ilgen=ilnblnk( xx_gen_file ) |
./pkg/ctrl/ctrl_get_gen.F |
117 |
CTRL_GET_GEN |
& xx_gen_file(1:ilgen), '.', optimcycle |
./pkg/ctrl/ctrl_get_gen.F |
121 |
CTRL_GET_GEN |
ilgen=ilnblnk( xx_gen_file ) |
./pkg/ctrl/ctrl_get_gen.F |
123 |
CTRL_GET_GEN |
& xx_gen_file(1:ilgen),'.effective.',optimcycle |
./pkg/ctrl/ctrl_get_gen.F |
155 |
CTRL_GET_GEN |
if ( xx_gen_file .EQ. xx_tauu_file .OR. |
./pkg/ctrl/ctrl_get_gen.F |
156 |
CTRL_GET_GEN |
& xx_gen_file .EQ. xx_tauv_file ) |
./pkg/ctrl/ctrl_get_gen.F |
165 |
CTRL_GET_GEN |
& xx_gen_file(1:ilgen),'.smooth.',optimcycle |
./pkg/ctrl/ctrl_get_gen.F |
191 |
CTRL_GET_GEN |
if ( xx_gen_file .EQ. xx_tauu_file .OR. |
./pkg/ctrl/ctrl_get_gen.F |
192 |
CTRL_GET_GEN |
& xx_gen_file .EQ. xx_tauv_file ) |
./pkg/ctrl/ctrl_get_gen.F |
201 |
CTRL_GET_GEN |
& xx_gen_file(1:ilgen),'.smooth.',optimcycle |
./pkg/ctrl/ctrl_get_gen.F |
220 |
CTRL_GET_GEN |
& ( xx_gen_file(1:7) .EQ. xx_tauu_file .OR. |
./pkg/ctrl/ctrl_get_gen.F |
221 |
CTRL_GET_GEN |
& xx_gen_file(1:7) .EQ. xx_tauv_file ) .AND. |
./pkg/ctrl/ctrl_get_gen.F |
227 |
CTRL_GET_GEN |
if ( xx_gen_file(1:7) .EQ. xx_tauu_file .OR. |
./pkg/ctrl/ctrl_get_gen.F |
228 |
CTRL_GET_GEN |
& xx_gen_file(1:7) .EQ. xx_tauv_file ) then |
./pkg/ctrl/ctrl_get_gen.F |
49 |
CTRL_GET_GEN |
character*(MAX_LEN_FNAM) xx_gen_file |
./pkg/ctrl/ctrl_get_gen.F |
8 |
CTRL_GET_GEN |
I xx_gen_file, xx_genstartdate, xx_genperiod, |