diff --git a/NAMESPACE b/NAMESPACE
index 525fe20..a99451d 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -10,6 +10,7 @@ export(prepare_atmosphere_input)
 export(read_alevel)
 export(read_atmosph)
 export(read_balance)
+export(read_hydrus1d)
 export(read_meta_general)
 export(read_obsnode)
 export(read_profile)
@@ -19,6 +20,7 @@ export(read_solute)
 export(read_tlevel)
 export(run_model)
 export(write_atmosphere)
+export(write_hydrus1d)
 importFrom(archive,archive_extract)
 importFrom(dplyr,bind_cols)
 importFrom(dplyr,select)
diff --git a/R/read_write_hydrus1d_dat.R b/R/read_write_hydrus1d_dat.R
new file mode 100644
index 0000000..935cc5e
--- /dev/null
+++ b/R/read_write_hydrus1d_dat.R
@@ -0,0 +1,71 @@
+#' Read HYDRUS1D.dat file
+#'
+#' @param path path to HYDRUS1D.dat file (default: system.file("extdata/model/test/HYDRUS1D.dat",
+#' package = "kwb.hydrus1d"))
+#'
+#' @return list with parameters defined in
+#' @export
+#' @importFrom stringr str_remove_all
+
+read_hydrus1d <- function(path = system.file("extdata/model/test/HYDRUS1D.dat",
+                                             package = "kwb.hydrus1d")) {
+
+
+  lines <- readLines(path)
+
+  section_start_idx <- which(stringr::str_detect(lines, "\\["))
+
+  section_end_idx <- c(max(section_start_idx) - 4, length(lines))
+
+  section_names <- stringr::str_remove_all(lines[section_start_idx], "\\[|\\]")
+
+
+
+  convert_to_numeric <- function(value) {
+    num_value <- suppressWarnings(as.numeric(value))
+    if (!is.na(num_value)) {
+      return(num_value)
+    } else {
+      return(value)
+    }
+  }
+
+
+  setNames(lapply(seq_len(length(section_names)), function(i) {
+
+    mat_data <- stringr::str_split_fixed(lines[(section_start_idx[i]+1):section_end_idx[i]], pattern = "=", n = 2)
+
+    setNames(lapply(mat_data[, 2], convert_to_numeric), mat_data[, 1])
+  }), nm = section_names)
+
+
+}
+
+
+#' Write HYDRUS1D.dat
+#'
+#' @param hydrus1d_list as retrieved by \code{read_hydrus1d}
+#' @param path path to HYDRUS1D.dat for export (default: system.file("extdata/model/test/HYDRUS1D.dat",
+#' package = "kwb.hydrus1d")
+#'
+#' @return write HYDRUS1D.dat
+#' @export
+#'
+write_hydrus1d <- function(hydrus1d_list,
+                           path = system.file("extdata/model/test/HYDRUS1D.dat",
+                                       package = "kwb.hydrus1d")) {
+
+
+  unlisted_section1 <- unlist(hydrus1d_list[[1]])
+  unlisted_section2 <- unlist(hydrus1d_list[[2]])
+
+
+  lines <- c(";",
+             sprintf("[%s]", names(hydrus1d_list)[1]),
+             sprintf("%s=%s", names(unlisted_section1), as.character(unlisted_section1)),
+             ";",
+             sprintf("%s=%s", names(unlisted_section2), as.character(unlisted_section2)))
+
+  writeLines(lines, path)
+
+}
diff --git a/man/read_hydrus1d.Rd b/man/read_hydrus1d.Rd
new file mode 100644
index 0000000..ed2c173
--- /dev/null
+++ b/man/read_hydrus1d.Rd
@@ -0,0 +1,20 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/read_write_hydrus1d_dat.R
+\name{read_hydrus1d}
+\alias{read_hydrus1d}
+\title{Read HYDRUS1D.dat file}
+\usage{
+read_hydrus1d(
+  path = system.file("extdata/model/test/HYDRUS1D.dat", package = "kwb.hydrus1d")
+)
+}
+\arguments{
+\item{path}{path to HYDRUS1D.dat file (default: system.file("extdata/model/test/HYDRUS1D.dat",
+package = "kwb.hydrus1d"))}
+}
+\value{
+list with parameters defined in
+}
+\description{
+Read HYDRUS1D.dat file
+}
diff --git a/man/write_hydrus1d.Rd b/man/write_hydrus1d.Rd
new file mode 100644
index 0000000..a6d0459
--- /dev/null
+++ b/man/write_hydrus1d.Rd
@@ -0,0 +1,23 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/read_write_hydrus1d_dat.R
+\name{write_hydrus1d}
+\alias{write_hydrus1d}
+\title{Write HYDRUS1D.dat}
+\usage{
+write_hydrus1d(
+  hydrus1d_list,
+  path = system.file("extdata/model/test/HYDRUS1D.dat", package = "kwb.hydrus1d")
+)
+}
+\arguments{
+\item{hydrus1d_list}{as retrieved by \code{read_hydrus1d}}
+
+\item{path}{path to HYDRUS1D.dat for export (default: system.file("extdata/model/test/HYDRUS1D.dat",
+package = "kwb.hydrus1d")}
+}
+\value{
+write HYDRUS1D.dat
+}
+\description{
+Write HYDRUS1D.dat
+}