| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffieldrec.F |
100 |
EXF_GETFFIELDREC |
if ( fldPeriod .eq. 0. _d 0 ) then |
|
./pkg/exf/exf_getffieldrec.F |
10 |
EXF_GETFFIELDREC |
I fldStartTime, fldPeriod, fldRepeatCycle, |
|
./pkg/exf/exf_getffieldrec.F |
133 |
EXF_GETFFIELDREC |
count0 = INT((fldsectot+0.5)/fldPeriod) + 1 |
|
./pkg/exf/exf_getffieldrec.F |
135 |
EXF_GETFFIELDREC |
fldsecs = MOD(fldsectot,fldPeriod) |
|
./pkg/exf/exf_getffieldrec.F |
144 |
EXF_GETFFIELDREC |
count0 = INT((fldsecs0+0.5)/fldPeriod) + 1 |
|
./pkg/exf/exf_getffieldrec.F |
145 |
EXF_GETFFIELDREC |
fldsecs1 = MOD(fldsectot+fldPeriod,fldRepeatCycle) |
|
./pkg/exf/exf_getffieldrec.F |
146 |
EXF_GETFFIELDREC |
count1 = INT((fldsecs1+0.5)/fldPeriod) + 1 |
|
./pkg/exf/exf_getffieldrec.F |
147 |
EXF_GETFFIELDREC |
fldsecs = MOD(fldsecs0,fldPeriod) |
|
./pkg/exf/exf_getffieldrec.F |
152 |
EXF_GETFFIELDREC |
fac = 1. - fldsecs/fldPeriod |
|
./pkg/exf/exf_getffieldrec.F |
179 |
EXF_GETFFIELDREC |
count0 = INT((fldsectot+0.5)/fldPeriod) + 1 |
|
./pkg/exf/exf_getffieldrec.F |
184 |
EXF_GETFFIELDREC |
if ( (fldStartTime+count0*fldPeriod) .ge. secondsInYear ) then |
|
./pkg/exf/exf_getffieldrec.F |
190 |
EXF_GETFFIELDREC |
fldsecs = MOD(fldsectot,fldPeriod) |
|
./pkg/exf/exf_getffieldrec.F |
191 |
EXF_GETFFIELDREC |
fac = 1. - fldsecs/fldPeriod |
|
./pkg/exf/exf_getffieldrec.F |
193 |
EXF_GETFFIELDREC |
& fac = 1. - fldsecs/(secondsInYear-(count0-1)*fldPeriod) |
|
./pkg/exf/exf_getffieldrec.F |
212 |
EXF_GETFFIELDREC |
IF ( fldPeriod .EQ. 0. _d 0 ) THEN |
|
./pkg/exf/exf_getffieldrec.F |
223 |
EXF_GETFFIELDREC |
locTime = myTime - fldStartTime + fldPeriod*halfRL |
|
./pkg/exf/exf_getffieldrec.F |
226 |
EXF_GETFFIELDREC |
I fldRepeatCycle, fldPeriod, |
|
./pkg/exf/exf_getffieldrec.F |
244 |
EXF_GETFFIELDREC |
& ' , fldPeriod=', fldPeriod |
|
./pkg/exf/exf_getffieldrec.F |
47 |
EXF_GETFFIELDREC |
_RL fldStartTime, fldPeriod, fldRepeatCycle |
|
./pkg/exf/exf_init_fld.F |
101 |
EXF_INIT_FLD |
IF ( fldFile .NE. ' ' .AND. fldPeriod .EQ. 0. ) THEN |
|
./pkg/exf/exf_init_fld.F |
13 |
EXF_INIT_FLD |
I fldPeriod, fld_inScale, fldConst, |
|
./pkg/exf/exf_init_fld.F |
53 |
EXF_INIT_FLD |
_RL fldPeriod, fld_inScale, fldConst |
|
./pkg/exf/exf_set_fld.F |
116 |
EXF_SET_FLD |
IF ( fldFile .NE. ' ' .AND. fldPeriod .NE. 0. ) THEN |
|
./pkg/exf/exf_set_fld.F |
128 |
EXF_SET_FLD |
IF ( useCAL .AND. fldPeriod .EQ. -12. ) THEN |
|
./pkg/exf/exf_set_fld.F |
12 |
EXF_SET_FLD |
I fldStartTime, fldPeriod, fldRepeatCycle, |
|
./pkg/exf/exf_set_fld.F |
137 |
EXF_SET_FLD |
ELSEIF ( fldPeriod .LT. 0. ) THEN |
|
./pkg/exf/exf_set_fld.F |
140 |
EXF_SET_FLD |
& '"', fldName, '", Invalid fldPeriod=', fldPeriod, |
|
./pkg/exf/exf_set_fld.F |
147 |
EXF_SET_FLD |
I fldStartTime, fldPeriod, fldRepeatCycle, |
|
./pkg/exf/exf_set_fld.F |
169 |
EXF_SET_FLD |
I useExfYearlyFields, twoDigitYear, fldPeriod, year0, |
|
./pkg/exf/exf_set_fld.F |
228 |
EXF_SET_FLD |
I useExfYearlyFields, twoDigitYear, fldPeriod, year1, |
|
./pkg/exf/exf_set_fld.F |
77 |
EXF_SET_FLD |
_RL fldStartTime, fldPeriod, fldRepeatCycle |