| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
103 |
GET_ALARM |
subroutine GET_ALARM (tag,datein,timein,freq,tleft) |
|
./pkg/fizhi/fizhi_clockstuff.F |
124 |
GET_ALARM |
integer freq,datein,timein,tleft |
|
./pkg/fizhi/fizhi_clockstuff.F |
138 |
GET_ALARM |
timein = times(n) |
|
./pkg/fizhi/fizhi_clockstuff.F |
144 |
GET_ALARM |
tleft = nsecf(freq) - nalarm(freq,nymd,nhms,datein,timein ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
155 |
GET_ALARM |
timein = 0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
167 |
GET_ALARM |
integer datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
171 |
GET_ALARM |
call GET_TIME (datein,timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
177 |
GET_ALARM |
alarm = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
180 |
GET_ALARM |
& (datein.eq.dates(n) .and. timein.ge.times(n)) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
181 |
GET_ALARM |
& .and. nalarm( freqs(n),datein,timein,dates(n),times(n) ).eq.0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
194 |
GET_ALARM |
integer datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
198 |
GET_ALARM |
call GET_TIME (datein,timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
204 |
GET_ALARM |
alarm2 = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
207 |
GET_ALARM |
& (datein.eq.dates(n) .and. timein.ge.times(n)) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
208 |
GET_ALARM |
& .and. nalarm2( freqs(n),datein,timein,dates(n),times(n) ).eq.0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
222 |
GET_ALARM |
integer datein,timein,ndt |
|
./pkg/fizhi/fizhi_clockstuff.F |
230 |
GET_ALARM |
timein = timeminus |
|
./pkg/fizhi/fizhi_clockstuff.F |
231 |
GET_ALARM |
call TICK(datein,timein,ndt) |
|
./pkg/fizhi/fizhi_clockstuff.F |
237 |
GET_ALARM |
alarm2next = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
240 |
GET_ALARM |
& (datein.eq.dates(n) .and. timein.ge.times(n)) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
241 |
GET_ALARM |
& .and. nalarm2( freqs(n),datein,timein,dates(n),times(n) ).eq.0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
249 |
SET_TIME |
subroutine SET_TIME (datein,timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
251 |
SET_TIME |
integer datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
261 |
SET_TIME |
print *, 'Time: ',timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
265 |
SET_TIME |
nhms = timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
269 |
GET_TIME |
subroutine GET_TIME (datein,timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
271 |
GET_TIME |
integer datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
276 |
GET_TIME |
timein = nhms |
|
./pkg/fizhi/fizhi_clockstuff.F |
27 |
SET_ALARM |
subroutine SET_ALARM (tag,datein,timein,freq) |
|
./pkg/fizhi/fizhi_clockstuff.F |
44 |
SET_ALARM |
integer freq,datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
59 |
SET_ALARM |
times(1) = timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
60 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) datein,timein,freq,tags(1) |
|
./pkg/fizhi/fizhi_clockstuff.F |
71 |
SET_ALARM |
print *, ' Time0: ',times(n),' (Old) ',timein,' (New)' |
|
./pkg/fizhi/fizhi_clockstuff.F |
75 |
SET_ALARM |
times(n) = timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
92 |
SET_ALARM |
times(ntags) = timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
93 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) datein,timein,freq,tags(ntags) |