secondsInYear = ndaysnoleap * secondsperday
& secondsInYear = ndaysleap * secondsperday
& myDateSeconds = myDateSeconds + secondsInYear
if ( (fldStartTime+count0*fldPeriod) .ge. secondsInYear ) then
& fac = 1. - fldsecs/(secondsInYear-(count0-1)*fldPeriod)
_RL secondsInYear, myDateSeconds
secondsInYear = 86400. _d 0 * 365.25 _d 0
TYEAR = myTime / secondsInYear
_RL secondsInYear
TYEAR=myDateSeconds/secondsInYear