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
HYCAR-Hydro
airGR
Commits
02b94b6c
Commit
02b94b6c
authored
Mar 15, 2017
by
unknown
Browse files
v1.0.5.25 bug fixed in RunModel_CemaNeige*(), IniResLevels values are now considered
parent
c4c5909b
Changes
4
Hide whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
02b94b6c
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.0.5.2
4
Version: 1.0.5.2
5
Date: 2017-03-15
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")),
...
...
R/RunModel_CemaNeigeGR4J.R
View file @
02b94b6c
...
...
@@ -91,7 +91,7 @@ RunModel_CemaNeigeGR4J <- function(InputsModel,RunOptions,Param){
}
else
{
IndOutputsMod
<-
which
(
FortranOutputsMod
%in%
RunOptions
$
Outputs_Sim
);
}
##Use_of_IniResLevels
if
(
"IniResLevels"
%in%
RunOptions
){
if
(
"IniResLevels"
%in%
names
(
RunOptions
)
)
{
RunOptions
$
IniStates
[
1
]
<-
RunOptions
$
IniResLevels
[
1
]
*
ParamMod
[
1
];
### production store level (mm)
RunOptions
$
IniStates
[
2
]
<-
RunOptions
$
IniResLevels
[
2
]
*
ParamMod
[
3
];
### routing store level (mm)
}
...
...
R/RunModel_CemaNeigeGR5J.R
View file @
02b94b6c
...
...
@@ -91,7 +91,7 @@ RunModel_CemaNeigeGR5J <- function(InputsModel,RunOptions,Param){
}
else
{
IndOutputsMod
<-
which
(
FortranOutputsMod
%in%
RunOptions
$
Outputs_Sim
);
}
##Use_of_IniResLevels
if
(
"IniResLevels"
%in%
RunOptions
){
if
(
"IniResLevels"
%in%
names
(
RunOptions
)
)
{
RunOptions
$
IniStates
[
1
]
<-
RunOptions
$
IniResLevels
[
1
]
*
ParamMod
[
1
];
### production store level (mm)
RunOptions
$
IniStates
[
2
]
<-
RunOptions
$
IniResLevels
[
2
]
*
ParamMod
[
3
];
### routing store level (mm)
}
...
...
R/RunModel_CemaNeigeGR6J.R
View file @
02b94b6c
...
...
@@ -92,7 +92,7 @@ RunModel_CemaNeigeGR6J <- function(InputsModel,RunOptions,Param){
}
else
{
IndOutputsMod
<-
which
(
FortranOutputsMod
%in%
RunOptions
$
Outputs_Sim
);
}
##Use_of_IniResLevels
if
(
"IniResLevels"
%in%
RunOptions
){
if
(
"IniResLevels"
%in%
names
(
RunOptions
)
)
{
RunOptions
$
IniStates
[
1
]
<-
RunOptions
$
IniResLevels
[
1
]
*
ParamMod
[
1
];
### production store level (mm)
RunOptions
$
IniStates
[
2
]
<-
RunOptions
$
IniResLevels
[
2
]
*
ParamMod
[
3
];
### routing store level (mm)
}
...
...
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