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

Examples: Cleanup

This commit is contained in:
shahramn 2024-08-17 11:58:36 +01:00
parent 6c444f8cd1
commit a7e21c3e56
2 changed files with 6 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
examples/F90/CMakeLists.txt
View File

@ -155,12 +155,12 @@ ecbuild_add_test( TARGET eccodes_f_grib_set_packing
COMMAND ${CMAKE_CURRENT_SOURCE_DIR}/grib_set_packing.sh ) COMMAND ${CMAKE_CURRENT_SOURCE_DIR}/grib_set_packing.sh )
# Executables without a shell script # Executables without a shell script
ecbuild_add_executable( TARGET eccodes_f_new_from_file #ecbuild_add_executable( TARGET eccodes_f_new_from_file
NOINSTALL # NOINSTALL
SOURCES new_from_file.f90 # SOURCES new_from_file.f90
CONDITION HAVE_FORTRAN # CONDITION HAVE_FORTRAN
LINKER_LANGUAGE Fortran # LINKER_LANGUAGE Fortran
LIBS eccodes_f90 eccodes ) # LIBS eccodes_f90 eccodes )
ecbuild_add_executable( TARGET eccodes_f_grib_set_gvc ecbuild_add_executable( TARGET eccodes_f_grib_set_gvc
NOINSTALL NOINSTALL
SOURCES grib_set_gvc.f90 SOURCES grib_set_gvc.f90

40
examples/F90/new_from_file.f90
View File

@ -1,40 +0,0 @@
! (C) Copyright 2005- ECMWF.
!
! This software is licensed under the terms of the Apache Licence Version 2.0
! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
!
! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
!
!
!
program new_from_file
use eccodes
implicit none
integer :: ifile
integer :: iret
integer :: count1 = 0
! Message identifier.
integer :: igrib
ifile = 5
call codes_open_file(ifile, '../../data/collection.grib1', 'r')
! Loop on all the messages in a file.
call codes_grib_new_from_file(ifile, igrib, iret)
do while (iret == CODES_SUCCESS)
count1 = count1 + 1
print *, "===== Message #", count1
call codes_grib_new_from_file(ifile, igrib, iret)
end do
if (iret /= CODES_END_OF_FILE) then
call codes_check(iret, 'new_from_file', '')
end if
call codes_close_file(ifile)
end program