prjdir <- "I:/01_CLWM/IWMP"
library(ObsStation)
ObsStation::Create.Default.Directory (prjdir, dbdir=NULL, obs.type="iwmp")