diff --git a/SCRIPTS/1a_doDownloadSeas15.R b/SCRIPTS/1a_doDownloadSeas15.R index 640364d2aa0b1a43bf9ec12ffed4ddffa2ebdd34..a4a51c3c43ac2f6900c5142ba9f82f6bdef59a24 100644 --- a/SCRIPTS/1a_doDownloadSeas15.R +++ b/SCRIPTS/1a_doDownloadSeas15.R @@ -1,8 +1,10 @@ -rm(list=ls()) +# rm(list=ls()) library(fields) # e.g: using the fields library library(abind) library(ncdf4) library(ecomsUDG.Raccess) +library(rJava) +library(loadeR.ECOMS) source(file = "./functions/infoGeneral.R") source(file = "./functions/functionsGeneral.R") source(file = "./functions/functionR2Netcdf.R") @@ -28,10 +30,12 @@ if (submitscript) { targetYears <-c(2009:2011) targetYears <-c(1981:1982) leadMonths <-c(0:1) - locName<-"GHA" + locName<-"Global" + # locName<-"GHA" # locName<-"EU" outPath <- "./testData/noBC/" outPath<-"./testData/newDownload" + outPath<-"./testData/newDownload2" } variables<-names(variableInfo) diff --git a/SCRIPTS/functions/infoGeneral.R b/SCRIPTS/functions/infoGeneral.R index 58b5b749768c7959200715ce130a190a58ba0d4f..18df58ca864d927c940a955fd6f3de71cbe12fc9 100644 --- a/SCRIPTS/functions/infoGeneral.R +++ b/SCRIPTS/functions/infoGeneral.R @@ -1,11 +1,13 @@ locationInfo <- list( res0.75 = list( GHA = list(lonmin = 27.75, lonmax = 49.50, latmin =-12.00, latmax = 18.00, longName = "Greater Horn of Africa"), - EU = list(lonmin =-24.75, lonmax = 39.75, latmin = 33.00, latmax = 72.00, longName = "Europe") + EU = list(lonmin =-24.75, lonmax = 39.75, latmin = 33.00, latmax = 72.00, longName = "Europe"), + WORLD = list(lonmin =-179.75, lonmax = 179.75, latmin = -89.75, latmax = 89.75, longName = "World") ), res0.50 = list( GHA = list(lonmin = 28.25, lonmax = 49.25, latmin =-11.75, latmax = 17.75, longName = "Greater Horn of Africa"), - EU = list(lonmin =-24.25, lonmax = 39.75, latmin = 33.25, latmax = 71.75, longName = "Europe") + EU = list(lonmin =-24.25, lonmax = 39.75, latmin = 33.25, latmax = 71.75, longName = "Europe"), + WORLD = list(lonmin =-179.75, lonmax = 179.75, latmin = -89.75, latmax = 89.75, longName = "World") ) )