& sfluxfile, sfluxstartdate, sfluxperiod,
& sfluxperiod, sfluxstartdate,
_RL sfluxstartdate
sfluxstartdate = 0.
call CAL_TOSECONDS ( difftime, sfluxstartdate ,mythid )
sfluxstartdate = modelstart + sfluxstartdate
& sfluxstartdate