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

Examples: Fortran dump fixes

This commit is contained in:
Shahram Najm 2023-08-22 15:38:31 +01:00
parent 2a667cef1b
commit bfb9893d28
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
examples/F90/codes_dump.f90
View File

@ -11,12 +11,11 @@ program grib_dump_test
use eccodes use eccodes
implicit none implicit none
integer :: ifile integer :: ifile
integer :: iret, i integer :: iret
integer :: count1 = 0 integer :: count1 = 0
integer :: msgid ! message identifier integer :: msgid
character(len=100) :: infile_name character(len=100) :: infile_name
ifile = 5
call getarg(1, infile_name) call getarg(1, infile_name)
call codes_open_file(ifile, infile_name, 'r') call codes_open_file(ifile, infile_name, 'r')