fix: correct index in extraction of Zlayers in 'DataAltiExtrapolation_Valery'

Reviewed-by: @francois.tilmant Refs #144

fix: correct index in extraction of Zlayers in 'DataAltiExtrapolation_Valery'
Reviewed-by: @francois.tilmant Refs #144
aa4a5514 · Delaigue Olivier · 36e7c62d · aa4a5514
Commit aa4a5514 authored 3 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 1 addition and 1 deletion
+1 -1
--- 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
    }