wrf_raster cen_lon update

atmoschem · Feb 19, 2022 · a4b4a35 · a4b4a35
1 parent 84fdfc9
commit a4b4a35
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: eixport
 Title: Export Emissions to Atmospheric Models
-Version: 0.5.1
-Date: 2020-12-17
+Version: 0.5.2
+Date: 2021-02-19
 Authors@R: c(
   person(given = "Sergio",
          family = "Ibarra-Espinosa",

diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,9 @@
 NEWS
 ===========
 
+# eixport 0.5.2 (Release date: 19 Feb 2022)
+- updated wrf_raster cen_lon
+
 # eixport 0.5.1 (Release date: 13 jul 2021)
 - added prefix argument in wrf_create, doc update
 - added check option on wrf_put (to check NA and negative values)

diff --git a/R/wrf_raster.R b/R/wrf_raster.R
@@ -93,7 +93,8 @@ wrf_raster <- function(file = file.choose(),
   # Get geogrid and projection info
   map_proj <- ncdf4::ncatt_get(coordNC, varid=0, attname="MAP_PROJ")$value
   cen_lat  <- ncdf4::ncatt_get(coordNC, varid=0, attname="CEN_LAT")$value
-  cen_lon  <- ncdf4::ncatt_get(coordNC, varid=0, attname="STAND_LON")$value
+  # cen_lon  <- ncdf4::ncatt_get(coordNC, varid=0, attname="STAND_LON")$value
+  cen_lon  <- ncdf4::ncatt_get(coordNC, varid=0, attname="CEN_LON")$value
   truelat1 <- ncdf4::ncatt_get(coordNC, varid=0, attname="TRUELAT1")$value
   truelat2 <- ncdf4::ncatt_get(coordNC, varid=0, attname="TRUELAT2")$value
   if (map_proj==1) {