chr.dir.stm.dates <-"m:/models/bacteria/hspf/HydroCal201506/R_projs/Select_Storm_HydCal" ...