Skip to content
Snippets Groups Projects
Commit b9a9edcc authored by Fabian Stenzel's avatar Fabian Stenzel
Browse files

bugfix terr_area for biocol

parent 0c4d0aeb
No related branches found
No related tags found
2 merge requests!6Merge reviewed package into main,!5Merge review_paper version to master
...@@ -630,6 +630,7 @@ calc_biocol <- function( ...@@ -630,6 +630,7 @@ calc_biocol <- function(
# translate varnames and folders to files_scenarios/reference lists # translate varnames and folders to files_scenarios/reference lists
files_scenario <- list( files_scenario <- list(
grid = paste0(path_lu, varnames["grid", "outname"]), grid = paste0(path_lu, varnames["grid", "outname"]),
terr_area = paste0(path_lu, varnames["terr_area", "outname"]),
npp = paste0(path_lu, varnames["npp", "outname"]), npp = paste0(path_lu, varnames["npp", "outname"]),
pft_npp = paste0(path_lu, varnames["pft_npp", "outname"]), pft_npp = paste0(path_lu, varnames["pft_npp", "outname"]),
pft_harvestc = paste0(path_lu, varnames["pft_harvest", "outname"]), pft_harvestc = paste0(path_lu, varnames["pft_harvest", "outname"]),
...@@ -641,6 +642,7 @@ calc_biocol <- function( ...@@ -641,6 +642,7 @@ calc_biocol <- function(
) )
files_baseline <- list( files_baseline <- list(
grid = paste0(path_pnv, varnames["grid", "outname"]), grid = paste0(path_pnv, varnames["grid", "outname"]),
terr_area = paste0(path_pnv, varnames["terr_area", "outname"]),
npp = paste0(path_pnv, varnames["npp", "outname"]), npp = paste0(path_pnv, varnames["npp", "outname"]),
pft_npp = paste0(path_pnv, varnames["pft_npp", "outname"]), pft_npp = paste0(path_pnv, varnames["pft_npp", "outname"]),
pft_harvestc = paste0(path_pnv, varnames["pft_harvest", "outname"]), pft_harvestc = paste0(path_pnv, varnames["pft_harvest", "outname"]),
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment