I siobNstartdate, siobNperiod,
_RL siobNstartdate
& siobNperiod, siobNstartdate,
CALL CAL_TOSECONDS ( difftime, siobNstartdate ,myThid)
siobNstartdate = modelstart + siobNstartdate
siobNstartdate = 0.