Commit a129b993 authored by Dorchies David's avatar Dorchies David
Browse files

refactor(CreateInputsModel): add SuppressMessages

parent ae1a6a8f
......@@ -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
)
)
}
......@@ -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)
```
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment