fix grid generation for 20 deg (exception on latitude range)

openfigis · Feb 21, 2023 · 697ab0a · 697ab0a
1 parent 07154c3
commit 697ab0a
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/createCWPGrid.R b/R/createCWPGrid.R
@@ -54,6 +54,12 @@ createCWPGrid <- function(size = NULL, res = NULL,
     }
   }
 
+  #special case of 20deg resolution
+  if(grid$size == 8){
+    ymin = -80
+    ymax = 80
+  }
+
   #create grid
   eckp4s <- "+proj=eck4 +lon_0=0 +x_0=0 +y_0=0 +ellps=WGS84 +datum=WGS84 +units=m +no_defs"
   llp4s <- "+init=epsg:4326"