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

Examples: Fix valgrind errors

This commit is contained in:
Shahram Najm 2024-08-14 14:08:39 +00:00
parent e78f3be92f
commit f0bd218441
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/F90/grib_read_bytes.f90
View File

@ -13,7 +13,7 @@ program read_bytes
integer :: ifile
integer :: intsize
parameter(intsize=10000)
character, dimension(intsize) :: bufferChar
character, dimension(intsize) :: bufferChar = ''
character(len=32) :: input_grib_file = '../../data/v.grib2'
call codes_open_file(ifile, input_grib_file, 'r')

2
examples/F90/grib_sections_copy.f90
View File

@ -12,7 +12,7 @@ program grib_sections_copy
implicit none
integer :: igrib_a, igrib_b, igrib_c, iret
character(len=40) :: error_message
character(len=40) :: error_message = ''
call codes_grib_new_from_samples(igrib_a, 'regular_ll_sfc_grib1')
call codes_grib_new_from_samples(igrib_b, 'reduced_gg_pl_640_grib1')