& swdownfile, swdownstartdate, swdownperiod,
_RL swdownstartdate
& swdownperiod, swdownstartdate,
swdownstartdate = 0.
call CAL_TOSECONDS ( difftime, swdownstartdate ,mythid )
swdownstartdate = modelstart + swdownstartdate
& swdownstartdate