mirror of https://github.com/ecmwf/eccodes.git
Add the Fortran grib_dump call
This commit is contained in:
parent
51cd22c0c4
commit
b6b84114f0
|
@ -36,6 +36,7 @@ character(len=9) :: typicalDate
|
|||
|
||||
! get and print some keys form the BUFR header
|
||||
write(*,*) 'message: ',count
|
||||
call codes_dump(ibufr)
|
||||
|
||||
! we need to instruct ecCodes to expand all the descriptors
|
||||
! i.e. unpack the data values
|
||||
|
|
|
@ -39,6 +39,7 @@ program grib_get_keys
|
|||
|
||||
LOOP: DO WHILE (iret /= CODES_END_OF_FILE)
|
||||
|
||||
call grib_dump(igrib)
|
||||
!check if the value of the key is MISSING
|
||||
is_missing=0;
|
||||
call codes_is_missing(igrib,'Ni',is_missing);
|
||||
|
|
Loading…
Reference in New Issue