From aa4a55144f2d633c71492e7ffee0b6c0a2f66dac Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Tue, 1 Feb 2022 09:39:26 +0100
Subject: [PATCH] fix: correct index in extraction of Zlayers in
'DataAltiExtrapolation_Valery' Reviewed-by: @francois.tilmant Refs #144
---
R/DataAltiExtrapolation_Valery.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/DataAltiExtrapolation_Valery.R b/R/DataAltiExtrapolation_Valery.R
index 24b1b48e..7162382f 100644
--- a/R/DataAltiExtrapolation_Valery.R
+++ b/R/DataAltiExtrapolation_Valery.R
@@ -38,7 +38,7 @@ DataAltiExtrapolation_Valery <- function(DatesR,
ZLayers[iLayer] <- 0.5 * (HypsoData[ncont + 1] + HypsoData[ncont + 2])
}
if (nn > 2) {
- ZLayers[iLayer] <- HypsoData[ncont + nn / 2]
+ ZLayers[iLayer] <- HypsoData[ncont + nn / 2 + 1]
}
ncont <- ncont + nn
}
--
GitLab