call CAL_TOSECONDS (difftime, climsststartdate ,mythid)
climsststartdate=modelstart+climsststartdate
climsststartdate = 0.
& climsststartdate
_RL climsststartdate
& climsstperiod, climsststartdate,
I climsststartdate, climsstperiod