From 4bf161076415155ee2a1f1250337362ffe0c286f Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Tue, 21 Dec 2021 20:03:52 +0100
Subject: [PATCH] Rename date to `date_read`
---
Common/read_snapshot.f90 | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/Common/read_snapshot.f90 b/Common/read_snapshot.f90
index 3239e8b0..9d71e3eb 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
--
GitLab