From 6150445fb2152cd525fa2c1ba01a4619e9077fd9 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Fri, 22 Oct 2021 21:10:36 +0200
Subject: [PATCH] Polish
---
Common/read_snapshot.f90 | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/Common/read_snapshot.f90 b/Common/read_snapshot.f90
index 48c50a69..295d3c91 100644
--- a/Common/read_snapshot.f90
+++ b/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
--
GitLab