diff --git a/R/run_biomee_f_bysite.R b/R/run_biomee_f_bysite.R index 7991c968..501da8ef 100644 --- a/R/run_biomee_f_bysite.R +++ b/R/run_biomee_f_bysite.R @@ -387,6 +387,32 @@ run_biomee_f_bysite <- function( if (suppressWarnings(!all(as.vector(data_integrity)))) { continue <- FALSE } + + # simulation parameters to check + # check_param <- c( + # "spinup", + # "spinupyears", + # "recycle", + # "firstyeartrend", + # "nyeartrend", + # "steps_per_day", + # "do_U_shaped_mortality", + # "update_annualLAImax", + # "do_closedN_run" + # ) + # parameter_integrity <- lapply(check_param, function(check_var){ + # if (any(is.nanull(params_siml[check_var]))){ + # warning(sprintf("Error: Missing value in %s for %s", + # check_var, sitename)) + # return(FALSE) + # } else { + # return(TRUE) + # } + # }) + + # if (suppressWarnings(!all(parameter_integrity))){ + # continue <- FALSE + # } } if (continue) {