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

Testing: Fortran index read

This commit is contained in:
Shahram Najm 2024-01-05 19:49:41 +00:00
parent 2385430436
commit 634cff7c6c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/F90/grib_index.f90
View File

@ -23,7 +23,7 @@ program index
character(len=20) :: oshortName character(len=20) :: oshortName
integer :: shortNameSize, numberSize, levelSize, stepSize integer :: shortNameSize, numberSize, levelSize, stepSize
integer :: i, j, k, l integer :: i, j, k, l
integer :: idx, igrib, count1 integer :: idx, idx1, igrib, count1
character(len=10) :: index_file = 'index.idx' character(len=10) :: index_file = 'index.idx'
! uncomment following line to load index from file ! uncomment following line to load index from file
@ -107,7 +107,10 @@ program index
! save the index to a file for later reuse ! save the index to a file for later reuse
call codes_index_write(idx, index_file) call codes_index_write(idx, index_file)
call codes_index_read(idx1, index_file)
call codes_index_release(idx) call codes_index_release(idx)
call codes_index_release(idx1)
deallocate (level) deallocate (level)
deallocate (shortName) deallocate (shortName)