table 4.5 152

AlysonStahl-NOAA · AlysonStahl-NOAA · commit 1bcdfb5a348f · 2024-12-20T15:08:40.000-08:00
diff --git a/src/grib2_all_tables_module.F90 b/src/grib2_all_tables_module.F90
@@ -452,6 +452,7 @@ module grib2_all_tables_module
   data table4_5(115) /fixed_surface_types('ion_e_region_lev',33)/
   data table4_5(116) /fixed_surface_types('ion_f1_region_lev',34)/
   data table4_5(117) /fixed_surface_types('ion_f2_region_lev',35)/
+  data table4_5(118) /fixed_surface_types('sea_ice_lev',152)/
   !
   !
   type type_of_ens_fcst
diff --git a/tests/test_all_key_tables.F90 b/tests/test_all_key_tables.F90
@@ -548,6 +548,8 @@ program test_all_tables
   if (val1 .ne. 34) stop 9
   call get_g2_fixedsurfacetypes('ion_f2_region_lev', val1, ierr)
   if (val1 .ne. 35) stop 9
+  call get_g2_fixedsurfacetypes('sea_ice_lev', val1, ierr)
+  if (val1 .ne. 152) stop 9
   call get_g2_fixedsurfacetypes('xxx', val1, ierr)
   if (ierr .ne. 9) stop 9
 

Original file line number	Diff line number	Diff line change
`@@ -452,6 +452,7 @@ module grib2_all_tables_module`
`452`	`452`	`data table4_5(115) /fixed_surface_types('ion_e_region_lev',33)/`
`453`	`453`	`data table4_5(116) /fixed_surface_types('ion_f1_region_lev',34)/`
`454`	`454`	`data table4_5(117) /fixed_surface_types('ion_f2_region_lev',35)/`
	`455`	`+ data table4_5(118) /fixed_surface_types('sea_ice_lev',152)/`
`455`	`456`	`!`
`456`	`457`	`!`
`457`	`458`	`type type_of_ens_fcst`