Commit fe6b36f4 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v1.6.3.61 style: replace as.integer(0) by 0L In RunModel_* functions

Refs #14
parent 7fb10e94
Pipeline #17607 passed with stages
in 11 minutes and 40 seconds
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.6.3.60
Date: 2020-11-16
Version: 1.6.3.61
Date: 2020-11-17
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@inrae.fr"),
......
......@@ -4,7 +4,7 @@
### 1.6.3.60 Release Notes (2020-11-16)
### 1.6.3.61 Release Notes (2020-11-17)
#### New features
......
......@@ -56,7 +56,7 @@ RunModel_CemaNeigeGR4H <- function(InputsModel, RunOptions, Param) {
}
## Input_data_preparation
if (identical(RunOptions$IndPeriod_WarmUp, as.integer(0))) {
if (identical(RunOptions$IndPeriod_WarmUp, 0L)) {
RunOptions$IndPeriod_WarmUp <- NULL
}
IndPeriod1 <- c(RunOptions$IndPeriod_WarmUp, RunOptions$IndPeriod_Run)
......
......@@ -55,7 +55,7 @@ RunModel_CemaNeigeGR4J <- function(InputsModel, RunOptions, Param) {
}
## Input_data_preparation
if (identical(RunOptions$IndPeriod_WarmUp, as.integer(0))) {
if (identical(RunOptions$IndPeriod_WarmUp, 0L)) {
RunOptions$IndPeriod_WarmUp <- NULL
}
IndPeriod1 <- c(RunOptions$IndPeriod_WarmUp, RunOptions$IndPeriod_Run)
......
......@@ -62,7 +62,7 @@ RunModel_CemaNeigeGR5H <- function(InputsModel, RunOptions, Param) {
}
## Input_data_preparation
if (identical(RunOptions$IndPeriod_WarmUp, as.integer(0))) {
if (identical(RunOptions$IndPeriod_WarmUp, 0L)) {
RunOptions$IndPeriod_WarmUp <- NULL
}
IndPeriod1 <- c(RunOptions$IndPeriod_WarmUp, RunOptions$IndPeriod_Run)
......
......@@ -56,7 +56,7 @@ RunModel_CemaNeigeGR5J <- function(InputsModel, RunOptions, Param) {
}
## Input_data_preparation
if (identical(RunOptions$IndPeriod_WarmUp, as.integer(0))) {
if (identical(RunOptions$IndPeriod_WarmUp, 0L)) {
RunOptions$IndPeriod_WarmUp <- NULL
}
IndPeriod1 <- c(RunOptions$IndPeriod_WarmUp,RunOptions$IndPeriod_Run)
......
......@@ -60,7 +60,7 @@ RunModel_CemaNeigeGR6J <- function(InputsModel, RunOptions, Param) {
}
## Input_data_preparation
if (identical(RunOptions$IndPeriod_WarmUp, as.integer(0))) {
if (identical(RunOptions$IndPeriod_WarmUp, 0L)) {
RunOptions$IndPeriod_WarmUp <- NULL
}
IndPeriod1 <- c(RunOptions$IndPeriod_WarmUp,RunOptions$IndPeriod_Run)
......
......@@ -41,7 +41,7 @@ RunModel_GR2M <- function(InputsModel, RunOptions, Param) {
}
## Input_data_preparation
if (identical(RunOptions$IndPeriod_WarmUp, as.integer(0))) {
if (identical(RunOptions$IndPeriod_WarmUp, 0L)) {
RunOptions$IndPeriod_WarmUp <- NULL
}
IndPeriod1 <- c(RunOptions$IndPeriod_WarmUp, RunOptions$IndPeriod_Run)
......
......@@ -46,7 +46,7 @@ RunModel_GR4H <- function(InputsModel, RunOptions, Param) {
}
## Input_data_preparation
if (identical(RunOptions$IndPeriod_WarmUp, as.integer(0))) {
if (identical(RunOptions$IndPeriod_WarmUp, 0L)) {
RunOptions$IndPeriod_WarmUp <- NULL
}
IndPeriod1 <- c(RunOptions$IndPeriod_WarmUp, RunOptions$IndPeriod_Run)
......
......@@ -46,7 +46,7 @@ RunModel_GR4J <- function(InputsModel, RunOptions, Param) {
}
## Input_data_preparation
if (identical(RunOptions$IndPeriod_WarmUp, as.integer(0))) {
if (identical(RunOptions$IndPeriod_WarmUp, 0L)) {
RunOptions$IndPeriod_WarmUp <- NULL
}
IndPeriod1 <- c(RunOptions$IndPeriod_WarmUp, RunOptions$IndPeriod_Run)
......
......@@ -52,7 +52,7 @@ RunModel_GR5H <- function(InputsModel, RunOptions, Param) {
}
## Input_data_preparation
if (identical(RunOptions$IndPeriod_WarmUp, as.integer(0))) {
if (identical(RunOptions$IndPeriod_WarmUp, 0L)) {
RunOptions$IndPeriod_WarmUp <- NULL
}
IndPeriod1 <- c(RunOptions$IndPeriod_WarmUp, RunOptions$IndPeriod_Run)
......
......@@ -46,7 +46,7 @@ RunModel_GR5J <- function(InputsModel, RunOptions, Param) {
}
## Input_data_preparation
if (identical(RunOptions$IndPeriod_WarmUp, as.integer(0))) {
if (identical(RunOptions$IndPeriod_WarmUp, 0L)) {
RunOptions$IndPeriod_WarmUp <- NULL
}
IndPeriod1 <- c(RunOptions$IndPeriod_WarmUp, RunOptions$IndPeriod_Run)
......
......@@ -50,7 +50,7 @@ RunModel_GR6J <- function(InputsModel, RunOptions, Param) {
}
## Input_data_preparation
if (identical(RunOptions$IndPeriod_WarmUp, as.integer(0))) {
if (identical(RunOptions$IndPeriod_WarmUp, 0L)) {
RunOptions$IndPeriod_WarmUp <- NULL
}
IndPeriod1 <- c(RunOptions$IndPeriod_WarmUp, RunOptions$IndPeriod_Run)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment