diff --git a/DESCRIPTION b/DESCRIPTION
index 7921b1017d79d4b3d0abe7ac2a651048fbec1f79..10e8fb115712cbdf7be46416cd233195c6b50c46 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.1.2.38
+Version: 1.1.2.39
 Date: 2019-01-29
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
diff --git a/NEWS.rmd b/NEWS.rmd
index 94c0ac0850cff066bf60cfc102f40a9f4d04cf38..65a9529cbdaabd08d5f9f476a98c17ae9adab69c 100644
--- a/NEWS.rmd
+++ b/NEWS.rmd
@@ -13,7 +13,7 @@ output:
 
 
 
-### 1.1.2.38 Release Notes (2019-01-29) 
+### 1.1.2.39 Release Notes (2019-01-29) 
 
 
 
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,