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

Add the Fortran grib_dump call

This commit is contained in:
Shahram Najm 2015-10-02 17:03:26 +01:00
parent 51cd22c0c4
commit b6b84114f0
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
examples/F90/bufr_get_keys.f90
View File

@ -36,6 +36,7 @@ character(len=9) :: typicalDate
! get and print some keys form the BUFR header ! get and print some keys form the BUFR header
write(*,*) 'message: ',count write(*,*) 'message: ',count
call codes_dump(ibufr)
! we need to instruct ecCodes to expand all the descriptors ! we need to instruct ecCodes to expand all the descriptors
! i.e. unpack the data values ! i.e. unpack the data values

1
examples/F90/grib_get_keys.f90
View File

@ -39,6 +39,7 @@ program grib_get_keys
LOOP: DO WHILE (iret /= CODES_END_OF_FILE) LOOP: DO WHILE (iret /= CODES_END_OF_FILE)
call grib_dump(igrib)
!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);