R/write_rwu_stress.R

In shoebodh/hydrusR: Utility package to run HYDRUS-1D and analyse results

write.rwu.stress<- function(project.path, model = 0, para, ...){

      input_data = readLines(con = file.path(project.path, "SELECTOR.IN"),
                             n = -1L, encoding = "unknown")

   rwu_info_ind = grep("BLOCK G", input_data)


}