first = ((myTime - modelstart) .lt. 0.5*modelstep)
daytime = FLOAT(secondsperday*(irec-1)) + modelstart
first = ((mytime - modelstart) .lt. 0.5*modelstep)
CALL WRITE_0D_RL( modelstart, INDEX_NONE,'modelstart =',
startrec = int((modelstart + startTime - fldsecs)/
startrec = int((modelstart + startTime - diffsecs)/
daytime = FLOAT(secondsperday*(krec-1)) + modelstart