Add arawaka GDTNs (32768,32769) for grib2

NOAA-EMC · Mar 1, 2024 · 70841b8 · 70841b8
1 parent ce1d621
commit 70841b8
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/src/ip_grid_factory_mod.F90 b/src/ip_grid_factory_mod.F90
@@ -113,6 +113,10 @@ subroutine init_grid_grib2(grid, g2_desc)
        allocate(ip_lambert_conf_grid::grid)
     case(GAUSSIAN_GRID_ID_GRIB2)
        allocate(ip_gaussian_grid::grid)
+    case(ROT_EQUID_CYLIND_E_GRID_ID_GRIB2)
+       allocate(ip_rot_equid_cylind_egrid::grid)
+    case(ROT_EQUID_CYLIND_B_GRID_ID_GRIB2)
+       allocate(ip_rot_equid_cylind_grid::grid)
     case default
        print *, "gdt_num: ", g2_desc%gdt_num, " not recognized"
        error stop

diff --git a/src/ip_grid_mod.F90 b/src/ip_grid_mod.F90
@@ -25,6 +25,8 @@ module ip_grid_mod
   integer, public, parameter :: POLAR_STEREO_GRID_ID_GRIB2 = 20 !< Integer grid number for polar stereo grid in grib2
   integer, public, parameter :: LAMBERT_CONF_GRID_ID_GRIB2 = 30 !< Integer grid number for Lambert conformal grid in grib2
   integer, public, parameter :: GAUSSIAN_GRID_ID_GRIB2 = 40 !< Integer grid number for Gaussian grid in grib2
+  integer, public, parameter :: ROT_EQUID_CYLIND_E_GRID_ID_GRIB2 = 32768 !< Integer grid number for rotated equidistant cylindrical E-stagger grid (grib2)
+  integer, public, parameter :: ROT_EQUID_CYLIND_B_GRID_ID_GRIB2 = 32769 !< Integer grid number for rotated equidistant cylindrical B-stagger grid (grib2)
 
   private
   public :: ip_grid