on388 table 0

NOAA-EMC · Dec 21, 2024 · 41ba51d · 41ba51d
1 parent 1a55823
commit 41ba51d
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 0 deletions.
diff --git a/src/grib2_all_tables_module.F90 b/src/grib2_all_tables_module.F90
@@ -1118,6 +1118,15 @@ module grib2_all_tables_module
   data on388_table0(217) /origin_centers('ncsa_argentina',147)/
   data on388_table0(218) /origin_centers('brazilian_decea',148)/
   !
+  !       Added original center (12/20/2024)
+  !
+  data on388_table0(219) /origin_centers('nasa',173)/
+  data on388_table0(220) /origin_centers('isdm_meds',174)/
+  data on388_table0(221) /origin_centers('cimss',176)/
+  data on388_table0(222) /origin_centers('niwa',204)/
+  data on388_table0(223) /origin_centers('opera',247)/
+  data on388_table0(224) /origin_centers('cosmo',250)/
+  !
   !
   type gen_proc
      character(len=30) :: genprockey

diff --git a/tests/test_all_key_tables.F90 b/tests/test_all_key_tables.F90
@@ -1401,6 +1401,18 @@ program test_all_tables
   if (val1 .ne. 147) stop 14
   call get_g2_on388origincenters('brazilian_decea', val1, ierr)
   if (val1 .ne. 148) stop 14
+  call get_g2_on388origincenters('nasa', val1, ierr)
+  if (val1 .ne. 173) stop 14
+  call get_g2_on388origincenters('isdm_meds', val1, ierr)
+  if (val1 .ne. 174) stop 14
+  call get_g2_on388origincenters('cimss', val1, ierr)
+  if (val1 .ne. 176) stop 14
+  call get_g2_on388origincenters('niwa', val1, ierr)
+  if (val1 .ne. 204) stop 14
+  call get_g2_on388origincenters('opera', val1, ierr)
+  if (val1 .ne. 247) stop 14
+  call get_g2_on388origincenters('cosmo', val1, ierr)
+  if (val1 .ne. 250) stop 14
   call get_g2_on388origincenters('xxxx', val1, ierr)
   if (ierr .ne. 9) stop 14