| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_addtime.F |
139 |
CAL_ADDTIME |
yi = 0 |
|
./pkg/cal/cal_addtime.F |
145 |
CAL_ADDTIME |
call CAL_CONVDATE( date,yi,mi,di,si,li,wi,myThid ) |
|
./pkg/cal/cal_addtime.F |
180 |
CAL_ADDTIME |
if ((mi.gt.2.and.cal_IsLeap(yi+1,myThid).eq.2).or. |
|
./pkg/cal/cal_addtime.F |
181 |
CAL_ADDTIME |
& (mi.le.2.and.cal_IsLeap(yi,myThid).eq.2) ) |
|
./pkg/cal/cal_addtime.F |
185 |
CAL_ADDTIME |
yi = yi + 1 |
|
./pkg/cal/cal_addtime.F |
187 |
CAL_ADDTIME |
if ((mi.gt.2.and.cal_IsLeap(yi+1,myThid).eq.2).or. |
|
./pkg/cal/cal_addtime.F |
188 |
CAL_ADDTIME |
& (mi.le.2.and.cal_IsLeap(yi,myThid).eq.2) ) |
|
./pkg/cal/cal_addtime.F |
191 |
CAL_ADDTIME |
li = cal_IsLeap( yi, myThid ) |
|
./pkg/cal/cal_addtime.F |
201 |
CAL_ADDTIME |
yi = yi + switch |
|
./pkg/cal/cal_addtime.F |
203 |
CAL_ADDTIME |
if (switch .eq. 1) li = cal_IsLeap( yi, myThid ) |
|
./pkg/cal/cal_addtime.F |
220 |
CAL_ADDTIME |
yi = yi - switch |
|
./pkg/cal/cal_addtime.F |
221 |
CAL_ADDTIME |
if (switch .eq. 1) li = cal_IsLeap( yi, myThid ) |
|
./pkg/cal/cal_addtime.F |
230 |
CAL_ADDTIME |
added(1) = yi*10000 + mi*100 + di |
|
./pkg/cal/cal_addtime.F |
56 |
CAL_ADDTIME |
INTEGER yi,mi,di,si,li,wi |
|
./pkg/cal/cal_timepassed.F |
114 |
CAL_TIMEPASSED |
call CAL_CONVDATE( finaldate,yi,mi,di,si,li,wi,myThid ) |
|
./pkg/cal/cal_timepassed.F |
117 |
CAL_TIMEPASSED |
call CAL_CONVDATE( initialdate,yi,mi,di,si,li,wi,myThid ) |
|
./pkg/cal/cal_timepassed.F |
145 |
CAL_TIMEPASSED |
if (yi .eq. yf) then |
|
./pkg/cal/cal_timepassed.F |
155 |
CAL_TIMEPASSED |
ndays = (ndaysnoleap - 1) + cal_IsLeap( yi, myThid ) - |
|
./pkg/cal/cal_timepassed.F |
157 |
CAL_TIMEPASSED |
do iyr = yi+1,yf-1 |
|
./pkg/cal/cal_timepassed.F |
48 |
CAL_TIMEPASSED |
INTEGER yi,yf |