| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
104 |
SET_ALARM |
dates(ntags) = datein |
|
./pkg/fizhi/fizhi_clockstuff.F |
108 |
SET_ALARM |
& ' Set Alarm for: ', datein, ' ', timein, |
|
./pkg/fizhi/fizhi_clockstuff.F |
117 |
GET_ALARM |
subroutine GET_ALARM (tag,datein,timein,freq,tleft) |
|
./pkg/fizhi/fizhi_clockstuff.F |
138 |
GET_ALARM |
integer freq,datein,timein,tleft |
|
./pkg/fizhi/fizhi_clockstuff.F |
151 |
GET_ALARM |
datein = dates(n) |
|
./pkg/fizhi/fizhi_clockstuff.F |
158 |
GET_ALARM |
tleft = nsecf(freq) - nalarm(freq,nymd,nhms,datein,timein ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
168 |
GET_ALARM |
datein = 0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
181 |
GET_ALARM |
integer datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
185 |
GET_ALARM |
call GET_TIME (datein,timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
191 |
GET_ALARM |
alarm = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
193 |
GET_ALARM |
alarm = ( datein.gt.dates(n) .or. |
|
./pkg/fizhi/fizhi_clockstuff.F |
194 |
GET_ALARM |
& (datein.eq.dates(n) .and. timein.ge.times(n)) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
195 |
GET_ALARM |
& .and. nalarm( freqs(n),datein,timein,dates(n),times(n) ).eq.0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
208 |
GET_ALARM |
integer datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
212 |
GET_ALARM |
call GET_TIME (datein,timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
218 |
GET_ALARM |
alarm2 = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
220 |
GET_ALARM |
alarm2 = ( datein.gt.dates(n) .or. |
|
./pkg/fizhi/fizhi_clockstuff.F |
221 |
GET_ALARM |
& (datein.eq.dates(n) .and. timein.ge.times(n)) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
222 |
GET_ALARM |
& .and. nalarm2( freqs(n),datein,timein,dates(n),times(n) ).eq.0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
236 |
GET_ALARM |
integer datein,timein,ndt |
|
./pkg/fizhi/fizhi_clockstuff.F |
243 |
GET_ALARM |
datein = dateminus |
|
./pkg/fizhi/fizhi_clockstuff.F |
245 |
GET_ALARM |
call TICK(datein,timein,ndt) |
|
./pkg/fizhi/fizhi_clockstuff.F |
251 |
GET_ALARM |
alarm2next = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
253 |
GET_ALARM |
alarm2next = ( datein.gt.dates(n) .or. |
|
./pkg/fizhi/fizhi_clockstuff.F |
254 |
GET_ALARM |
& (datein.eq.dates(n) .and. timein.ge.times(n)) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
255 |
GET_ALARM |
& .and. nalarm2( freqs(n),datein,timein,dates(n),times(n) ).eq.0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
263 |
SET_TIME |
subroutine SET_TIME (datein,timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
265 |
SET_TIME |
integer datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
274 |
SET_TIME |
print *, 'Date: ',datein |
|
./pkg/fizhi/fizhi_clockstuff.F |
278 |
SET_TIME |
nymd = datein |
|
./pkg/fizhi/fizhi_clockstuff.F |
283 |
GET_TIME |
subroutine GET_TIME (datein,timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
285 |
GET_TIME |
integer datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
289 |
GET_TIME |
datein = nymd |
|
./pkg/fizhi/fizhi_clockstuff.F |
31 |
SET_ALARM |
subroutine SET_ALARM (tag,datein,timein,freq) |
|
./pkg/fizhi/fizhi_clockstuff.F |
51 |
SET_ALARM |
integer freq,datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
68 |
SET_ALARM |
dates(1) = datein |
|
./pkg/fizhi/fizhi_clockstuff.F |
72 |
SET_ALARM |
& ' Set Alarm for: ', datein, ' ', timein, |
|
./pkg/fizhi/fizhi_clockstuff.F |
83 |
SET_ALARM |
print *, ' Date0: ',dates(n),' (Old) ',datein,' (New)' |
|
./pkg/fizhi/fizhi_clockstuff.F |
87 |
SET_ALARM |
dates(n) = datein |