RunModel <- function(InputsModel, RunOptions, Param, FUN_MOD) {
  return(FUN_MOD(InputsModel, RunOptions, Param))
}