Commit b4287b28 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v1.6.3.7 style: RunModel_LAG renamed into RunModel_Lag

Refs #34
parent 2ae49608
Pipeline #16647 failed with stages
in 26 seconds
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.6.3.6
Version: 1.6.3.7
Date: 2020-10-14
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
......
......@@ -45,7 +45,7 @@ export(RunModel_GR5H)
export(RunModel_GR4J)
export(RunModel_GR5J)
export(RunModel_GR6J)
export(RunModel_LAG)
export(RunModel_Lag)
export(SeriesAggreg)
export(TransfoParam)
export(TransfoParam_CemaNeige)
......
## Release History of the airGR Package
### 1.6.3.6 Release Notes (2020-10-14)
### 1.6.3.7 Release Notes (2020-10-14)
#### New features
......
RunModel_LAG <- function(InputsModel, RunOptions, Param) {
RunModel_Lag <- function(InputsModel, RunOptions, Param) {
NParam <- 1
......
\encoding{UTF-8}
\name{RunModel_LAG}
\alias{RunModel_LAG}
\name{RunModel_Lag}
\alias{RunModel_Lag}
\title{Run with the LAG model}
\title{Run with the Lag model}
\description{
Function which performs a single run for the LAG model over the test period.
Function which performs a single run for the Lag model over the test period.
}
\usage{
RunModel_LAG(InputsModel, RunOptions, Param)
RunModel_Lag(InputsModel, RunOptions, Param)
}
......@@ -25,7 +25,7 @@ RunModel_LAG(InputsModel, RunOptions, Param)
\item{Param}{[numeric] vector of 1 parameter
\tabular{ll}{
LAG \tab Mean flow velocity [m/s]
Lag \tab Mean flow velocity [m/s]
}}
}
......@@ -57,7 +57,7 @@ BasinAreas <- c(NA, BasinInfo$BasinArea)
## Delay time between the reservoir and the catchment outlet is 2 days and the distance is 150 km
LenghtHydro <- 150
LAG <- LenghtHydro / 2 / 86400 * 1000 # Conversion km/day -> m/s
Lag <- LenghtHydro / 2 / 86400 * 1000 # Conversion km/day -> m/s
## preparation of the InputsModel object
InputsModel <- CreateInputsModel(FUN_MOD = RunModel_GR4J, DatesR = BasinObs$DatesR,
......@@ -79,8 +79,8 @@ OutputsModelDown <- RunModel_GR4J(InputsModel = InputsModel,
RunOptions = RunOptions, Param = Param)
InputsModel$OutputsModel <- OutputsModelDown
OutputsModel <- RunModel_LAG(InputsModel = InputsModel,
RunOptions = RunOptions, Param = LAG)
OutputsModel <- RunModel_Lag(InputsModel = InputsModel,
RunOptions = RunOptions, Param = Lag)
## results preview of comparison between naturalised (observed) and influenced flow (simulated)
plot(OutputsModel, Qobs = OutputsModel$QsimDown)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment