RunModel_CemaNeige fails in CreateInputsModel at the hourly time step

The description of RunModel_CemaNeige {airGR} states:

Function which performs a single run for the CemaNeige snow module at the daily or hourly time step.

Unfortunately, CreateInputsModel does not work at the hourly time step because of the following lines:

    if (identical(FUN_MOD, RunModel_CemaNeige)) {
      ObjectClass <- c(ObjectClass, "daily", "CemaNeige")

      TimeStep <- as.integer(24 * 60 * 60)

      BOOL <- TRUE
    }