function alarm2next (tag,deltat)
logical alarm2next
alarm2next = .false.
alarm2next = (dates(n).eq.datein) .and. (times(n).eq.timein)
alarm2next = ( datein.gt.dates(n) .or.
logical alarm2,alarm2next
time4SnapShot = alarm2next(tagname,deltaT)