Skip to content

Commit 1a55823

Browse files
table 5.0
1 parent 206eeff commit 1a55823

File tree

2 files changed

+9
-0
lines changed

2 files changed

+9
-0
lines changed

src/grib2_all_tables_module.F90

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -882,6 +882,11 @@ module grib2_all_tables_module
882882
data table5_0(10) /type_of_packingmethod('simple_packing_log_preprcs',61)/
883883
data table5_0(11) /type_of_packingmethod('run_length_packing_lvl_val',200)/
884884
!
885+
! Added Packing Method (12/20/2024)
886+
!
887+
data table5_0(12) /type_of_packingmethod('ccsds_lossless',42)/
888+
data table5_0(13) /type_of_packingmethod('spectral_limited_area_complex',53)/
889+
!
885890
!
886891
type origin_centers
887892
character(len=50) :: origincenterskey

tests/test_all_key_tables.F90

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1719,6 +1719,10 @@ program test_all_tables
17191719
if (val1 .ne. 61) stop 19
17201720
call get_g2_sec5packingmethod('run_length_packing_lvl_val', val1, ierr)
17211721
if (val1 .ne. 200) stop 19
1722+
call get_g2_sec5packingmethod('ccsds_lossless', val1, ierr)
1723+
if (val1 .ne. 42) stop 19
1724+
call get_g2_sec5packingmethod('spectral_limited_area_complex', val1, ierr)
1725+
if (val1 .ne. 53) stop 19
17221726
call get_g2_sec5packingmethod('xxxxx', val1, ierr)
17231727
if (ierr .ne. 9) stop 19
17241728

0 commit comments

Comments
 (0)