diff --git a/R/Utils.R b/R/Utils.R
index 2351a168b8f9b33294a1b1e43f52c42de5c4c1fc..f05c23338f2286df6942df7b9c12744ae9cc4e02 100644
--- a/R/Utils.R
+++ b/R/Utils.R
@@ -49,17 +49,16 @@
     }
     res$TimeStep <- switch(res$TimeUnit,
                            hourly  =       1,
-                           daily   =      24,
-                           monthly =   28:31,
-                           yearly  = 365:366)
+                           daily   =       1 * 24,
+                           monthly =   28:31 * 24,
+                           yearly  = 365:366 * 24)
     res$TimeStep <- res$TimeStep * 3600
-
     res$Class <- c(res$TimeUnit, res$Class)
     if (grepl("CemaNeige", res$NameFunMod)) {
       res$Class <- unique(c(res$Class, "CemaNeige"))
 
     }
-    if (DiffTimeStep != res$TimeStep) {
+    if (all(DiffTimeStep != res$TimeStep)) {
       stop("the time step of the model inputs must be ", res$TimeUnit, "\n")
     }
     return(res)