Polish

Common/read_snapshot.f90

@@ -55,7 +55,15 @@ contains
        call read_eddy(e, d, i, hshp, ishape)
 
        ! Check that all the eddies have the same date index:
-       call assert(d - d_init == k, "read_snapshot: date index")
+       if (d - d_init /= k) then
+          print *, "read_snapshot: bad date index"
+          print *, "d = ", d
+          print *, "d_init = ", d_init
+          print *, "k = ", k
+          print *, "ishape = ", ishape
+          print *, "i = ", i
+          stop 1
+       end if
 
        s%list(i) = e
     end do