table 4.5 180-189

Author: AlysonStahl-NOAA

src/grib2_all_tables_module.F90

@@ -456,6 +456,11 @@ module grib2_all_tables_module
   data table4_5(119) /fixed_surface_types('ocean_level_vert_eddy_diffus',171)/
   data table4_5(120) /fixed_surface_types('ocean_level_rho_diff',172)/
   data table4_5(121) /fixed_surface_types('top_snow_over_sea_ice',173)/
+  data table4_5(122) /fixed_surface_types('roof_lev',185)/
+  data table4_5(123) /fixed_surface_types('wall_lev',186)/
+  data table4_5(124) /fixed_surface_types('road_lev',187)/
+  data table4_5(125) /fixed_surface_types('melt_pond_top_surf',188)/
+  data table4_5(126) /fixed_surface_types('melt_pond_bottom_surf',189)/
   !
   !
   type type_of_ens_fcst

tests/test_all_key_tables.F90

@@ -550,6 +550,22 @@ program test_all_tables
   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('ocean_level_vert_eddy_diffus', val1, ierr)
+  if (val1 .ne. 171) stop 9
+  call get_g2_fixedsurfacetypes('ocean_level_rho_diff', val1, ierr)
+  if (val1 .ne. 172) stop 9
+  call get_g2_fixedsurfacetypes('top_snow_over_sea_ice', val1, ierr)
+  if (val1 .ne. 173) stop 9
+  call get_g2_fixedsurfacetypes('roof_lev', val1, ierr)
+  if (val1 .ne. 185) stop 9
+  call get_g2_fixedsurfacetypes('wall_lev', val1, ierr)
+  if (val1 .ne. 186) stop 9
+  call get_g2_fixedsurfacetypes('road_lev', val1, ierr)
+  if (val1 .ne. 187) stop 9
+  call get_g2_fixedsurfacetypes('melt_pond_top_surf', val1, ierr)
+  if (val1 .ne. 188) stop 9
+  call get_g2_fixedsurfacetypes('melt_pond_bottom_surf', val1, ierr)
+  if (val1 .ne. 189) stop 9
   call get_g2_fixedsurfacetypes('xxx', val1, ierr)
   if (ierr .ne. 9) stop 9