| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_addtime.F |
142 |
CAL_ADDTIME |
li = 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 |
191 |
CAL_ADDTIME |
li = cal_IsLeap( yi, myThid ) |
|
./pkg/cal/cal_addtime.F |
196 |
CAL_ADDTIME |
if (di .gt. ndaymonth(mi,li)) then |
|
./pkg/cal/cal_addtime.F |
203 |
CAL_ADDTIME |
if (switch .eq. 1) li = cal_IsLeap( yi, myThid ) |
|
./pkg/cal/cal_addtime.F |
221 |
CAL_ADDTIME |
if (switch .eq. 1) li = cal_IsLeap( yi, myThid ) |
|
./pkg/cal/cal_addtime.F |
222 |
CAL_ADDTIME |
di = ndaymonth(mi,li) |
|
./pkg/cal/cal_addtime.F |
235 |
CAL_ADDTIME |
added(3) = li |
|
./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 |
136 |
CAL_TIMEPASSED |
cdi = cdi + ndaymonth(imon,li) |
|
./pkg/cal/cal_timepassed.F |
156 |
CAL_TIMEPASSED |
& cdi - ndaymonth(mi,li) |
|
./pkg/cal/cal_timepassed.F |
162 |
CAL_TIMEPASSED |
csi = ndaymonth(mi,li)*secondsperday - csi |
|
./pkg/cal/cal_timepassed.F |
52 |
CAL_TIMEPASSED |
INTEGER li,lf |