table 1.3

Author: AlysonStahl-NOAA

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

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