I obcsEstartdate, obcsEperiod,
_RL obcsEstartdate
& obcsEperiod, obcsEstartdate,
CALL CAL_TOSECONDS ( difftime, obcsEstartdate ,myThid)
obcsEstartdate = modelstart + obcsEstartdate
obcsEstartdate = 0.