diff --git a/R/utils.RunModel.R b/R/utils.RunModel.R
index a881b678b9bbb0760449be014e5e798723709e5a..56cc789eff045cc3bc0d2f76dff4c944ba8db42d 100644
--- a/R/utils.RunModel.R
+++ b/R/utils.RunModel.R
@@ -61,6 +61,7 @@ OutputsModelQsim <- function(InputsModel, OutputsModel, IndPeriod_Run) {
 #' @noRd
 #'
 serializeIniStates <- function(IniStates, InputsModel) {
+  if (!is.list(IniStates)) return(IniStates)
   ObjectClass <- class(InputsModel)
   if (!"CemaNeige" %in% ObjectClass && any(is.na(IniStates$CemaNeigeLayers$G))) {
     IniStates$CemaNeigeLayers$G <- NULL