From 836a0cd7c9ec21a1529833e8c83c2d21511fc65a Mon Sep 17 00:00:00 2001
From: Shahram Najm <masn@ecmwf.int>
Date: Tue, 21 Jun 2016 16:37:14 +0100
Subject: [PATCH] Clean up

---
 examples/F90/grib_clone.f90   | 13 ++++++-------
 examples/python/grib_clone.sh |  4 ++--
 2 files changed, 8 insertions(+), 9 deletions(-)

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