From b0f2b2175dafdd3a2f1d1057d1b684d31e0e053e Mon Sep 17 00:00:00 2001 From: AlysonStahl-NOAA <166434581+AlysonStahl-NOAA@users.noreply.github.com> Date: Fri, 20 Dec 2024 15:24:58 -0800 Subject: [PATCH] table 4.7 --- src/grib2_all_tables_module.F90 | 4 ++++ tests/test_all_key_tables.F90 | 2 ++ 2 files changed, 6 insertions(+) diff --git a/src/grib2_all_tables_module.F90 b/src/grib2_all_tables_module.F90 index 935eea0..a8afaa9 100644 --- a/src/grib2_all_tables_module.F90 +++ b/src/grib2_all_tables_module.F90 @@ -514,6 +514,10 @@ module grib2_all_tables_module data table4_7(22) /type_of_derive_fcst('percentile_value_75',203)/ data table4_7(23) /type_of_derive_fcst('percentile_value_95',204)/ ! + ! Added type of derive forecast (12/20/2024) + ! + data table4_7(24) /type_of_derive_fcst('var_all_ens_mem',10)/ + ! ! ! Added Clustering Method Table 4.8 (06/26/2019) ! diff --git a/tests/test_all_key_tables.F90 b/tests/test_all_key_tables.F90 index 64d253c..1fc4c47 100644 --- a/tests/test_all_key_tables.F90 +++ b/tests/test_all_key_tables.F90 @@ -1777,6 +1777,8 @@ program test_all_tables if (val1 .ne. 203) stop 21 call get_g2_typeofderivefcst('percentile_value_95', val1, ierr) if (val1 .ne. 204) stop 21 + call get_g2_typeofderivefcst('var_all_ens_mem', val1, ierr) + if (val1 .ne. 10) stop 21 call get_g2_typeofderivefcst('xxxx', val1, ierr) if (ierr .ne. 9) stop 21