function alarm2next (tag,deltat)
_RL deltat
ndt = int(deltat)
ntimesteps = int(nincr/deltat)
endTime = startTime + deltat*float(ntimeSteps)
ndt = deltat
subroutine FIZHI_UPDATE_TIME (myIter,myThid,deltat)