From 4792f83f4b402c1c9dd7b3d8bd88277594e6764b Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Tue, 8 Jun 2021 14:35:05 +0200
Subject: [PATCH] Rename argument k to d
Continuing the change in commit fdd8a7e. k would be for date index
rather than number of days since 1950-1-1.
---
Common/read_eddy.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/Common/read_eddy.f90 b/Common/read_eddy.f90
index 9f726ace..7c2be89c 100644
--- a/Common/read_eddy.f90
+++ b/Common/read_eddy.f90
@@ -4,7 +4,7 @@ module read_eddy_m
contains
- subroutine read_eddy(e, k, i, hshp, ishape)
+ subroutine read_eddy(e, d, i, hshp, ishape)
use, intrinsic:: ISO_C_BINDING
@@ -21,7 +21,7 @@ contains
! All components are defined. Components delta_in and delta_out
! get default initialization values.
- integer, intent(out):: k ! date index
+ integer, intent(out):: d ! date
integer, intent(out):: i ! eddy index
TYPE(shp_tr), intent(in):: hshp
integer, intent(in):: ishape ! 0-based
@@ -37,7 +37,7 @@ contains
call dbf_read_attribute_03(e%ssh_extr, hshp%extremum, hshp%extr_ssh, &
ishape)
- call dbf_read_attribute_03(k, hshp%extremum, hshp%extr_date, ishape)
+ call dbf_read_attribute_03(d, hshp%extremum, hshp%extr_date, ishape)
call dbf_read_attribute_03(i, hshp%extremum, hshp%extr_eddy_index, ishape)
call dbf_read_attribute_03(int_attr, hshp%extremum, hshp%extr_interp, &
--
GitLab