diff --git a/R/CreateRunOptions.R b/R/CreateRunOptions.R index 8f5235bb0ae82ad478defd0a99fa0231a5f2f5af..af299046429fb9d3c21c564cc5ceb2d34b4dc3e4 100644 --- a/R/CreateRunOptions.R +++ b/R/CreateRunOptions.R @@ -32,10 +32,12 @@ CreateRunOptions <- function(FUN_MOD, InputsModel, if (IsIntStore) { ObjectClass <- c(ObjectClass, "interception") } - if (IsHyst) { - ObjectClass <- c(ObjectClass, "hysteresis") + if ("CemaNeige" %in% FeatFUN_MOD$Class) { FeatFUN_MOD$IsHyst <- IsHyst - FeatFUN_MOD$NbParam <- FeatFUN_MOD$NbParam + 2 + if (isHyst) { + ObjectClass <- c(ObjectClass, "hysteresis") + FeatFUN_MOD$NbParam <- FeatFUN_MOD$NbParam + 2 + } } ## SD model