& evapfile, evapstartdate, evapperiod,
& evapperiod, evapstartdate,
_RL evapstartdate
evapstartdate = 0.
call CAL_TOSECONDS ( difftime, evapstartdate ,mythid )
evapstartdate = modelstart + evapstartdate
& evapstartdate