diff --git a/DESCRIPTION b/DESCRIPTION index 197b564023955b3261afdfff6d1c8ffb9b63c0a3..10451eaddc9a635da3527d2bb8b198ef1a0853c9 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: airGR Type: Package Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling -Version: 1.2.7.5 +Version: 1.2.7.6 Date: 2019-03-04 Authors@R: c( person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), diff --git a/NEWS.rmd b/NEWS.rmd index 137d90476fe0dc2348e1ee31596d30fbdb7a1664..1f864f80507d4d17b95be168a6f01f54dbccf355 100644 --- a/NEWS.rmd +++ b/NEWS.rmd @@ -13,7 +13,7 @@ output: -### 1.2.7.5 Release Notes (2019-03-04) +### 1.2.7.6 Release Notes (2019-03-04) @@ -58,6 +58,8 @@ output: - Outputs of frun_GR2M Fortran subroutine were reordered. +- <code>DataAltiExtrapolation_Valery()</code> now returns named elements of lists relative to elevation layer + ____________________________________________________________________________________ diff --git a/R/DataAltiExtrapolation_Valery.R b/R/DataAltiExtrapolation_Valery.R index ce0a5c7c7fc8687abb820a8b5319c297c54156a4..6dee926d1e2ef40bba743ea018cf8558a624b755 100644 --- a/R/DataAltiExtrapolation_Valery.R +++ b/R/DataAltiExtrapolation_Valery.R @@ -527,7 +527,14 @@ DataAltiExtrapolation_Valery <- function(DatesR, } LayerFracSolidPrecip[[iLayer]] <- as.double(SolidFraction) } - + namesLayer <- sprintf("L%i", seq_along(LayerPrecip)) + names(LayerPrecip) <- namesLayer + names(LayerTempMean) <- namesLayer + if (!is.null(TempMin) & !is.null(TempMax)) { + names(LayerTempMin) <- namesLayer + names(LayerTempMax) <- namesLayer + } + names(LayerFracSolidPrecip) <- namesLayer