Commit 08129fd4 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

style: indent RunModel* codes

Refs #129
parent 9fc9400b
Pipeline #24024 passed with stage
in 7 minutes and 48 seconds
......@@ -164,8 +164,8 @@ RunModel_CemaNeigeGR4H <- function(InputsModel, RunOptions, Param) {
## OutputsModel generation
.GetOutputsModelGR(InputsModel,
RunOptions,
RESULTS,
LInputSeries,
CemaNeigeLayers)
RunOptions,
RESULTS,
LInputSeries,
CemaNeigeLayers)
}
......@@ -163,8 +163,8 @@ RunModel_CemaNeigeGR4J <- function(InputsModel, RunOptions, Param) {
## OutputsModel generation
.GetOutputsModelGR(InputsModel,
RunOptions,
RESULTS,
LInputSeries,
CemaNeigeLayers)
RunOptions,
RESULTS,
LInputSeries,
CemaNeigeLayers)
}
......@@ -174,8 +174,8 @@ RunModel_CemaNeigeGR5H <- function(InputsModel, RunOptions, Param) {
## OutputsModel generation
.GetOutputsModelGR(InputsModel,
RunOptions,
RESULTS,
LInputSeries,
CemaNeigeLayers)
RunOptions,
RESULTS,
LInputSeries,
CemaNeigeLayers)
}
......@@ -89,7 +89,7 @@ RunModel_CemaNeigeGR5J <- function(InputsModel, RunOptions, Param) {
IndPliqAndMelt <- which(names(CemaNeigeLayers[[iLayer]]) == "PliqAndMelt")
if (iLayer == 1) {
CatchMeltAndPliq <- RESULTS$Outputs[, IndPliqAndMelt] / NLayers
}
}
if (iLayer > 1) {
CatchMeltAndPliq <- CatchMeltAndPliq + RESULTS$Outputs[, IndPliqAndMelt] / NLayers
}
......@@ -105,7 +105,7 @@ RunModel_CemaNeigeGR5J <- function(InputsModel, RunOptions, Param) {
CemaNeigeStateEnd <- NULL
NameCemaNeigeLayers <- NULL
CatchMeltAndPliq <- InputsModel$Precip[IndPeriod1]
}
}
......@@ -161,8 +161,8 @@ RunModel_CemaNeigeGR5J <- function(InputsModel, RunOptions, Param) {
## OutputsModel generation
.GetOutputsModelGR(InputsModel,
RunOptions,
RESULTS,
LInputSeries,
CemaNeigeLayers)
RunOptions,
RESULTS,
LInputSeries,
CemaNeigeLayers)
}
......@@ -166,9 +166,9 @@ RunModel_CemaNeigeGR6J <- function(InputsModel, RunOptions, Param) {
## OutputsModel generation
.GetOutputsModelGR(InputsModel,
RunOptions,
RESULTS,
LInputSeries,
CemaNeigeLayers)
RunOptions,
RESULTS,
LInputSeries,
CemaNeigeLayers)
}
......@@ -45,7 +45,7 @@ RunModel_GR1A <- function(InputsModel, RunOptions, Param) {
## OutputsModel generation
.GetOutputsModelGR(InputsModel,
RunOptions,
RESULTS,
LInputSeries)
RunOptions,
RESULTS,
LInputSeries)
}
......@@ -67,7 +67,7 @@ RunModel_GR2M <- function(InputsModel, RunOptions, Param) {
## Output data preparation
## OutputsModel generation
.GetOutputsModelGR(InputsModel,
RunOptions,
RESULTS,
LInputSeries)
RunOptions,
RESULTS,
LInputSeries)
}
......@@ -72,7 +72,7 @@ RunModel_GR4H <- function(InputsModel, RunOptions, Param) {
## OutputsModel generation
.GetOutputsModelGR(InputsModel,
RunOptions,
RESULTS,
LInputSeries)
RunOptions,
RESULTS,
LInputSeries)
}
......@@ -67,7 +67,7 @@ RunModel_GR4J <- function(InputsModel, RunOptions, Param) {
## OutputsModel generation
.GetOutputsModelGR(InputsModel,
RunOptions,
RESULTS,
LInputSeries)
RunOptions,
RESULTS,
LInputSeries)
}
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