CHEKOUT 19f749e0 v1.1.2.39 CLEAN: RunModel_CemaNeige syntax cleaned

5ce462ce · Delaigue Olivier · 29d8d102 · 5ce462ce
Commit 5ce462ce authored 6 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 3 additions and 3 deletions
+3 -3
--- 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,