diff --git a/R/RunModel_CemaNeige.R b/R/RunModel_CemaNeige.R index 52e3789ef138fcf04bc2fd0728d4137390a4004e..4eec9007db5c75e7af63b04c4eebf5e5b7dcba67 100644 --- a/R/RunModel_CemaNeige.R +++ b/R/RunModel_CemaNeige.R @@ -93,8 +93,8 @@ RunModel_CemaNeige <- function(InputsModel, RunOptions, Param) { ncol = length(IndOutputsCemaNeige)), StateEnd = rep(-999.999, 2) ### state variables at the end of the model run (reservoir levels [mm] and HU) ) - RESULTS$Outputs[round(RESULTS$Outputs , 3) == (-999.999)] <- NA - RESULTS$StateEnd[round(RESULTS$StateEnd, 3) == (-999.999)] <- NA + RESULTS$Outputs[round(RESULTS$Outputs , 3) == -999.999] <- NA + RESULTS$StateEnd[round(RESULTS$StateEnd, 3) == -999.999] <- NA @@ -109,7 +109,7 @@ RunModel_CemaNeige <- function(InputsModel, RunOptions, Param) { } ### ENDFOR_iLayer - names(CemaNeigeLayers) <- paste("Layer", formatC(1:NLayers, width = 2, flag = "0"), sep = "") + names(CemaNeigeLayers) <- sprintf("Layer%02i", seq_len(NLayers)) if (ExportStateEnd) { CemaNeigeStateEnd <- CreateIniStates(FUN_MOD = RunModel_CemaNeige, InputsModel = InputsModel,