update adjustRCMGrid function

SantanderMetGroup · Sep 1, 2020 · 77bd873 · 77bd873
1 parent fdc34a0
commit 77bd873
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/getLatLonDomain.R b/R/getLatLonDomain.R
@@ -326,6 +326,9 @@ adjustRCMgrid <- function(gds, latLon, lonLim, latLim) {
     if (latLon$pointXYindex[1] >= 0){
       latLon$pointXYindex[1] = as.integer(-1)
     }
+    if ((latLon$pointXYindex[2] >= 0) & (length(latLon$xyCoords$y) > 1)){
+      latLon$pointXYindex[2] = as.integer(-1)
+    }
   } else if (length(latLim) == 1) {
     auxDis <- sqrt((auxLon - lonLim[1]) ^ 2 + (auxLat - latLim[1]) ^ 2)
     ulrowCol <- arrayInd(which.min(auxDis), dim(auxDis))
@@ -350,6 +353,9 @@ adjustRCMgrid <- function(gds, latLon, lonLim, latLim) {
     if (latLon$pointXYindex[2] >= 0){
       latLon$pointXYindex[2] = as.integer(-1)
     }
+    if ((latLon$pointXYindex[1] >= 0) & (length(latLon$xyCoords$x) > 1)){
+      latLon$pointXYindex[1] = as.integer(-1)
+    }
   } else {
     auxDis <- sqrt((auxLon - lonLim[1]) ^ 2 + (auxLat - latLim[1]) ^ 2)
     llrowCol <- arrayInd(which.min(auxDis), dim(auxDis))