diff --git a/R/plot_OutputsModel.R b/R/plot_OutputsModel.R
index 4b34e528cc42de44dba43ef28a6fc8f1258e03e5..26e3873478690cc1069ddba9d6ee03e40b0f088f 100644
--- a/R/plot_OutputsModel.R
+++ b/R/plot_OutputsModel.R
@@ -174,7 +174,7 @@ plot_OutputsModel <- function(OutputsModel, Qobs = NULL, IndPeriod_Plot = NULL,
 
 
   ##Flows
-  if(BOOLPLOT_Flows & log_scale){
+  if(BOOLPLOT_Flows & log_scale) {
     kPlot <- kPlot+1; mar <- c(3,5,1,5);
     par(new=FALSE,mar=mar,las=0)
 
@@ -204,6 +204,7 @@ plot_OutputsModel <- function(OutputsModel, Qobs = NULL, IndPeriod_Plot = NULL,
       axis(side=1,at=Seq2,labels=Labels2,lwd.ticks=1.5,cex.axis=cexaxis);
     } else { axis(side=1,at=pretty(Xaxis),labels=pretty(Xaxis),cex.axis=cexaxis); }
     legend("topright",txtleg,col=colleg,lty=1,lwd=lwdLine,bty="o",bg=bgleg,box.col=bgleg,cex=cexleg)
+    legend("bottomright","log scale",lty=1,col=NA,bty="o",bg=bgleg,box.col=bgleg,cex=cexleg)
     box()
   }
   if(BOOLPLOT_Flows & !log_scale){