I siobEstartdate, siobEperiod,
_RL siobEstartdate
& siobEperiod, siobEstartdate,
CALL CAL_TOSECONDS ( difftime, siobEstartdate ,myThid)
siobEstartdate = modelstart + siobEstartdate
siobEstartdate = 0.