I obcsWstartdate, obcsWperiod,
_RL obcsWstartdate
& obcsWperiod, obcsWstartdate,
CALL CAL_TOSECONDS ( difftime, obcsWstartdate ,myThid)
obcsWstartdate = modelstart + obcsWstartdate
obcsWstartdate = 0.