Skip to content

Commit 206eeff

Browse files
table 4.233
1 parent ae3570c commit 206eeff

File tree

2 files changed

+9
-2
lines changed

2 files changed

+9
-2
lines changed

src/grib2_all_tables_module.F90

Lines changed: 6 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -809,7 +809,12 @@ module grib2_all_tables_module
809809
data table4_233(125) /type_of_aerosol('aerosol_lo_absorption',62023)/
810810
data table4_233(126) /type_of_aerosol('volcanic_ash',62025)/
811811
! Add new parameter (04/12/2022)
812-
data table4_233(127) /type_of_aerosol('brown_carbon_dry',63034)/
812+
! Corrected code figure (12/20/2024)
813+
data table4_233(127) /type_of_aerosol('brown_carbon_dry',62036)/
814+
!
815+
! Added Aerosol Type (12/20/2024)
816+
!
817+
data table4_233(128) /type_of_aerosol('oxygen',38)/
813818
!
814819
!
815820
type type_of_orig_field_vals

tests/test_all_key_tables.F90

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -956,9 +956,11 @@ program test_all_tables
956956
call get_g2_typeofaerosol('volcanic_ash', val1, ierr)
957957
if (val1 .ne. 62025) stop 13
958958
call get_g2_typeofaerosol('brown_carbon_dry', val1, ierr)
959-
if (val1 .ne. 63034) stop 13
959+
if (val1 .ne. 62036) stop 13
960960
call get_g2_typeofaerosol('', val1, ierr)
961961
if (val1 .ne. 65535) stop 13
962+
call get_g2_typeofaerosol('oxygen', val1, ierr)
963+
if (val1 .ne. 38) stop 13
962964
call get_g2_typeofaerosol('xxxx', val1, ierr)
963965
if (ierr .ne. 9) stop 13
964966

0 commit comments

Comments
 (0)