From e0e3b0ff5b0d21dd3eac2d5bb1a4489fb24a9647 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Tue, 29 Jun 2021 09:56:03 +0200
Subject: [PATCH] Rename local variable k2 to d
Following commit 4792f83.
---
Common/read_snapshot.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/Common/read_snapshot.f90 b/Common/read_snapshot.f90
index 8b645b7d..c4089143 100644
--- a/Common/read_snapshot.f90
+++ b/Common/read_snapshot.f90
@@ -35,7 +35,7 @@ contains
! Local:
integer ishape, ishape_first
- integer k2 ! date index
+ integer d ! date index
integer i ! eddy index
type(eddy) e
@@ -52,10 +52,10 @@ contains
allocate(s%list_vis(s%number_vis_extr))
do ishape = ishape_first, ishape_last(k - d_init + 1)
- call read_eddy(e, k2, i, hshp, ishape)
+ call read_eddy(e, d, i, hshp, ishape)
! Check that all the eddies have the same date index:
- call assert(k2 == k, "read_snapshot: date index")
+ call assert(d == k, "read_snapshot: date index")
s%list_vis(i) = e
end do
--
GitLab