diff --git a/Model scripts/GloWPa.R b/Model scripts/GloWPa.R index 5ad35fa9b0b529f87124dc5deed397976db976ff..57c05c1c3faf652b813e15efffe85ad3f3047ed8 100644 --- a/Model scripts/GloWPa.R +++ b/Model scripts/GloWPa.R @@ -134,7 +134,6 @@ glowpa.run <- function(scenario,human_data,isoraster,popurban,poprural,wwtp_inpu } else if(SCENARIO$loadings_module==2){ totals <- pathogenflow.calc.totals(OUTPUT$emissions) - write.csv(OUTPUT$emissions,file.path(SCENARIO$model_output,sprintf("humanemissions_%s_%s_intermediate.csv",PATHOGEN$name,SCENARIO$run))) OUTPUT$emissions <<- totals }