| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_addtime.F |
136 |
CAL_ADDTIME |
yi = 0 |
|
./pkg/cal/cal_addtime.F |
142 |
CAL_ADDTIME |
call CAL_CONVDATE( date,yi,mi,di,si,li,wi,mythid ) |
|
./pkg/cal/cal_addtime.F |
177 |
CAL_ADDTIME |
if ((mi.gt.2.and.cal_IsLeap(yi+1,mythid).eq.2).or. |
|
./pkg/cal/cal_addtime.F |
178 |
CAL_ADDTIME |
& (mi.le.2.and.cal_IsLeap(yi,mythid).eq.2) ) |
|
./pkg/cal/cal_addtime.F |
182 |
CAL_ADDTIME |
yi = yi + 1 |
|
./pkg/cal/cal_addtime.F |
184 |
CAL_ADDTIME |
if ((mi.gt.2.and.cal_IsLeap(yi+1,mythid).eq.2).or. |
|
./pkg/cal/cal_addtime.F |
185 |
CAL_ADDTIME |
& (mi.le.2.and.cal_IsLeap(yi,mythid).eq.2) ) |
|
./pkg/cal/cal_addtime.F |
188 |
CAL_ADDTIME |
li = cal_IsLeap( yi, mythid ) |
|
./pkg/cal/cal_addtime.F |
198 |
CAL_ADDTIME |
yi = yi + switch |
|
./pkg/cal/cal_addtime.F |
200 |
CAL_ADDTIME |
if (switch .eq. 1) li = cal_IsLeap( yi, mythid ) |
|
./pkg/cal/cal_addtime.F |
217 |
CAL_ADDTIME |
yi = yi - switch |
|
./pkg/cal/cal_addtime.F |
218 |
CAL_ADDTIME |
if (switch .eq. 1) li = cal_IsLeap( yi, mythid ) |
|
./pkg/cal/cal_addtime.F |
227 |
CAL_ADDTIME |
added(1) = yi*10000 + mi*100 + di |
|
./pkg/cal/cal_addtime.F |
61 |
CAL_ADDTIME |
integer yi,mi,di,si,li,wi |
|
./pkg/cal/cal_timepassed.F |
109 |
CAL_TIMEPASSED |
call CAL_CONVDATE( finaldate,yi,mi,di,si,li,wi,mythid ) |
|
./pkg/cal/cal_timepassed.F |
112 |
CAL_TIMEPASSED |
call CAL_CONVDATE( initialdate,yi,mi,di,si,li,wi,mythid ) |
|
./pkg/cal/cal_timepassed.F |
140 |
CAL_TIMEPASSED |
if (yi .eq. yf) then |
|
./pkg/cal/cal_timepassed.F |
150 |
CAL_TIMEPASSED |
ndays = (ndaysnoleap - 1) + cal_IsLeap( yi, mythid ) - |
|
./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 |
203 |
EXF_GETFFIELDREC |
call CAL_CONVDATE( date_array,yi,mi,di,si,li,wi,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 |
219 |
EXF_GETFFIELDREC |
yi = yf |
|
./pkg/exf/exf_getffieldrec.F |
284 |
EXF_GETFFIELDREC |
if ( yn.GT.yi ) then |
|
./pkg/exf/exf_getffieldrec.F |
92 |
EXF_GETFFIELDREC |
integer yi,yf,yp,yn |