& atempfile, atempstartdate, atempperiod,
& atempperiod, atempstartdate,
_RL atempstartdate
atempstartdate = 0.
call CAL_TOSECONDS ( difftime, atempstartdate ,mythid )
atempstartdate = modelstart + atempstartdate
& atempstartdate