Commit 2d690dff authored by Brage.Forland's avatar Brage.Forland

Added Norway outer borders.

parent deb9b7c7
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
......@@ -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.
......
Markdown is supported
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