& atempperiod, atempstartdate,
_RL atempstartdate
& atempfile, atempstartdate, atempperiod,
CALL CAL_TOSECONDS ( difftime, atempstartdate ,myThid)
atempstartdate = modelstart + atempstartdate
atempstartdate = 0.
& atempstartdate