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
2b5c96c2
Commit
2b5c96c2
authored
Aug 11, 2017
by
unknown
Browse files
v1.0.9.20 warning messages are more specifics in CreateIniStates
parent
e538aac6
Changes
2
Hide whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
2b5c96c2
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.0.9.
19
Version: 1.0.9.
20
Date: 2017-08-11
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")),
...
...
R/CreateIniStates.R
View file @
2b5c96c2
...
...
@@ -69,7 +69,7 @@ CreateIniStates <- function(FUN_MOD, InputsModel,
}
}
else
if
(
!
is.null
(
ExpStore
))
{
if
(
verbose
)
{
warning
(
"This 'FUN_MOD
' does not require 'ExpStore'. Value set to NA"
)
warning
(
sprintf
(
"'%s
' does not require 'ExpStore'. Value set to NA"
,
as.character
(
substitute
(
FUN_MOD
)))
)
}
ExpStore
<-
Inf
}
...
...
@@ -77,13 +77,13 @@ CreateIniStates <- function(FUN_MOD, InputsModel,
if
(
identical
(
FUN_MOD
,
RunModel_GR2M
))
{
if
(
!
is.null
(
UH1
))
{
if
(
verbose
)
{
warning
(
"This 'FUN_MOD
' does not require 'UH1'. Values set to NA"
)
warning
(
sprintf
(
"'%s
' does not require 'UH1'. Values set to NA"
,
as.character
(
substitute
(
FUN_MOD
)))
)
}
UH1
<-
rep
(
Inf
,
UH1n
)
}
if
(
!
is.null
(
UH2
))
{
if
(
verbose
)
{
warning
(
"This 'FUN_MOD
' does not require 'UH2'. Values set to NA"
)
warning
(
sprintf
(
"'%s
' does not require 'UH2'. Values set to NA"
,
as.character
(
substitute
(
FUN_MOD
)))
)
}
UH2
<-
rep
(
Inf
,
UH2n
)
}
...
...
@@ -92,7 +92,7 @@ CreateIniStates <- function(FUN_MOD, InputsModel,
if
((
identical
(
FUN_MOD
,
RunModel_GR5J
)
|
identical
(
FUN_MOD
,
RunModel_CemaNeigeGR5J
))
&
!
is.null
(
UH1
))
{
if
(
verbose
)
{
warning
(
"This 'FUN_MOD
' does not require 'UH1'. Values set to NA"
)
warning
(
sprintf
(
"'%s
' does not require 'UH1'. Values set to NA"
,
as.character
(
substitute
(
FUN_MOD
)))
)
}
UH1
<-
rep
(
Inf
,
UH1n
)
}
...
...
@@ -105,7 +105,7 @@ CreateIniStates <- function(FUN_MOD, InputsModel,
if
(
!
"CemaNeige"
%in%
ObjectClass
&
(
!
is.null
(
GCemaNeigeLayers
)
|
!
is.null
(
eTGCemaNeigeLayers
)))
{
if
(
verbose
)
{
warning
(
"This 'FUN_MOD
' does not require 'GCemaNeigeLayers' and 'GCemaNeigeLayers'. Values set to NA"
)
warning
(
sprintf
(
"'%s
' does not require 'GCemaNeigeLayers' and 'GCemaNeigeLayers'. Values set to NA"
,
as.character
(
substitute
(
FUN_MOD
)))
)
}
GCemaNeigeLayers
<-
Inf
eTGCemaNeigeLayers
<-
Inf
...
...
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