From e38b77a2e82d4d4f343c4c504ab2145b0bde578c Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Tue, 4 Apr 2023 18:19:05 +0200
Subject: [PATCH] Rename `i_shpc` to `i_slice`
---
Overlap/read_snapshot.f90 | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/Overlap/read_snapshot.f90 b/Overlap/read_snapshot.f90
index 9ccf8b63..bb5724ae 100644
--- a/Overlap/read_snapshot.f90
+++ b/Overlap/read_snapshot.f90
@@ -23,7 +23,7 @@ contains
! Local:
integer ishape, ishape_first
- integer:: i_shpc = huge(0)
+ integer:: i_slice = huge(0)
integer date_read
integer eddy_i ! eddy index
type(eddy) e
@@ -31,23 +31,23 @@ contains
!---------------------------------------------------------------------
if (size(hshpc) == 1) then
- i_shpc = 1
+ i_slice = 1
else
- call hunt([ssm%d0, huge(0)], k, i_shpc)
+ call hunt([ssm%d0, huge(0)], k, i_slice)
end if
- if (k == ssm(i_shpc)%d0) then
+ if (k == ssm(i_slice)%d0) then
ishape_first = 0
else
- ! {k > ssm(i_shpc)%d0}
- ishape_first = ssm(i_shpc)%ishape_last(k - 1) + 1
+ ! {k > ssm(i_slice)%d0}
+ ishape_first = ssm(i_slice)%ishape_last(k - 1) + 1
end if
- s%number_extr = ssm(i_shpc)%ishape_last(k) - ishape_first + 1
+ s%number_extr = ssm(i_slice)%ishape_last(k) - ishape_first + 1
allocate(s%list(s%number_extr))
- do ishape = ishape_first, ssm(i_shpc)%ishape_last(k)
- call read_eddy(e, date_read, eddy_i, hshpc(i_shpc), ishape)
+ do ishape = ishape_first, ssm(i_slice)%ishape_last(k)
+ call read_eddy(e, date_read, eddy_i, hshpc(i_slice), ishape)
! Check that all the eddies have the same date index:
if (date_read /= k) then
--
GitLab