File |
Line number |
Procedure |
Code |
./pkg/cal/cal_checkdate.F |
107 |
CAL_CHECKDATE |
call CAL_CONVDATE( date,yy,mm,dd,nsecs,lp,wd,mythid ) |
./pkg/cal/cal_checkdate.F |
111 |
CAL_CHECKDATE |
hhmmss = nsecs/secondsperminute |
./pkg/cal/cal_checkdate.F |
114 |
CAL_CHECKDATE |
& mod(nsecs,secondsperminute) |
./pkg/cal/cal_checkdate.F |
54 |
CAL_CHECKDATE |
integer nsecs |
./pkg/cal/cal_checkdate.F |
83 |
CAL_CHECKDATE |
call CAL_CONVDATE(date,yy,mm,dd,nsecs,lp,wd,mythid) |
./pkg/cal/cal_checkdate.F |
84 |
CAL_CHECKDATE |
if (nsecs .lt. 0) fac = -1 |
./pkg/cal/cal_checkdate.F |
85 |
CAL_CHECKDATE |
hhmmss = fac*nsecs/secondsperminute |
./pkg/cal/cal_checkdate.F |
88 |
CAL_CHECKDATE |
& mod(fac*nsecs,secondsperminute) |
./pkg/cal/cal_toseconds.F |
59 |
CAL_TOSECONDS |
_RL fac, nsecs, ndays |
./pkg/cal/cal_toseconds.F |
85 |
CAL_TOSECONDS |
nsecs = ndays*secondsperday + |
./pkg/cal/cal_toseconds.F |
89 |
CAL_TOSECONDS |
timeint = fac*nsecs |
./pkg/cal/cal_timeinterval.F |
57 |
CAL_TIMEINTERVAL |
integer nsecs |
./pkg/cal/cal_timeinterval.F |
74 |
CAL_TIMEINTERVAL |
nsecs = int(timeint - tmp1 * tmp2 ) |
./pkg/cal/cal_timeinterval.F |
79 |
CAL_TIMEINTERVAL |
nsecs = int(timeint*modelstep - |
./pkg/cal/cal_timeinterval.F |
90 |
CAL_TIMEINTERVAL |
hhmmss = nsecs/secondsperminute |
./pkg/cal/cal_timeinterval.F |
93 |
CAL_TIMEINTERVAL |
& mod(fac*nsecs,secondsperminute))*fac |
./pkg/cal/cal_addtime.F |
129 |
CAL_ADDTIME |
nsecs = datesecs + intsecs |
./pkg/cal/cal_addtime.F |
131 |
CAL_ADDTIME |
& (nsecs .lt. 0)) then |
./pkg/cal/cal_addtime.F |
133 |
CAL_ADDTIME |
nsecs = nsecs + secondsperday |
./pkg/cal/cal_addtime.F |
135 |
CAL_ADDTIME |
nsecs = fac*nsecs |
./pkg/cal/cal_addtime.F |
145 |
CAL_ADDTIME |
nsecs = si + intsecs |
./pkg/cal/cal_addtime.F |
146 |
CAL_ADDTIME |
ndays = interval(1)+nsecs/secondsperday |
./pkg/cal/cal_addtime.F |
147 |
CAL_ADDTIME |
nsecs = mod(nsecs,secondsperday) |
./pkg/cal/cal_addtime.F |
205 |
CAL_ADDTIME |
nsecs = si + intsecs |
./pkg/cal/cal_addtime.F |
206 |
CAL_ADDTIME |
if (nsecs .ge. 0) then |
./pkg/cal/cal_addtime.F |
209 |
CAL_ADDTIME |
nsecs = nsecs + secondsperday |
./pkg/cal/cal_addtime.F |
228 |
CAL_ADDTIME |
hhmmss = nsecs/secondsperminute |
./pkg/cal/cal_addtime.F |
231 |
CAL_ADDTIME |
& mod(fac*nsecs,secondsperminute))*fac |
./pkg/cal/cal_addtime.F |
59 |
CAL_ADDTIME |
integer nsecs |
./pkg/cal/cal_timepassed.F |
119 |
CAL_TIMEPASSED |
nsecs = sf - si |
./pkg/cal/cal_timepassed.F |
120 |
CAL_TIMEPASSED |
if (nsecs .lt. 0) then |
./pkg/cal/cal_timepassed.F |
121 |
CAL_TIMEPASSED |
nsecs = nsecs + secondsperday |
./pkg/cal/cal_timepassed.F |
124 |
CAL_TIMEPASSED |
ndays = ndays + nsecs/secondsperday |
./pkg/cal/cal_timepassed.F |
125 |
CAL_TIMEPASSED |
nsecs = mod(nsecs,secondsperday) |
./pkg/cal/cal_timepassed.F |
143 |
CAL_TIMEPASSED |
nsecs = (csf - (csf/secondsperday)*secondsperday) - |
./pkg/cal/cal_timepassed.F |
145 |
CAL_TIMEPASSED |
if (nsecs .lt. 0) then |
./pkg/cal/cal_timepassed.F |
146 |
CAL_TIMEPASSED |
nsecs = nsecs + secondsperday |
./pkg/cal/cal_timepassed.F |
158 |
CAL_TIMEPASSED |
nsecs = csi + csf |
./pkg/cal/cal_timepassed.F |
163 |
CAL_TIMEPASSED |
numdays(1) = ndays + nsecs/secondsperday |
./pkg/cal/cal_timepassed.F |
164 |
CAL_TIMEPASSED |
nsecs = mod(nsecs,secondsperday) |
./pkg/cal/cal_timepassed.F |
165 |
CAL_TIMEPASSED |
hhmmss = nsecs/secondsperminute |
./pkg/cal/cal_timepassed.F |
168 |
CAL_TIMEPASSED |
& mod(nsecs,secondsperminute) |
./pkg/cal/cal_timepassed.F |
60 |
CAL_TIMEPASSED |
integer nsecs |