moved sandbox examples to sandbox/

Makefile

@@ -1,19 +1,19 @@
-all: simple_xy_wr simple_xy_rd simple_xy_rd_retry
+all: sandbox/simple_xy_wr sandbox/simple_xy_rd sandbox/simple_xy_rd_with_retries
 
 clean:
-	rm -f simple_xy_wr simple_xy_rd simple_xy.nc *.mod simple_xy_rd_retry
+	rm -f sandbox/simple_xy_wr sandbox/simple_xy_rd sandbox/simple_xy.nc *.mod sandbox/simple_xy_rd_with_retries
 
 FFLAGS = $(shell nf-config --cflags) $(shell nf-config --fflags) -g
 LDFLAGS = $(shell nf-config --flibs)
 
 
 @PHONY: all clean
 
-simple_xy_wr: simple_xy_wr.f90
+sandbox/simple_xy_wr: sandbox/simple_xy_wr.f90
 	gfortran $(FFLAGS) $^ -o $@ $(LDFLAGS)
 
-simple_xy_rd: simple_xy_rd.f90
+sandbox/simple_xy_rd: sandbox/simple_xy_rd.f90
 	gfortran $(FFLAGS) $^ -o $@ $(LDFLAGS)
 
-simple_xy_rd_retry: nf_retry.f90 simple_xy_rd_retry.f90
+sandbox/simple_xy_rd_with_retries: nf_retry.f90 sandbox/simple_xy_rd_with_retries.f90
 	gfortran $(FFLAGS) $^ -o $@ $(LDFLAGS)

nf_retry.f90

@@ -1,5 +1,5 @@
 ! nf90_open_with_retries
-!  VERSION     1.0.0
+!  VERSION     1.0.2
 !  REPOSITORY  https://github.com/LiamBindle/nf90_open_with_retries
 
 module nf_retry 

simple_xy_rd_retry.f90 → sandbox/simple_xy_rd_with_retries.f90

@@ -33,15 +33,8 @@ program simple_xy_rd
   ! Loop indexes, and error handling.
   integer :: x, y
 
-  ! !write(*,*) 'error code(',NX,'): ',nf90_strerror(NX)
-  ! print '("nf_retry: Caught netcdf error code(", I0,"): ",A)',NX,nf90_strerror(NX)
-  ! print '("nf_retry: Retrying in ", I0,"s.")',11
-
-  ! stop "Done"
-
   ! Open the file. NF90_NOWRITE tells netCDF we want read-only access to
   ! the file.
-  ! call check( nf90_open(FILE_NAME, NF90_NOWRITE, ncid) )
   call check( nf90_open_with_retries(FILE_NAME, NF90_NOWRITE, ncid) )
 
   ! Get the varid of the data variable, based on its name.