core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Examples: Fortran is_defined

This commit is contained in:
Shahram Najm 2023-08-23 20:07:46 +01:00
parent 1aaf720183
commit 8d6b11772a
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
examples/F90/grib_get_keys.f90
View File

@ -26,7 +26,7 @@ program grib_get_keys
real, dimension(:), allocatable :: values real, dimension(:), allocatable :: values
integer :: numberOfValues integer :: numberOfValues
real :: average, min_val, max_val real :: average, min_val, max_val
integer :: is_missing integer :: is_missing, is_defined
character(len=10) :: open_mode = 'r' character(len=10) :: open_mode = 'r'
call codes_open_file(ifile, '../../data/reduced_latlon_surface.grib1', open_mode) call codes_open_file(ifile, '../../data/reduced_latlon_surface.grib1', open_mode)
@ -38,9 +38,14 @@ program grib_get_keys
call codes_grib_new_from_file(ifile, igrib, iret) call codes_grib_new_from_file(ifile, igrib, iret)
if (iret == CODES_END_OF_FILE) exit LOOP if (iret == CODES_END_OF_FILE) exit LOOP
! check key is defined
is_defined = 0
call codes_is_defined(igrib, 'Ni', is_defined)
write (*, *) 'Key Ni is defined? ', is_defined
! check if the value of the key is MISSING ! check if the value of the key is MISSING
is_missing = 0; is_missing = 0
call codes_is_missing(igrib, 'Ni', is_missing); call codes_is_missing(igrib, 'Ni', is_missing)
if (is_missing /= 1) then if (is_missing /= 1) then
! key value is not missing so get as an integer ! key value is not missing so get as an integer
call codes_get(igrib, 'Ni', numberOfPointsAlongAParallel) call codes_get(igrib, 'Ni', numberOfPointsAlongAParallel)

2
examples/F90/grib_get_keys.sh
View File

@ -9,4 +9,4 @@
. ./include.ctest.sh . ./include.ctest.sh
${examples_dir}/eccodes_f_grib_get_keys > /dev/null ${examples_dir}/eccodes_f_grib_get_keys