Commit 9dc90807 authored by Franssen, Wietse's avatar Franssen, Wietse
Browse files

new ecoms package

parent eef68e69
......@@ -2,12 +2,12 @@ rm(list=ls())
library(fields) # e.g: using the fields library
library(abind)
library(ncdf4)
library(ecomsUDG.Raccess)
library(loadeR.ECOMS)
source(file = "./functions/infoGeneral.R")
source(file = "./functions/functionsGeneral.R")
source(file = "./functions/functionR2Netcdf.R")
loginECOMS_UDG(username = "wietsefranssen", password = "ECOMS")
loginUDG(username = "wietsefranssen", password = "ECOMS")
submitscript <- FALSE
......@@ -28,8 +28,9 @@ if (submitscript) {
targetYears <-c(2009:2011)
targetYears <-c(1981:1982)
leadMonths <-c(0:1)
locName<-"GHA"
# locName<-"GHA"
# locName<-"EU"
locName<-"SA"
outPath <- "./testData/noBC/"
outPath<-"./testData/newDownload"
}
......
......@@ -2,13 +2,12 @@ rm(list=ls())
library(fields) # e.g: using the fields library
library(abind)
library(ncdf4)
library(ecomsUDG.Raccess)
library(ecomsUDG.Raccess)
library(loadeR.ECOMS)
source(file = "./functions/infoGeneral.R")
source(file = "./functions/functionsGeneral.R")
source(file = "./functions/functionR2Netcdf.R")
loginECOMS_UDG(username = "wietsefranssen", password = "ECOMS")
loginUDG(username = "wietsefranssen", password = "ECOMS")
submitscript <- FALSE
......@@ -25,6 +24,7 @@ if (submitscript) {
# targetYears <-c(1981:1982)
locName<-"GHA"
locName<-"EU"
locName<-"SA"
resolution<-"0.50"
outPath<-sprintf("../DATA/wfdei_rev3.0/%sdeg/%s", resolution, locName)
}
......
......@@ -21,7 +21,9 @@ if (submitscript) {
initMonths <- 1
locName <- "GHA"
#locName <- "EU"
locName <- "SA"
resolution <- "0.75"
resolution <- "0.50"
# bcInfo <- "BC"
bcInfo <- "noBC"
inPath <- sprintf("../DATA/System4_seasonal_15_rev4.0/%sdeg/%s_%s", resolution, locName, bcInfo)
......
locationInfo <- list(
res0.75 = list(
GHA = list(lonmin = 27.75, lonmax = 49.50, latmin =-12.00, latmax = 18.00, longName = "Greater Horn of Africa"),
SA = list(lonmin =-83.00, lonmax =-32.00, latmin =-57.00, latmax = 14.00, longName = "South America"),
EU = list(lonmin =-24.75, lonmax = 39.75, latmin = 33.00, latmax = 72.00, longName = "Europe")
),
res0.50 = list(
GHA = list(lonmin = 28.25, lonmax = 49.25, latmin =-11.75, latmax = 17.75, longName = "Greater Horn of Africa"),
SA = list(lonmin =-83.25, lonmax =-32.25, latmin =-57.25, latmax = 14.25, longName = "South America"),
EU = list(lonmin =-24.25, lonmax = 39.75, latmin = 33.25, latmax = 71.75, longName = "Europe")
)
)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment