turned on error message, fixed tests (#128)

NOAA-EMC · Apr 18, 2024 · 102ad32 · 102ad32
1 parent 21eaf30
commit 102ad32
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 10 deletions.
diff --git a/src/grib2_all_tables_module.F90 b/src/grib2_all_tables_module.F90
@@ -1410,8 +1410,8 @@ subroutine get_g2_fixedsurfacetypes(key, value, ierr)
     enddo
 
     value=table4_5(66)%fixedsurfacetypesval
-    !           print *, 'get_g2_fixedsurfacetypes key: ', trim(key), value,  &
-    !                   ' not found in table 4.5'
+    print *, 'get_g2_fixedsurfacetypes key: ', trim(key), value,  &
+         ' not found in table 4.5'
     ierr=9
     return
   end subroutine get_g2_fixedsurfacetypes

diff --git a/tests/test_g2tmpl_pdt4_46.F90 b/tests/test_g2tmpl_pdt4_46.F90
@@ -20,8 +20,8 @@ Program test_g2tmpl_pdt4_46
        type_of_stat_proc, type_of_time_inc, &
        stat_unit_time_key, stat_unit_time_key_succ
   integer(4) :: ipdstmpl46(35), ipdstmpllen, j
-  integer(4) :: ipdstmpl46_old(35)=(/ 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, &
-       0, 0, 0, 255, 0, 0, 255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /)
+  integer(4) :: ipdstmpl46_old(35)=(/ 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, &
+       0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /)
   integer :: ipdsnum = 46
 
   ipdstmpllen = 35
@@ -39,10 +39,10 @@ Program test_g2tmpl_pdt4_46
   min_obs_cutoff = 0
   unit_of_time_key = 'minute'
   fcst_time = 0
-  lvl_type1 = 'xxx'
+  lvl_type1 = 'surface'
   scale_fac1 = 0
   scaled_val1 = 0
-  lvl_type2 = 'xxx'
+  lvl_type2 = 'surface'
   scale_fac2 = 0
   scaled_val2 = 0
   year_intvl = 0

diff --git a/tests/test_g2tmpl_pdt4_9.F90 b/tests/test_g2tmpl_pdt4_9.F90
@@ -21,8 +21,8 @@ Program test_g2tmpl_pdt4_9
        type_of_stat_proc, type_of_time_inc, &
        stat_unit_time_key, stat_unit_time_key_succ
 
-  integer(4) :: ipdstmpl9_old(36)=(/ 2, 220, 0, 0, 0, 0, 0, 0, 0, 255, 0, 0, &
-       255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /)
+  integer(4) :: ipdstmpl9_old(36)=(/ 2, 220, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, &
+       0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /)
   integer ipdsnum, ipdstmpllen, j
 
   print *, 'Testing g2sec4_temp9...' 
@@ -35,10 +35,10 @@ Program test_g2tmpl_pdt4_9
   min_obs_cutoff = 0
   unit_of_time_key = 'minute'
   fcst_time = 0
-  lvl_type1 = 'xxx'
+  lvl_type1 = 'surface'
   scale_fac1 = 0
   scaled_val1 = 0
-  lvl_type2 = 'xxx'
+  lvl_type2 = 'surface'
   scale_fac2 = 0
   scaled_val2 = 0
   prob_num = 0