diff --git a/DESCRIPTION b/DESCRIPTION
index 920ef32f124c8b7f1f7fc32c777ff049c8ecdce9..a8c336c0288708702f4e824705c257c12e311a2e 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.0.6.13
+Version: 1.0.6.14
 Date: 2017-04-05
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl")),
diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R
index bd39397e5d31c1befef0289363a59d9bd020223b..a8c0120683612c51b1025c9ef17c7a6d14991771 100644
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -16,7 +16,13 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
   BOOL_Qsim <- FALSE; 
       if ("Qsim"   %in% names(OutputsModel)) { BOOL_Qsim <- TRUE; }
   BOOL_Qobs <- FALSE;
-      if (BOOL_Qsim & length(Qobs) == length(OutputsModel$Qsim)) { if (sum(is.na(Qobs)) != length(Qobs)) { BOOL_Qobs <- TRUE; } }
+      if (BOOL_Qsim & length(Qobs) == length(OutputsModel$Qsim)) {
+        if (sum(is.na(Qobs)) != length(Qobs)) {
+          BOOL_Qobs <- TRUE
+        }
+      } else {
+        warning("Incorrect length of Qobs. Time series of observed flow not drawn.")
+      }
   BOOL_Snow <- FALSE;
       if ("CemaNeigeLayers" %in% names(OutputsModel)) { if ("SnowPack" %in% names(OutputsModel$CemaNeigeLayers[[1]])) { BOOL_Snow <- TRUE; } }
   BOOL_Psol <- FALSE;