diff --git a/DESCRIPTION b/DESCRIPTION index b4d3fec29fbb667fbeb814c07dc133e0e513b7c3..5916662a14834265bcda530ba85e833fbbc731b4 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.16.9 -Date: 2019-05-24 +Version: 1.2.16.10 +Date: 2019-06-06 Authors@R: c( person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@irstea.fr"), diff --git a/NEWS.rmd b/NEWS.rmd index db95eed77f6bbd40611fc6ec16d357b677308b58..dfc54cc188c6c8b2fbbe95096f4bdbdf51361626 100644 --- a/NEWS.rmd +++ b/NEWS.rmd @@ -13,8 +13,7 @@ output: - -### 1.2.16.9 Release Notes (2019-05-23) +6-065-23) #### New features diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R index a14dab5d04b3e317106b156de5b12fea1e7da4c3..66c61b8164f5edd9077250a2d5300f78690f131a 100644 --- a/R/plot.OutputsModel.R +++ b/R/plot.OutputsModel.R @@ -630,9 +630,9 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea = plot(0, 0, type = "n", xaxt = "n", yaxt = "n", xlab = "", ylab = "", ...) mtext(side = 1, text = "", line = line, cex = cex.lab) text(0, 0, labels = "NO ENOUGH VALUES", col = "grey40") - txtlab <- "flow regime" + txtlab <- "flow" if (BOOL_Pobs) { - txtlab <- "precip. & flow regime" + txtlab <- "precip. & flow" } mtext(side = 2, paste(txtlab, plotunitregime), line = line, cex = cex.lab) } else { @@ -771,16 +771,16 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea = axis(side = 2, at = pretty(ylimQ), labels = pretty(ylimQ), cex.axis = cex.axis, ...) mtext(side = 1, labX, line = line, cex = cex.lab) posleg <- "topright" - txtlab <- "flow regime" + txtlab <- "flow" if (BOOL_Pobs) { posleg <- "right" - txtlab <- "precip. & flow regime" + txtlab <- "precip. & flow" } mtext(side = 2, paste(txtlab, plotunitregime), line = line, cex = cex.lab) if (!is.null(BasinArea)) { Factor <- Factor_UNIT_M3S / (365.25 / 12) axis(side = 4, at = pretty(ylimQ*Factor)/Factor, labels = pretty(ylimQ*Factor), cex.axis = cex.axis, ...) - mtext(side = 4, paste("flow regime", "[m3/s]"), line = line, cex = cex.lab) + mtext(side = 4, paste("flow", "[m3/s]"), line = line, cex = cex.lab) } ### posleg <- "topright"; if (BOOL_Pobs) {posleg <- "right";} ### legend(posleg, txtleg, col = colleg, lty = 1, lwd = lwdleg, bty = "o", bg = bg, box.col = bg, cex = cex.leg)