force lon (in rotated grids) to be -180:180

SantanderMetGroup · Nov 28, 2019 · eb584ea · eb584ea
1 parent b8be0bf
commit eb584ea
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/loadGridData.R b/R/loadGridData.R
@@ -321,6 +321,7 @@ loadGridDataset <- function(var, grid, dic, level, season, years, members, time,
           Variable$varName <- "Frequency Index"
           attr(Variable, "description") <- paste0(var, "-based threshold exceedance count index")
       }
+      if ("lon" %in% names(latLon$xyCoords)) latLon$xyCoords$lon[which(latLon$xyCoords$lon>180)] <- latLon$xyCoords$lon[which(latLon$xyCoords$lon>180)] - 360
       attr(Variable, "daily_agg_cellfun") <- cube$timePars$aggr.d
       attr(Variable, "monthly_agg_cellfun") <- cube$timePars$aggr.m
       attr(Variable, "verification_time") <- time