diff --git a/src/grib2_all_tables_module.F90 b/src/grib2_all_tables_module.F90 index cb07935..39b894f 100644 --- 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 index ab911d0..9207234 100644 --- 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