diff --git a/Overlap/Tests/write_snapshot.f90 b/Overlap/Tests/write_snapshot.f90
index 69c8858f6636aaaef29303a061804eb9bff0986a..24b0454bfca184bbb58dd588d45b870e2c3c680b 100644
--- a/Overlap/Tests/write_snapshot.f90
+++ b/Overlap/Tests/write_snapshot.f90
@@ -4,7 +4,7 @@ module write_snapshot_m
 
 contains
 
-  subroutine write_snapshot(s, corner, step, nlon, nlat, copy, k)
+  subroutine write_snapshot(s, corner, step, nlon, nlat, copy, d)
 
     ! Libraries:
     use nr_util, only: arth
@@ -27,7 +27,7 @@ contains
     ! size of ssh array in input NetCDF, assuming no repeated point if
     ! the grid is global
 
-    integer, intent(in):: copy, k
+    integer, intent(in):: copy, d
 
     ! Local:
     TYPE(shpc) hshp
@@ -39,7 +39,7 @@ contains
 
     ! Write snapshot:
     do i = 1, s%number_vis_extr
-       call write_eddy(s%list_vis(i), hshp, k, i)
+       call write_eddy(s%list_vis(i), hshp, d, i)
     end do
 
     CALL shpc_close(hshp)