diff --git a/R/CreateInputsModel.R b/R/CreateInputsModel.R index 4cec8bdbd5646b3455c5e647d95f03fc1d93d644..5889fcc4d71b93fceab8afbecae6dc5e7fb87bd5 100644 --- a/R/CreateInputsModel.R +++ b/R/CreateInputsModel.R @@ -14,15 +14,17 @@ CreateInputsModel.BasinsObs <- function(BasinsObs, ...) { Q <- BasinsObs$Q[, directInjectionNodes] } - airGRiwrm::CreateInputsModel( - BasinsObs$griwrm, - DatesR = BasinsObs$DatesR, - Precip = BasinsObs$P, - PotEvap = BasinsObs$E, - Qobs = Q, - TempMean = BasinsObs$Temp, - ZInputs = BasinsObs$HypsoData[50, ], - HypsoData = BasinsObs$HypsoData, - NLayers = 5 + suppressMessages( + airGRiwrm::CreateInputsModel( + BasinsObs$griwrm, + DatesR = BasinsObs$DatesR, + Precip = BasinsObs$P, + PotEvap = BasinsObs$E, + Qobs = Q, + TempMean = BasinsObs$Temp, + ZInputs = BasinsObs$HypsoData[50, ], + HypsoData = BasinsObs$HypsoData, + NLayers = 5 + ) ) } diff --git a/bookdown/03-naturalisation.Rmd b/bookdown/03-naturalisation.Rmd index b6d0d926a97a5df99228d2c80c74603d69f07607..f5b7888818496a121ba822d5db0e3d0e6f156afd 100644 --- a/bookdown/03-naturalisation.Rmd +++ b/bookdown/03-naturalisation.Rmd @@ -19,7 +19,7 @@ BasinsObs <- loadBasinsObs("BasinsObs_observations_day_1958-2019.RDS", cfg = cfg Et lançons la simulation avec les paramètres calés avec la présence des réservoirs -```{r, message=FALSE} +```{r} InputsModel <- CreateInputsModel(BasinsObs) OutputsModel <- RunModel(BasinsObs, "calibration_with_reservoirs.txt", InputsModel = InputsModel) ```