call CAL_TOSECONDS (difftime, climtempstartdate ,mythid)
climtempstartdate=modelstart+climtempstartdate
climtempstartdate = 0.
& climtempstartdate
I climtempstartdate, climtempperiod
_RL climtempstartdate
& climtempperiod, climtempstartdate,