diff --git a/Common/read_eddy.f90 b/Common/read_eddy.f90
index 9f726acefa4993b8e36a2052ba7771fb95376617..7c2be89c86f0b0cd841bf14ec201322541095f74 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, &