| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_addtime.F |
132 |
CAL_ADDTIME |
nsecs = datesecs + intsecs |
|
./pkg/cal/cal_addtime.F |
134 |
CAL_ADDTIME |
& (nsecs .lt. 0)) then |
|
./pkg/cal/cal_addtime.F |
136 |
CAL_ADDTIME |
nsecs = nsecs + secondsperday |
|
./pkg/cal/cal_addtime.F |
138 |
CAL_ADDTIME |
nsecs = fac*nsecs |
|
./pkg/cal/cal_addtime.F |
148 |
CAL_ADDTIME |
nsecs = si + intsecs |
|
./pkg/cal/cal_addtime.F |
149 |
CAL_ADDTIME |
ndays = interval(1)+nsecs/secondsperday |
|
./pkg/cal/cal_addtime.F |
150 |
CAL_ADDTIME |
nsecs = mod(nsecs,secondsperday) |
|
./pkg/cal/cal_addtime.F |
208 |
CAL_ADDTIME |
nsecs = si + intsecs |
|
./pkg/cal/cal_addtime.F |
209 |
CAL_ADDTIME |
if (nsecs .ge. 0) then |
|
./pkg/cal/cal_addtime.F |
212 |
CAL_ADDTIME |
nsecs = nsecs + secondsperday |
|
./pkg/cal/cal_addtime.F |
231 |
CAL_ADDTIME |
hhmmss = nsecs/secondsperminute |
|
./pkg/cal/cal_addtime.F |
234 |
CAL_ADDTIME |
& mod(fac*nsecs,secondsperminute))*fac |
|
./pkg/cal/cal_addtime.F |
54 |
CAL_ADDTIME |
INTEGER nsecs |
|
./pkg/cal/cal_checkdate.F |
47 |
CAL_CHECKDATE |
INTEGER nsecs |
|
./pkg/cal/cal_checkdate.F |
90 |
CAL_CHECKDATE |
CALL CAL_CONVDATE( date, yy, mm, dd, nsecs, lp, wd, myThid ) |
|
./pkg/cal/cal_timeinterval.F |
102 |
CAL_TIMEINTERVAL |
& mod(fac*nsecs,secondsperminute))*fac |
|
./pkg/cal/cal_timeinterval.F |
48 |
CAL_TIMEINTERVAL |
INTEGER nsecs |
|
./pkg/cal/cal_timeinterval.F |
74 |
CAL_TIMEINTERVAL |
nsecs = int(timeint - tmp1 * tmp2 ) |
|
./pkg/cal/cal_timeinterval.F |
88 |
CAL_TIMEINTERVAL |
nsecs = int(timeint*modelstep - |
|
./pkg/cal/cal_timeinterval.F |
99 |
CAL_TIMEINTERVAL |
hhmmss = nsecs/secondsperminute |
|
./pkg/cal/cal_timepassed.F |
124 |
CAL_TIMEPASSED |
nsecs = sf - si |
|
./pkg/cal/cal_timepassed.F |
125 |
CAL_TIMEPASSED |
if (nsecs .lt. 0) then |
|
./pkg/cal/cal_timepassed.F |
126 |
CAL_TIMEPASSED |
nsecs = nsecs + secondsperday |
|
./pkg/cal/cal_timepassed.F |
129 |
CAL_TIMEPASSED |
ndays = ndays + nsecs/secondsperday |
|
./pkg/cal/cal_timepassed.F |
130 |
CAL_TIMEPASSED |
nsecs = mod(nsecs,secondsperday) |
|
./pkg/cal/cal_timepassed.F |
148 |
CAL_TIMEPASSED |
nsecs = (csf - (csf/secondsperday)*secondsperday) - |
|
./pkg/cal/cal_timepassed.F |
150 |
CAL_TIMEPASSED |
if (nsecs .lt. 0) then |
|
./pkg/cal/cal_timepassed.F |
151 |
CAL_TIMEPASSED |
nsecs = nsecs + secondsperday |
|
./pkg/cal/cal_timepassed.F |
163 |
CAL_TIMEPASSED |
nsecs = csi + csf |
|
./pkg/cal/cal_timepassed.F |
168 |
CAL_TIMEPASSED |
numdays(1) = ndays + nsecs/secondsperday |
|
./pkg/cal/cal_timepassed.F |
169 |
CAL_TIMEPASSED |
nsecs = mod(nsecs,secondsperday) |
|
./pkg/cal/cal_timepassed.F |
170 |
CAL_TIMEPASSED |
hhmmss = nsecs/secondsperminute |
|
./pkg/cal/cal_timepassed.F |
173 |
CAL_TIMEPASSED |
& mod(nsecs,secondsperminute) |
|
./pkg/cal/cal_timepassed.F |
57 |
CAL_TIMEPASSED |
INTEGER nsecs |
|
./pkg/cal/cal_toseconds.F |
51 |
CAL_TOSECONDS |
_RL fac, nsecs, ndays |
|
./pkg/cal/cal_toseconds.F |
88 |
CAL_TOSECONDS |
nsecs = ndays*secondsperday + |
|
./pkg/cal/cal_toseconds.F |
92 |
CAL_TOSECONDS |
timeint = fac*nsecs |