Rename date to `date_read`

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