From 63bffba9f6313f94168ac18669f4be344c99d6c5 Mon Sep 17 00:00:00 2001
From: mrustl <michael.rustler@kompetenz-wasser.de>
Date: Fri, 5 Jul 2024 13:02:05 +0200
Subject: [PATCH] Fix typo :bug:

---
 R/prepare_atmosphere.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/prepare_atmosphere.R b/R/prepare_atmosphere.R
index b180d55..5e75ef7 100644
--- a/R/prepare_atmosphere.R
+++ b/R/prepare_atmosphere.R
@@ -154,7 +154,7 @@ prepare_atmosphere <- function(
     dplyr::bind_cols()
 
   if(n_conc[["conc_irrig_clearwater"]] == 1 & max(n_conc) > 1) {
-    load_irrig_cw <- copy_column(load_irrig_gw,
+    load_irrig_cw <- copy_column(load_irrig_cw,
                                  column = names(load_irrig_cw),
                                  number_of_new_columns = max(n_conc) - 1)
   }