diff --git a/Common/read_snapshot.f90 b/Common/read_snapshot.f90
index 3239e8b0203964430b6b33eb17790487b4a10be6..9d71e3eb0317e1623768358e5a26083f986bc524 100644
--- a/Common/read_snapshot.f90
+++ b/Common/read_snapshot.f90
@@ -35,7 +35,7 @@ contains
 
     ! Local:
     integer ishape, ishape_first
-    integer date
+    integer date_read
     integer eddy_i ! eddy index
     type(eddy) e
 
@@ -52,12 +52,12 @@ contains
     allocate(s%list(s%number_extr))
 
     do ishape = ishape_first, ishape_last(k - d_init + 1)
-       call read_eddy(e, date, eddy_i, hshp, ishape)
+       call read_eddy(e, date_read, eddy_i, hshp, ishape)
 
        ! Check that all the eddies have the same date index:
-       if (date /= k) then
+       if (date_read /= k) then
           print *, "read_snapshot: bad date index"
-          print *, "date = ", date
+          print *, "date_read = ", date_read
           print *, "k = ", k
           print *, "ishape = ", ishape
           print *, "eddy_i = ", eddy_i