Added Norway outer borders.

data/norge/borders.prj

+GEOGCS["GCS_unknown",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]]
\ No newline at end of file

scripts/clipWORLDCLIMData.R

@@ -32,11 +32,11 @@ if(Sys.getenv("ARTSAPP_HOME")!="") {
   ARTSAPP_HOME=normalizePath(getwd())
 }
 
-clipRegionLoc <- paste0(ARTSAPP_HOME, "/data/GADMNorway")
-clipRegionLayerName <- "NOR_adm0"
+# clipRegionLoc <- paste0(ARTSAPP_HOME, "/data/GADMNorway")
+# clipRegionLayerName <- "NOR_adm0"
 
-#clipRegionLoc <- paste0(ARTSAPP_HOME, "/data/norway")
-#clipRegionLayerName <- "borders"
+clipRegionLoc <- paste0(ARTSAPP_HOME, "/data/norge")
+clipRegionLayerName <- "borders"
   
 inputRasterLocation = paste0(ARTSAPP_HOME,'/WCD.tmp')
 outputLocation <- paste0(ARTSAPP_HOME, "/data/WORLDCLIMData");
@@ -70,7 +70,7 @@ clipWORLDCLIMData <- function(inputRasterLocation, outputLocation, clipRegion,
 	}
 	rasterTemplate <- crop(rasterTemplate, clipRegion, snap="out")
   # Cut away outside valid region,
-  # rasterMask <- fasterize(clipRegion, rasterTemplate)w
+  # rasterMask <- fasterize(clipRegion, rasterTemplate)
   rasterMask <- raster::rasterize(clipRegion, rasterTemplate)
   
   # but only keep points where climate data is available.