diff --git a/man/RunModel_Lag.Rd b/man/RunModel_Lag.Rd
index 2a3595a6a622434a0bde4bbcb5e0a28240a79760..68c41a2b614aec16dc8462f9a9f8b98ab1043586 100644
--- a/man/RunModel_Lag.Rd
+++ b/man/RunModel_Lag.Rd
@@ -25,7 +25,7 @@ RunModel_Lag(InputsModel, RunOptions, Param)
 
 \item{Param}{[numeric] vector of 1 parameter
   \tabular{ll}{
-    Lag \tab Mean flow velocity [m/s]
+    Velocity \tab Mean flow velocity [m/s]
   }}
 }
 
diff --git a/vignettes/V05_sd_model.Rmd b/vignettes/V05_sd_model.Rmd
index 383d8a93cc9e35ade7d23c98a962c8991aa687db..cdd7ab797f06eb6a0dacee322aeb0ead816a1205 100644
--- a/vignettes/V05_sd_model.Rmd
+++ b/vignettes/V05_sd_model.Rmd
@@ -56,7 +56,7 @@ For the observed flow at the downstream outlet, we generate it with the assumpti
 
 ```{r}
 QObsDown <- (BasinObs$Qmm + c(0, 0, BasinObs$Qmm[1:(length(BasinObs$Qmm)-2)])) / 2
-summary(cbind(QObsUp = BasinObs$Qmm, QObsDown))
+summary(cbind(QObsUp = BasinObs$Qmm, QObsDown), digits = 3)
 ```
 
 # Calibration of the upstream subcatchment
@@ -168,27 +168,27 @@ ParamDown2 <- OutputsCalibDown2$ParamFinalR
 
 # Discussion
 
-## Identification of Lag parameter
+## Identification of Velocity parameter
 
-The theoretical Lag parameter should be equal to:
+The theoretical Velocity parameter should be equal to:
 
 ```{r}
-Lag <- InputsModelDown1$LengthHydro / (2 * 86400)
-paste(format(Lag), "m/s")
+Velocity <- InputsModelDown1$LengthHydro / (2 * 86400)
+paste(format(Velocity), "m/s")
 ```
 
 Both calibrations overestimate this parameter:
 
 ```{r}
-mLag <- matrix(c(Lag,
+mVelocity <- matrix(c(Velocity,
                  OutputsCalibDown1$ParamFinalR[1],
                  OutputsCalibDown2$ParamFinalR[1]),
                ncol = 1,
                dimnames = list(c("theoretical",
                                  "calibrated with observed upstream flow",
                                  "calibrated with simulated  upstream flow"),
-                               c("Lag parameter")))
-knitr::kable(mLag)
+                               c("Velocity parameter")))
+knitr::kable(mVelocity)
 ```
 
 ## Value of the performance criteria with theoretical calibration
@@ -196,7 +196,7 @@ knitr::kable(mLag)
 Theoretically, the parameters of the downstream GR4J model should be the same as the upstream one and we know the lag time. So this set of parameter should give a better performance criteria:
 
 ```{r}
-ParamDownTheo <- c(Lag, OutputsCalibUp$ParamFinalR)
+ParamDownTheo <- c(Velocity, OutputsCalibUp$ParamFinalR)
 OutputsModelDownTheo <- RunModel(InputsModel = InputsModelDown2,
                                  RunOptions = RunOptionsDown,
                                  Param = ParamDownTheo,
@@ -219,7 +219,7 @@ comp <- cbind(comp, c(OutputsCalibUp$CritFinal,
                       CritDown1$CritValue,
                       OutputsCalibDown2$CritFinal,
                       CritDownTheo$CritValue))
-colnames(comp) <- c("Lag", paste0("X", 1:4), "NSE")
+colnames(comp) <- c("Velocity", paste0("X", 1:4), "NSE")
 rownames(comp) <- c("Calibration of the upstream subcatchment",
                     "Calibration 1 with observed upstream flow",
                     "Validation 1 with simulated upstream flow",