| File |
Line number |
Procedure |
Code |
|
./pkg/smooth/smooth_correl2dw.F |
29 |
SMOOTH_CORREL2DW |
character*(MAX_LEN_FNAM) xx_gen_file |
|
./pkg/smooth/smooth_correl2dw.F |
47 |
SMOOTH_CORREL2DW |
if ( xx_gen_file .EQ. xx_hflux_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
49 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_sflux_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
51 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_tauu_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
53 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_tauv_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
56 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_atemp_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
58 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_aqh_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
60 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_precip_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
62 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_snowprecip_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
65 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_swflux_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
67 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_swdown_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
69 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_lwflux_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
71 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_lwdown_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
74 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_evap_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
76 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_apressure_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
78 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_uwind_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
7 |
SMOOTH_CORREL2DW |
U fld_in,mask_in,xx_gen_file,mythid) |
|
./pkg/smooth/smooth_correl2dw.F |
80 |
SMOOTH_CORREL2DW |
elseif ( xx_gen_file .EQ. xx_vwind_file ) then |
|
./pkg/smooth/smooth_correl2dw.F |
86 |
SMOOTH_CORREL2DW |
& 'no weights implemented here for ',xx_gen_file |
|
./pkg/ctrl/ctrl_get_gen.F |
106 |
CTRL_GET_GEN |
ilgen=ilnblnk( xx_gen_file ) |
|
./pkg/ctrl/ctrl_get_gen.F |
108 |
CTRL_GET_GEN |
& xx_gen_file(1:ilgen), '.', optimcycle |
|
./pkg/ctrl/ctrl_get_gen.F |
142 |
CTRL_GET_GEN |
if ( xx_gen_file .EQ. xx_tauu_file .OR. |
|
./pkg/ctrl/ctrl_get_gen.F |
143 |
CTRL_GET_GEN |
& xx_gen_file .EQ. xx_tauv_file ) |
|
./pkg/ctrl/ctrl_get_gen.F |
148 |
CTRL_GET_GEN |
call SMOOTH_CORREL2DW(xx_gen1,genmask,xx_gen_file,mythid) |
|
./pkg/ctrl/ctrl_get_gen.F |
150 |
CTRL_GET_GEN |
& xx_gen_file(1:ilgen),'.effective.',optimcycle |
|
./pkg/ctrl/ctrl_get_gen.F |
163 |
CTRL_GET_GEN |
if ( xx_gen_file .EQ. xx_tauu_file .OR. |
|
./pkg/ctrl/ctrl_get_gen.F |
164 |
CTRL_GET_GEN |
& xx_gen_file .EQ. xx_tauv_file ) |
|
./pkg/ctrl/ctrl_get_gen.F |
169 |
CTRL_GET_GEN |
call SMOOTH_CORREL2DW(xx_gen1,genmask,xx_gen_file,mythid) |
|
./pkg/ctrl/ctrl_get_gen.F |
171 |
CTRL_GET_GEN |
& xx_gen_file(1:ilgen),'.effective.',optimcycle |
|
./pkg/ctrl/ctrl_get_gen.F |
182 |
CTRL_GET_GEN |
& ( xx_gen_file .EQ. xx_tauu_file .OR. |
|
./pkg/ctrl/ctrl_get_gen.F |
183 |
CTRL_GET_GEN |
& xx_gen_file .EQ. xx_tauv_file ) .AND. |
|
./pkg/ctrl/ctrl_get_gen.F |
189 |
CTRL_GET_GEN |
if ( xx_gen_file .EQ. xx_tauu_file .OR. |
|
./pkg/ctrl/ctrl_get_gen.F |
190 |
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 |
128 |
COST_FORCING_GEN |
ilfld=ilnblnk( xx_gen_file ) |
|
./pkg/ecco/cost_forcing_gen.F |
12 |
COST_FORCING_GEN |
I xx_gen_file, |
|
./pkg/ecco/cost_forcing_gen.F |
130 |
COST_FORCING_GEN |
& xx_gen_file(1:ilfld),'.',optimcycle |
|
./pkg/ecco/cost_forcing_gen.F |
58 |
COST_FORCING_GEN |
character*(MAX_LEN_FNAM) xx_gen_file |