table 1.3

NOAA-EMC · Dec 20, 2024 · 59acfa1 · 59acfa1
1 parent 7e416e0
commit 59acfa1
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/src/grib2_all_tables_module.F90 b/src/grib2_all_tables_module.F90
@@ -206,6 +206,10 @@ module grib2_all_tables_module
   data table1_3(9) /prod_status('s2s_test',7)/
   data table1_3(10) /prod_status('unens_rreanl',8)/
   data table1_3(11) /prod_status('unens_rreanl_test',9)/
+  data table1_3(12) /prod_status('copernic_rreanl',10)/
+  data table1_3(13) /prod_status('copernic_rreanl_test',11)/
+  data table1_3(14) /prod_status('dest_earth',12)/
+  data table1_3(15) /prod_status('dest_earth_test',13)/
   !
   !
   type type_of_data

diff --git a/tests/test_all_key_tables.F90 b/tests/test_all_key_tables.F90
@@ -179,6 +179,14 @@ program test_all_tables
   if (val1 .ne. 8) stop 5
   call get_g2_prodstatus('unens_rreanl_test', val1, ierr)
   if (val1 .ne. 9) stop 5
+  call get_g2_prodstatus('copernic_rreanl', val1, ierr)
+  if (val1 .ne. 10) stop 5
+  call get_g2_prodstatus('copernic_rreanl_test', val1, ierr)
+  if (val1 .ne. 11) stop 5
+  call get_g2_prodstatus('dest_earth', val1, ierr)
+  if (val1 .ne. 12) stop 5
+  call get_g2_prodstatus('dest_earth_test', val1, ierr)
+  if (val1 .ne. 13) stop 5
   call get_g2_prodstatus('xxxx', val1, ierr)
   if (ierr .ne. 9) stop 5