diff --git a/DESCRIPTION b/DESCRIPTION
index 8c14ebf5996926f3c25bfb009a595e11c360480e..3fef612fc1167921ab533121ae7cefd0cb22e808 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.2.11.13
-Date: 2019-03-25
+Version: 1.2.11.15
+Date: 2019-03-26
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
   person("Charles", "Perrin", role = c("aut", "ths"), comment = c(ORCID = "0000-0001-8552-1881")),
diff --git a/NEWS.rmd b/NEWS.rmd
index c511ac2bdd12f6f3d389d1578257e553d8cea938..8ba522336a064451820f2d6155abf6992da2fea4 100644
--- a/NEWS.rmd
+++ b/NEWS.rmd
@@ -13,7 +13,7 @@ output:
 
 
 
-### 1.2.11.13 Release Notes (2019-03-25) 
+### 1.2.11.15 Release Notes (2019-03-26) 
 
 
 
diff --git a/R/CreateInputsCrit.R b/R/CreateInputsCrit.R
index 4d84ec9447ba11581ad394088133f33f9a0563b9..5ebd24376c86af2ec8fc2fd5b2a2797da95e687e 100644
--- a/R/CreateInputsCrit.R
+++ b/R/CreateInputsCrit.R
@@ -295,14 +295,13 @@ CreateInputsCrit <- function(FUN_CRIT,
   ## define idLayer as an index of the layer to use
   for (iInCnVarObs in unique(listVarObs)) {
     if (iInCnVarObs == "Q") {
-      k <- 1
       for (i in which(listVarObs == iInCnVarObs)) {
         InputsCrit[[i]]$idLayer <- NA
-        k <- k + 1
       }
     } else {
       aa <- listGroupLayer0[listVarObs == iInCnVarObs]
-      bb <- c(0, aa[-length(aa)])
+      aa <- unname(aa)
+      bb <- cumsum(c(0, aa[-length(aa)]))
       cc <- lapply(seq_along(aa), function(x) seq_len(aa[x]) + bb[x])
       k <- 1
       for (i in which(listVarObs == iInCnVarObs)) {