I siobWstartdate, siobWperiod,
_RL siobWstartdate
& siobWperiod, siobWstartdate,
CALL CAL_TOSECONDS ( difftime, siobWstartdate ,myThid)
siobWstartdate = modelstart + siobWstartdate
siobWstartdate = 0.