table 4.10

AlysonStahl-NOAA · AlysonStahl-NOAA · commit ae3570c5cfb9 · 2024-12-20T15:35:51.000-08:00
diff --git a/src/grib2_all_tables_module.F90 b/src/grib2_all_tables_module.F90
@@ -600,6 +600,12 @@ module grib2_all_tables_module
   data table4_10(32) /statistical_processing_types('variance',208)/
   data table4_10(33) /statistical_processing_types('confficient',209)/
   !
+  !   Added Statistical Processing Type (12/20/2024)
+  !
+  data table4_10(34) /statistical_processing_types('severity',100)/
+  data table4_10(35) /statistical_processing_types('mode',101)/
+  data table4_10(36) /statistical_processing_types('index_proc',102)/
+  !
   !
   type type_of_time_intervals
      character(len=80) :: typeoftimeintervalskey
diff --git a/tests/test_all_key_tables.F90 b/tests/test_all_key_tables.F90
@@ -636,6 +636,12 @@ program test_all_tables
   if (val1 .ne. 208) stop 10
   call get_g2_statprocesstypes('confficient', val1, ierr)
   if (val1 .ne. 209) stop 10
+  call get_g2_statprocesstypes('severity', val1, ierr)
+  if (val1 .ne. 100) stop 10
+  call get_g2_statprocesstypes('mode', val1, ierr)
+  if (val1 .ne. 101) stop 10
+  call get_g2_statprocesstypes('index_proc', val1, ierr)
+  if (val1 .ne. 102) stop 10
   call get_g2_statprocesstypes('xxxxx', val1, ierr)
   if (ierr .ne. 9) stop 10
 

Original file line number	Diff line number	Diff line change
`@@ -600,6 +600,12 @@ module grib2_all_tables_module`
`600`	`600`	`data table4_10(32) /statistical_processing_types('variance',208)/`
`601`	`601`	`data table4_10(33) /statistical_processing_types('confficient',209)/`
`602`	`602`	`!`
	`603`	`+ ! Added Statistical Processing Type (12/20/2024)`
	`604`	`+ !`
	`605`	`+ data table4_10(34) /statistical_processing_types('severity',100)/`
	`606`	`+ data table4_10(35) /statistical_processing_types('mode',101)/`
	`607`	`+ data table4_10(36) /statistical_processing_types('index_proc',102)/`
	`608`	`+ !`
`603`	`609`	`!`
`604`	`610`	`type type_of_time_intervals`
`605`	`611`	`character(len=80) :: typeoftimeintervalskey`