_RL lwdownstartdate
& lwdownperiod, lwdownstartdate,
& lwdownfile, lwdownstartdate, lwdownperiod,
CALL CAL_TOSECONDS ( difftime, lwdownstartdate ,myThid)
lwdownstartdate = modelstart + lwdownstartdate
lwdownstartdate = 0.
& lwdownstartdate