Skip to content

Commit 2fb6120

Browse files
table 4.5 17-19
1 parent e98d402 commit 2fb6120

File tree

2 files changed

+12
-0
lines changed

2 files changed

+12
-0
lines changed

src/grib2_all_tables_module.F90

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -439,6 +439,12 @@ module grib2_all_tables_module
439439
data table4_5(105) /fixed_surface_types('eff_layer_bottom_level',217)/
440440
data table4_5(106) /fixed_surface_types('eff_layer',218)/
441441
!
442+
! Added fixed surface levels (12/20/2024)
443+
!
444+
data table4_5(106) /fixed_surface_types('dep_level_unstable_parcel_air',17)/
445+
data table4_5(106) /fixed_surface_types('dep_level_mixed_parcel_air',18)/
446+
data table4_5(106) /fixed_surface_types('lowest_cloud_cover',19)/
447+
!
442448
!
443449
type type_of_ens_fcst
444450
character(len=50) :: typeofensfcstkey

tests/test_all_key_tables.F90

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -526,6 +526,12 @@ program test_all_tables
526526
if (val1 .ne. 217) stop 9
527527
call get_g2_fixedsurfacetypes('eff_layer', val1, ierr)
528528
if (val1 .ne. 218) stop 9
529+
call get_g2_fixedsurfacetypes('dep_level_unstable_parcel_air', val1, ierr)
530+
if (val1 .ne. 17) stop 9
531+
call get_g2_fixedsurfacetypes('dep_level_mixed_parcel_air', val1, ierr)
532+
if (val1 .ne. 18) stop 9
533+
call get_g2_fixedsurfacetypes('lowest_cloud_cover', val1, ierr)
534+
if (val1 .ne. 19) stop 9
529535
call get_g2_fixedsurfacetypes('xxx', val1, ierr)
530536
if (ierr .ne. 9) stop 9
531537

0 commit comments

Comments
 (0)