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

Testing: codes_set_debug in Fortran

This commit is contained in:
shahramn 2024-08-17 12:07:14 +01:00
parent a7e21c3e56
commit d13e558288
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/F90/codes_dump.f90
View File

@ -21,6 +21,7 @@ program codes_dump_test
call getarg(2, infile_name)
call codes_set_debug(-1)
call codes_open_file(ifile, infile_name, 'r')
print *, "===== FILE:", infile_name
@ -29,7 +30,9 @@ program codes_dump_test
!call codes_any_new_from_file(ifile, msgid, iret)
if (iret == CODES_END_OF_FILE) exit
call codes_set_debug(0)
call codes_dump(msgid)
call codes_set_debug(1)
call codes_release(msgid)