CALL CAL_TOSECONDS (difftime,myDateSeconds,myThid)
if ( myDateSeconds .lt. fldStartTime ) year0 = year0 - 1
if ( myDateSeconds .lt. fldStartTime )
& myDateSeconds = myDateSeconds + secondsInYear
fldsectot = myDateSeconds - fldStartTime
_RL secondsInYear, myDateSeconds
_RL myDateSeconds
TYEAR=myDateSeconds/secondsInYear
TDAY= myDateSeconds / ( 86400 . _d 0 )