diff --git a/DESCRIPTION b/DESCRIPTION index e85ba193e90fb1f6a5df74f0bc8b5273a7cbf261..590b7a1cd4d39cd22239a300a34be8d2f029fda0 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.9.10 +Version: 1.0.9.11 Date: 2017-07-11 Authors@R: c( person("Laurent", "Coron", role = c("aut", "trl")), diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R index 4a49ccfc2f9c9c09b1b6547e243b5d382fb71152..334614e8f800810637305188c55aff47a0f8597f 100644 --- a/R/plot.OutputsModel.R +++ b/R/plot.OutputsModel.R @@ -415,7 +415,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea = if (BOOL_Pobs) { posleg <- "right"; txtlab <- "precip. & flow regime"; } par(las = 0); mtext(side = 2, paste0(txtlab, " ", plotunitregime), line = line, cex = cex.lab); par(las = 0); if (!is.null(BasinArea)) { - Factor <- Factor_MMM_M3S; + Factor <- Factor_UNIT_M3S; axis(side = 4, at = pretty(ylimQ*Factor)/Factor, labels = pretty(ylimQ*Factor), cex.axis = cex.axis, ...); par(las = 0); mtext(side = 4, paste0("flow ", "m3/s"), line = line, cex = cex.lab); par(las = 0); } ### posleg <- "topright"; if (BOOL_Pobs) { posleg <- "right"; }