_RL swdownstartdate
& swdownperiod, swdownstartdate,
& swdownfile, swdownstartdate, swdownperiod,
CALL CAL_TOSECONDS ( difftime, swdownstartdate ,myThid)
swdownstartdate = modelstart + swdownstartdate
swdownstartdate = 0.
& swdownstartdate