new ecoms package

SCRIPTS/1a_doDownloadSeas15.R

@@ -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"
 }

SCRIPTS/1a_doDownloadWfdei.R

@@ -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)
 }

SCRIPTS/2_doReorder_combYears_combMembers_sepLeadmonths.R

@@ -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)

SCRIPTS/functions/infoGeneral.R

 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")
   )
 )