_RL wspeedstartdate
& wspeedperiod, wspeedstartdate,
& wspeedfile, wspeedstartdate, wspeedperiod,
CALL CAL_TOSECONDS ( difftime, wspeedstartdate ,myThid)
wspeedstartdate = modelstart + wspeedstartdate
wspeedstartdate = 0.