| File |
Line number |
Procedure |
Code |
|
./pkg/smooth/smooth_correl2dw.F |
107 |
SMOOTH_CORREL2DW |
if ( xx_gen_file .EQ. xx_gentim2d_file(iarr) ) then |
|
./pkg/smooth/smooth_correl2dw.F |
10 |
SMOOTH_CORREL2DW |
U fld_in,mask_in,xx_gen_file,mythid) |
|
./pkg/smooth/smooth_correl2dw.F |
129 |
SMOOTH_CORREL2DW |
& 'WARNING: no weights found for ',xx_gen_file |
|
./pkg/smooth/smooth_correl2dw.F |
36 |
SMOOTH_CORREL2DW |
character*(MAX_LEN_FNAM) xx_gen_file |
|
./pkg/smooth/smooth_correl2dw.F |
63 |
SMOOTH_CORREL2DW |
if ( xx_gen_file .EQ. xx_hflux_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
65 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_sflux_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
67 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_tauu_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
69 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_tauv_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
72 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_atemp_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
74 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_aqh_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
76 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_precip_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
78 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_snowprecip_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
81 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_swflux_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
83 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_swdown_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
85 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_lwflux_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
87 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_lwdown_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
90 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_evap_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
92 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_apressure_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
94 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_uwind_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
96 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_vwind_file ) then |
|
./pkg/ctrl/ctrl_get_gen.F |
104 |
CTRL_GET_GEN |
ilgen=ilnblnk( xx_gen_file ) |
|
./pkg/ctrl/ctrl_get_gen.F |
106 |
CTRL_GET_GEN |
& xx_gen_file(1:ilgen), '.', optimcycle |
|
./pkg/ctrl/ctrl_get_gen.F |
127 |
CTRL_GET_GEN |
if ( xx_gen_file .EQ. xx_tauu_file .OR. |
|
./pkg/ctrl/ctrl_get_gen.F |
128 |
CTRL_GET_GEN |
& xx_gen_file .EQ. xx_tauv_file ) |
|
./pkg/ctrl/ctrl_get_gen.F |
136 |
CTRL_GET_GEN |
call SMOOTH_CORREL2DW(xx_gen1,genmask,xx_gen_file,mythid) |
|
./pkg/ctrl/ctrl_get_gen.F |
139 |
CTRL_GET_GEN |
& xx_gen_file(1:ilgen),'.effective.',optimcycle |
|
./pkg/ctrl/ctrl_get_gen.F |
146 |
CTRL_GET_GEN |
& xx_gen_file(1:ilgen),'.smooth.',optimcycle |
|
./pkg/ctrl/ctrl_get_gen.F |
167 |
CTRL_GET_GEN |
if ( xx_gen_file .EQ. xx_tauu_file .OR. |
|
./pkg/ctrl/ctrl_get_gen.F |
168 |
CTRL_GET_GEN |
& xx_gen_file .EQ. xx_tauv_file ) |
|
./pkg/ctrl/ctrl_get_gen.F |
176 |
CTRL_GET_GEN |
call SMOOTH_CORREL2DW(xx_gen1,genmask,xx_gen_file,mythid) |
|
./pkg/ctrl/ctrl_get_gen.F |
179 |
CTRL_GET_GEN |
& xx_gen_file(1:ilgen),'.effective.',optimcycle |
|
./pkg/ctrl/ctrl_get_gen.F |
186 |
CTRL_GET_GEN |
& xx_gen_file(1:ilgen),'.smooth.',optimcycle |
|
./pkg/ctrl/ctrl_get_gen.F |
199 |
CTRL_GET_GEN |
& ( xx_gen_file .EQ. xx_tauu_file .OR. |
|
./pkg/ctrl/ctrl_get_gen.F |
200 |
CTRL_GET_GEN |
& xx_gen_file .EQ. xx_tauv_file ) .AND. |
|
./pkg/ctrl/ctrl_get_gen.F |
206 |
CTRL_GET_GEN |
if ( xx_gen_file .EQ. xx_tauu_file .OR. |
|
./pkg/ctrl/ctrl_get_gen.F |
207 |
CTRL_GET_GEN |
& xx_gen_file .EQ. xx_tauv_file ) then |
|
./pkg/ctrl/ctrl_get_gen.F |
44 |
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, |
|
./pkg/ecco/cost_forcing_gen.F |
127 |
COST_FORCING_GEN |
ilfld=ilnblnk( xx_gen_file ) |
|
./pkg/ecco/cost_forcing_gen.F |
129 |
COST_FORCING_GEN |
& xx_gen_file(1:ilfld),'.',optimcycle |
|
./pkg/ecco/cost_forcing_gen.F |
12 |
COST_FORCING_GEN |
I xx_gen_file, |
|
./pkg/ecco/cost_forcing_gen.F |
57 |
COST_FORCING_GEN |
character*(MAX_LEN_FNAM) xx_gen_file |