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
1c9553e7
Commit
1c9553e7
authored
Mar 27, 2019
by
Delaigue Olivier
Browse files
v1.2.11.15 CLEAN: unnecessary command lines removed in CreateInputsCrit
parent
54ce3e58
Changes
3
Hide whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
1c9553e7
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.2.11.1
3
Date: 2019-03-2
5
Version: 1.2.11.1
5
Date: 2019-03-2
6
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
person("Charles", "Perrin", role = c("aut", "ths"), comment = c(ORCID = "0000-0001-8552-1881")),
...
...
NEWS.rmd
View file @
1c9553e7
...
...
@@ -13,7 +13,7 @@ output:
### 1.2.11.1
3
Release Notes (2019-03-2
5
)
### 1.2.11.1
5
Release Notes (2019-03-2
6
)
...
...
R/CreateInputsCrit.R
View file @
1c9553e7
...
...
@@ -295,14 +295,13 @@ CreateInputsCrit <- function(FUN_CRIT,
## define idLayer as an index of the layer to use
for
(
iInCnVarObs
in
unique
(
listVarObs
))
{
if
(
iInCnVarObs
==
"Q"
)
{
k
<-
1
for
(
i
in
which
(
listVarObs
==
iInCnVarObs
))
{
InputsCrit
[[
i
]]
$
idLayer
<-
NA
k
<-
k
+
1
}
}
else
{
aa
<-
listGroupLayer0
[
listVarObs
==
iInCnVarObs
]
bb
<-
c
(
0
,
aa
[
-
length
(
aa
)])
aa
<-
unname
(
aa
)
bb
<-
cumsum
(
c
(
0
,
aa
[
-
length
(
aa
)]))
cc
<-
lapply
(
seq_along
(
aa
),
function
(
x
)
seq_len
(
aa
[
x
])
+
bb
[
x
])
k
<-
1
for
(
i
in
which
(
listVarObs
==
iInCnVarObs
))
{
...
...
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