Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Dorchies David
airGR
Commits
b4287b28
Commit
b4287b28
authored
Oct 14, 2020
by
Delaigue Olivier
Browse files
v1.6.3.7 style: RunModel_LAG renamed into RunModel_Lag
Refs
#34
parent
2ae49608
Changes
5
Hide whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
b4287b28
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")),
...
...
NAMESPACE
View file @
b4287b28
...
...
@@ -45,7 +45,7 @@ export(RunModel_GR5H)
export(RunModel_GR4J)
export(RunModel_GR5J)
export(RunModel_GR6J)
export(RunModel_L
AG
)
export(RunModel_L
ag
)
export(SeriesAggreg)
export(TransfoParam)
export(TransfoParam_CemaNeige)
...
...
NEWS.md
View file @
b4287b28
## 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
...
...
R/RunModel_LAG.R
View file @
b4287b28
RunModel_L
AG
<-
function
(
InputsModel
,
RunOptions
,
Param
)
{
RunModel_L
ag
<-
function
(
InputsModel
,
RunOptions
,
Param
)
{
NParam
<-
1
...
...
man/RunModel_LAG.Rd
View file @
b4287b28
\encoding{UTF-8}
\name{RunModel_L
AG
}
\alias{RunModel_L
AG
}
\name{RunModel_L
ag
}
\alias{RunModel_L
ag
}
\title{Run with the L
AG
model}
\title{Run with the L
ag
model}
\description{
Function which performs a single run for the L
AG
model over the test period.
Function which performs a single run for the L
ag
model over the test period.
}
\usage{
RunModel_L
AG
(InputsModel, RunOptions, Param)
RunModel_L
ag
(InputsModel, RunOptions, Param)
}
...
...
@@ -25,7 +25,7 @@ RunModel_LAG(InputsModel, RunOptions, Param)
\item{Param}{[numeric] vector of 1 parameter
\tabular{ll}{
L
AG
\tab Mean flow velocity [m/s]
L
ag
\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
L
AG
<- LenghtHydro / 2 / 86400 * 1000 # Conversion km/day -> m/s
L
ag
<- 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_L
AG
(InputsModel = InputsModel,
RunOptions = RunOptions, Param = L
AG
)
OutputsModel <- RunModel_L
ag
(InputsModel = InputsModel,
RunOptions = RunOptions, Param = L
ag
)
## results preview of comparison between naturalised (observed) and influenced flow (simulated)
plot(OutputsModel, Qobs = OutputsModel$QsimDown)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment