diff --git a/examples/F90/grib_clone.f90 b/examples/F90/grib_clone.f90 index 5e0ed810d..c9e5406d0 100644 --- a/examples/F90/grib_clone.f90 +++ b/examples/F90/grib_clone.f90 @@ -27,19 +27,18 @@ program clone call codes_open_file(infile,'../../data/constant_field.grib1','r') call codes_open_file(outfile,'out.clone.grib1','w') - ! a new grib message is loaded from file - ! igrib is the grib id to be used in subsequent calls + ! 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_in) - call codes_get(igrib_in,"Ni", nx) - - call codes_get(igrib_in,"Nj",ny) + call codes_get(igrib_in,'Ni', nx) + call codes_get(igrib_in,'Nj', ny) allocate(field2D(nx,ny),stat=err) if (err .ne. 0) then - print*, 'Failed to allocate ', nx*ny, ' values' - STOP + print*, 'Failed to allocate ', nx*ny, ' values' + STOP end if ! clone the constant field to create 4 new GRIB messages do i=0,18,6 diff --git a/examples/python/grib_clone.sh b/examples/python/grib_clone.sh index 0e0982785..cab3d2775 100755 --- a/examples/python/grib_clone.sh +++ b/examples/python/grib_clone.sh @@ -3,5 +3,5 @@ . ./include.sh REDIRECT=/dev/null -$PYTHON $examples_src/grib_clone.py 2> $REDIRECT > $REDIRECT -rm -f out.clone.grib || true +$PYTHON $examples_src/grib_clone.py +rm -f out.clone.grib