dbpm/makencdf_calls.R at master · size-ecology-group/dbpm · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
source("./makencdf.R")

my_netcdf_path <- "/rd/gem/private/fishmip_outputs/aug_2017_2/netcdf2/"
my_data_path <- "/rd/gem/private/fishmip_outputs/aug_2017_2/"
runs <- c("rcp26", "rcp45", "rcp60", "rcp85")
vars <- dbpm.variables$name

do_run <- function(run, vars, savetopath, data_path){

  discard_output <- sapply(vars
                           ,FUN = mknetcdf
                           ,run = run
                           ,savetopath = savetopath
                           ,data_path = data_path)

}

do_runs <- function(runs, vars, savetopath, data_path){

  discard_output <- sapply(runs
                           ,FUN = do_run
                           ,vars = vars
                           ,savetopath = savetopath
                           ,data_path = data_path)
}

do_runs(runs, vars, my_netcdf_path, my_data_path)