| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getyearlyfieldname.F |
30 |
EXF_GETYEARLYFIELDNAME |
character*(128) genfile |
|
./pkg/exf/exf_getyearlyfieldname.F |
53 |
EXF_GETYEARLYFIELDNAME |
il = ilnblnk( genfile ) |
|
./pkg/exf/exf_getyearlyfieldname.F |
57 |
EXF_GETYEARLYFIELDNAME |
write(genfileout(1:128),'( a,i2.2)') genfile(1:il),yearLoc |
|
./pkg/exf/exf_getyearlyfieldname.F |
59 |
EXF_GETYEARLYFIELDNAME |
write(genfileout(1:128),'(2a,i4.4)') genfile(1:il),'_',year |
|
./pkg/exf/exf_getyearlyfieldname.F |
62 |
EXF_GETYEARLYFIELDNAME |
genfileout = genfile |
|
./pkg/exf/exf_getyearlyfieldname.F |
6 |
EXF_GETYEARLYFIELDNAME |
I useYearlyFields, twoDigitYear, genperiod, year, genfile, |
|
./pkg/exf/exf_set_gen.F |
129 |
EXF_SET_GEN |
I genfile, |
|
./pkg/exf/exf_set_gen.F |
163 |
EXF_SET_GEN |
I genfile, |
|
./pkg/exf/exf_set_gen.F |
219 |
EXF_INIT_GEN |
& genfile, genperiod, exf_inscal_gen, genmask, |
|
./pkg/exf/exf_set_gen.F |
259 |
EXF_INIT_GEN |
character*(128) genfile |
|
./pkg/exf/exf_set_gen.F |
295 |
EXF_INIT_GEN |
if ( genfile .NE. ' ' .and. genperiod .eq. 0. ) then |
|
./pkg/exf/exf_set_gen.F |
299 |
EXF_INIT_GEN |
call EXF_INTERP( genfile, exf_iprec |
|
./pkg/exf/exf_set_gen.F |
307 |
EXF_INIT_GEN |
CALL READ_REC_3D_RL( genfile, exf_iprec, 1, |
|
./pkg/exf/exf_set_gen.F |
58 |
EXF_SET_GEN |
character*(128) genfile |
|
./pkg/exf/exf_set_gen.F |
7 |
EXF_SET_GEN |
& genfile, genstartdate, genperiod, |
|
./pkg/exf/exf_set_gen.F |
94 |
EXF_SET_GEN |
if ( genfile .NE. ' ' .and. genperiod .ne. 0 ) then |
|
./pkg/exf/exf_set_runoff.F |
104 |
EXF_SET_RUNOFF |
I genfile, |
|
./pkg/exf/exf_set_runoff.F |
125 |
EXF_SET_RUNOFF |
I genfile, |
|
./pkg/exf/exf_set_runoff.F |
168 |
EXF_INIT_RUNOFF |
& genfile, genperiod, exf_inscal_gen, genmask, |
|
./pkg/exf/exf_set_runoff.F |
202 |
EXF_INIT_RUNOFF |
character*(128) genfile |
|
./pkg/exf/exf_set_runoff.F |
223 |
EXF_INIT_RUNOFF |
if ( genfile .NE. ' ' .and. genperiod .eq. 0. ) then |
|
./pkg/exf/exf_set_runoff.F |
227 |
EXF_INIT_RUNOFF |
CALL READ_REC_3D_RL( genfile, exf_iprec, 1, |
|
./pkg/exf/exf_set_runoff.F |
48 |
EXF_SET_RUNOFF |
character*(128) genfile |
|
./pkg/exf/exf_set_runoff.F |
69 |
EXF_SET_RUNOFF |
if ( genfile .NE. ' ' .and. genperiod .ne. 0 ) then |
|
./pkg/exf/exf_set_runoff.F |
7 |
EXF_SET_RUNOFF |
& genfile, genstartdate, genperiod, |