_RL evapstartdate
& evapperiod, evapstartdate,
& evapfile, evapstartdate, evapperiod,
CALL CAL_TOSECONDS ( difftime, evapstartdate ,myThid)
evapstartdate = modelstart + evapstartdate
evapstartdate = 0.
& evapstartdate