| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_timepassed.F |
110 |
CAL_TIMEPASSED |
call CAL_CONVDATE( initialdate,yf,mf,df,sf,lf,wf,mythid ) |
|
./pkg/cal/cal_timepassed.F |
113 |
CAL_TIMEPASSED |
call CAL_CONVDATE( finaldate,yf,mf,df,sf,lf,wf,mythid ) |
|
./pkg/cal/cal_timepassed.F |
140 |
CAL_TIMEPASSED |
if (yi .eq. yf) then |
|
./pkg/cal/cal_timepassed.F |
152 |
CAL_TIMEPASSED |
do iyr = yi+1,yf-1 |
|
./pkg/cal/cal_timepassed.F |
51 |
CAL_TIMEPASSED |
integer yi,yf |
|
./pkg/exf/exf_getffieldrec.F |
16 |
EXF_GETFFIELDREC |
O yf, |
|
./pkg/exf/exf_getffieldrec.F |
206 |
EXF_GETFFIELDREC |
call CAL_CONVDATE( mydate,yf,mf,df,sf,lf,wf,mythid ) |
|
./pkg/exf/exf_getffieldrec.F |
208 |
EXF_GETFFIELDREC |
if ( yf .EQ. yi ) then |
|
./pkg/exf/exf_getffieldrec.F |
212 |
EXF_GETFFIELDREC |
if ( (yf-1) .EQ. yi ) then |
|
./pkg/exf/exf_getffieldrec.F |
215 |
EXF_GETFFIELDREC |
startinyear(1) = (yf-1)*10000 + 100 + 1 |
|
./pkg/exf/exf_getffieldrec.F |
218 |
EXF_GETFFIELDREC |
startinyear(1) = yf*10000 + 100 + 1 |
|
./pkg/exf/exf_getffieldrec.F |
219 |
EXF_GETFFIELDREC |
yi = yf |
|
./pkg/exf/exf_getffieldrec.F |
241 |
EXF_GETFFIELDREC |
yp = yf |
|
./pkg/exf/exf_getffieldrec.F |
247 |
EXF_GETFFIELDREC |
if ( yp .NE. yf ) then |
|
./pkg/exf/exf_getffieldrec.F |
286 |
EXF_GETFFIELDREC |
yf = yn |
|
./pkg/exf/exf_getffieldrec.F |
92 |
EXF_GETFFIELDREC |
integer yi,yf,yp,yn |