From f4c4fbf8a9e3ef52aa4d09e42da91b42fca7958d Mon Sep 17 00:00:00 2001
From: unknown <olivier.delaigue@ANPI1430.antony.irstea.priv>
Date: Wed, 7 Dec 2016 10:27:04 +0100
Subject: [PATCH] #4198 if a log scale is used for flows, the scale is
expressed in raw values
---
R/plot_OutputsModel.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/plot_OutputsModel.R b/R/plot_OutputsModel.R
index 26e38734..ac288d81 100644
--- a/R/plot_OutputsModel.R
+++ b/R/plot_OutputsModel.R
@@ -193,7 +193,7 @@ plot_OutputsModel <- function(OutputsModel, Qobs = NULL, IndPeriod_Plot = NULL,
txtleg <- NULL; colleg <- NULL;
if(BOOL_Qobs){ lines(Xaxis,DATA2[IndPeriod_Plot],lwd=lwdLine,lty=1,col="black"); txtleg <- c(txtleg,"observed"); colleg <- c(colleg,"black"); }
if(BOOL_Qsim){ lines(Xaxis,DATA3[IndPeriod_Plot],lwd=lwdLine,lty=1,col="orangered"); txtleg <- c(txtleg,"simulated"); colleg <- c(colleg,"orangered"); }
- axis(side=2,at=pretty(ylim1),labels=pretty(ylim1),cex.axis=cexaxis)
+ axis(side=2,at=pretty(ylim1),labels=round(exp(pretty(ylim1)), 2),cex.axis=cexaxis)
par(las=0); mtext(side=2,paste("flow ",plotunit,sep=""),line=lineY,cex=cexlab); par(las=0);
if(!is.null(BasinArea)){
Factor <- Factor_UNIT_M3S;
--
GitLab