| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
100 |
GET_ALARM |
subroutine GET_ALARM (tag,datein,timein,freq,tleft) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
121 |
GET_ALARM |
integer freq,datein,timein,tleft |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
153 |
GET_ALARM |
datein = dates(n) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
160 |
GET_ALARM |
tleft = nsecf(freq) - nalarm(freq,nymd,nhms,datein,timein ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
170 |
GET_ALARM |
datein = 0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
181 |
GET_ALARM |
integer datein,timein |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
186 |
GET_ALARM |
modalarm(freq,date0,time0)=nalarm(freq,datein,timein,date0,time0) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
188 |
GET_ALARM |
call GET_TIME (datein,timein) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
194 |
GET_ALARM |
alarm = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
196 |
GET_ALARM |
alarm = ( datein.gt.dates(n) .or. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
197 |
GET_ALARM |
. (datein.eq.dates(n) .and. timein.ge.times(n)) ) .and. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
209 |
GET_ALARM |
integer datein,timein |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
214 |
GET_ALARM |
modalarm(freq,date0,time0)=nalarm2(freq,datein,timein,date0,time0) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
216 |
GET_ALARM |
call GET_TIME (datein,timein) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
224 |
GET_ALARM |
alarm2 = ( datein.gt.dates(n) .or. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
225 |
GET_ALARM |
. (datein.eq.dates(n) .and. timein.ge.times(n)) ) .and. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
22 |
SET_ALARM |
integer freq,datein,timein |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
238 |
GET_ALARM |
integer datein,timein,ndt |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
244 |
GET_ALARM |
modalarm(freq,date0,time0)=nalarm2(freq,datein,timein,date0,time0) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
248 |
GET_ALARM |
datein = dateminus |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
250 |
GET_ALARM |
call TICK(datein,timein,ndt) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
256 |
GET_ALARM |
alarm2next = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
258 |
GET_ALARM |
alarm2next = ( datein.gt.dates(n) .or. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
259 |
GET_ALARM |
. (datein.eq.dates(n) .and. timein.ge.times(n)) ) .and. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
268 |
SET_TIME |
subroutine SET_TIME (datein,timein) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
270 |
SET_TIME |
integer datein,timein |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
296 |
SET_TIME |
print *, 'Date: ',datein |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
300 |
SET_TIME |
nymd = datein |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
305 |
GET_TIME |
subroutine GET_TIME (datein,timein) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
307 |
GET_TIME |
integer datein,timein |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
311 |
GET_TIME |
datein = nymd |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
55 |
SET_ALARM |
dates(1) = datein |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
57 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) datein,timein,freq,tags(1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
5 |
SET_ALARM |
subroutine SET_ALARM (tag,datein,timein,freq) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
67 |
SET_ALARM |
print *, ' Date0: ',dates(n),' (Old) ',datein,' (New)' |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
71 |
SET_ALARM |
dates(n) = datein |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
88 |
SET_ALARM |
dates(ntags) = datein |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
90 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) datein,timein,freq,tags(ntags) |
|
./pkg/fizhi/fizhi_clockstuff.F |
100 |
GET_ALARM |
subroutine GET_ALARM (tag,datein,timein,freq,tleft) |
|
./pkg/fizhi/fizhi_clockstuff.F |
121 |
GET_ALARM |
integer freq,datein,timein,tleft |
|
./pkg/fizhi/fizhi_clockstuff.F |
153 |
GET_ALARM |
datein = dates(n) |
|
./pkg/fizhi/fizhi_clockstuff.F |
160 |
GET_ALARM |
tleft = nsecf(freq) - nalarm(freq,nymd,nhms,datein,timein ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
170 |
GET_ALARM |
datein = 0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
181 |
GET_ALARM |
integer datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
186 |
GET_ALARM |
modalarm(freq,date0,time0)=nalarm(freq,datein,timein,date0,time0) |
|
./pkg/fizhi/fizhi_clockstuff.F |
188 |
GET_ALARM |
call GET_TIME (datein,timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
194 |
GET_ALARM |
alarm = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
196 |
GET_ALARM |
alarm = ( datein.gt.dates(n) .or. |
|
./pkg/fizhi/fizhi_clockstuff.F |
197 |
GET_ALARM |
. (datein.eq.dates(n) .and. timein.ge.times(n)) ) .and. |
|
./pkg/fizhi/fizhi_clockstuff.F |
209 |
GET_ALARM |
integer datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
214 |
GET_ALARM |
modalarm(freq,date0,time0)=nalarm2(freq,datein,timein,date0,time0) |
|
./pkg/fizhi/fizhi_clockstuff.F |
216 |
GET_ALARM |
call GET_TIME (datein,timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
222 |
GET_ALARM |
alarm2 = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
224 |
GET_ALARM |
alarm2 = ( datein.gt.dates(n) .or. |
|
./pkg/fizhi/fizhi_clockstuff.F |
225 |
GET_ALARM |
. (datein.eq.dates(n) .and. timein.ge.times(n)) ) .and. |
|
./pkg/fizhi/fizhi_clockstuff.F |
22 |
SET_ALARM |
integer freq,datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
238 |
GET_ALARM |
integer datein,timein,ndt |
|
./pkg/fizhi/fizhi_clockstuff.F |
244 |
GET_ALARM |
modalarm(freq,date0,time0)=nalarm2(freq,datein,timein,date0,time0) |
|
./pkg/fizhi/fizhi_clockstuff.F |
248 |
GET_ALARM |
datein = dateminus |
|
./pkg/fizhi/fizhi_clockstuff.F |
250 |
GET_ALARM |
call TICK(datein,timein,ndt) |
|
./pkg/fizhi/fizhi_clockstuff.F |
256 |
GET_ALARM |
alarm2next = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
258 |
GET_ALARM |
alarm2next = ( datein.gt.dates(n) .or. |
|
./pkg/fizhi/fizhi_clockstuff.F |
259 |
GET_ALARM |
. (datein.eq.dates(n) .and. timein.ge.times(n)) ) .and. |
|
./pkg/fizhi/fizhi_clockstuff.F |
268 |
SET_TIME |
subroutine SET_TIME (datein,timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
270 |
SET_TIME |
integer datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
296 |
SET_TIME |
print *, 'Date: ',datein |
|
./pkg/fizhi/fizhi_clockstuff.F |
300 |
SET_TIME |
nymd = datein |
|
./pkg/fizhi/fizhi_clockstuff.F |
305 |
GET_TIME |
subroutine GET_TIME (datein,timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
307 |
GET_TIME |
integer datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
311 |
GET_TIME |
datein = nymd |
|
./pkg/fizhi/fizhi_clockstuff.F |
55 |
SET_ALARM |
dates(1) = datein |
|
./pkg/fizhi/fizhi_clockstuff.F |
57 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) datein,timein,freq,tags(1) |
|
./pkg/fizhi/fizhi_clockstuff.F |
5 |
SET_ALARM |
subroutine SET_ALARM (tag,datein,timein,freq) |
|
./pkg/fizhi/fizhi_clockstuff.F |
67 |
SET_ALARM |
print *, ' Date0: ',dates(n),' (Old) ',datein,' (New)' |
|
./pkg/fizhi/fizhi_clockstuff.F |
71 |
SET_ALARM |
dates(n) = datein |
|
./pkg/fizhi/fizhi_clockstuff.F |
88 |
SET_ALARM |
dates(ntags) = datein |
|
./pkg/fizhi/fizhi_clockstuff.F |
90 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) datein,timein,freq,tags(ntags) |