R/SeriesAggreg.InputsModel.R

+SeriesAggreg.InputsModel <- function(x, Format, ...) {
+  SeriesAggreg.list(x,
+                    Format,
+                    ConvertFun = NA,
+                    except = c("ZLayers", "LengthHydro", "BasinAreas"),
+                    ...)
+}

R/SeriesAggreg.OutputsModel.R

+SeriesAggreg.OutputsModel <- function(x, Format, ...) {
+  SeriesAggreg.list(x,
+                    Format,
+                    ConvertFun = NA,
+                    except = c("RunOptions", "StateEnd"),
+                    ...)
+}

R/TransfoParam.R

 TransfoParam <- function(ParamIn, Direction, FUN_TRANSFO) {
+  FUN_TRANSFO <- match.fun(FUN_TRANSFO)
   return(FUN_TRANSFO(ParamIn, Direction))
 }