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

Clean up

This commit is contained in:
Shahram Najm 2017-03-10 15:48:34 +00:00
parent 8c59edfea4
commit 9187dc093f
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/F90/grib_nearest.f90
View File

@ -44,11 +44,10 @@ program find
call codes_open_file(infile, &
'../../data/reduced_gaussian_lsm.grib1','r')
! a new grib message is loaded from file
! A new grib message is loaded from file
! igrib is the grib id to be used in subsequent calls
call codes_grib_new_from_file(infile,igrib)
call codes_grib_find_nearest(igrib, .true., lats, lons, nearest_lats, nearest_lons,lsm_values, distances, indexes)
call codes_release(igrib)