& aqhperiod, aqhstartdate,
_RL aqhstartdate
& aqhfile, aqhstartdate, aqhperiod,
CALL CAL_TOSECONDS ( difftime, aqhstartdate ,myThid)
aqhstartdate = modelstart + aqhstartdate
aqhstartdate = 0.
& aqhstartdate