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
6569e47f
Commit
6569e47f
authored
Jun 26, 2017
by
unknown
Browse files
v1.0.9.4 new warning messages in CreateRunOptions
parent
6a23e019
Changes
3
Hide whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
6569e47f
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.0.9.
3
Version: 1.0.9.
4
Date: 2017-06-26
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")),
...
...
R/CreateRunOptions.R
View file @
6569e47f
...
...
@@ -268,13 +268,13 @@ CreateRunOptions <- function(FUN_MOD, InputsModel, IndPeriod_WarmUp = NULL, IndP
if
(
RunSnowModule
&
"GR"
%in%
ObjectClass
&
"CemaNeige"
%in%
ObjectClass
){
if
(
"PliqAndMelt"
%in%
Outputs_Cal
==
FALSE
&
"all"
%in%
Outputs_Cal
==
FALSE
){
WTxt
<-
NULL
;
WTxt
<-
paste
(
WTxt
,
"\t PliqAndMelt was not defined in Outputs_Cal but is needed to feed the hydrological model with the snow mod
u
le outputs \n"
,
sep
=
""
);
WTxt
<-
paste
(
WTxt
,
"\t PliqAndMelt was not defined in Outputs_Cal but is needed to feed the hydrological model with the snow mod
e
le outputs \n"
,
sep
=
""
);
WTxt
<-
paste
(
WTxt
,
"\t -> it was automatically added \n"
,
sep
=
""
);
if
(
!
is.null
(
WTxt
)
&
verbose
){
warning
(
WTxt
);
}
Outputs_Cal
<-
c
(
Outputs_Cal
,
"PliqAndMelt"
);
}
if
(
"PliqAndMelt"
%in%
Outputs_Sim
==
FALSE
&
"all"
%in%
Outputs_Sim
==
FALSE
){
WTxt
<-
NULL
;
WTxt
<-
paste
(
WTxt
,
"\t PliqAndMelt was not defined in Outputs_Sim but is needed to feed the hydrological model with the snow mod
u
le outputs \n"
,
sep
=
""
);
WTxt
<-
paste
(
WTxt
,
"\t PliqAndMelt was not defined in Outputs_Sim but is needed to feed the hydrological model with the snow mod
e
le outputs \n"
,
sep
=
""
);
WTxt
<-
paste
(
WTxt
,
"\t -> it was automatically added \n"
,
sep
=
""
);
if
(
!
is.null
(
WTxt
)
&
verbose
){
warning
(
WTxt
);
}
Outputs_Sim
<-
c
(
Outputs_Sim
,
"PliqAndMelt"
);
}
...
...
R/DataAltiExtrapolation_Valery.R
View file @
6569e47f
...
...
@@ -7,7 +7,7 @@ DataAltiExtrapolation_Valery <- function(DatesR,
##Altitudinal_gradient_functions_______________________________________________________________
##unique_gradient_for_precipitation
GradP_Valery2010
<-
function
()
{
return
(
0.00041
)
### value from Valer
ie
PhD thesis page 126
return
(
0.00041
)
### value from Valer
y
PhD thesis page 126
}
##daily_gradients_for_mean_min_and_max_air_temperature
GradT_Valery2010
<-
function
()
{
...
...
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