& hfluxfile, hfluxstartdate, hfluxperiod,
& hfluxperiod, hfluxstartdate,
_RL hfluxstartdate
hfluxstartdate = 0.
call CAL_TOSECONDS ( difftime, hfluxstartdate ,mythid )
hfluxstartdate = modelstart + hfluxstartdate
& hfluxstartdate