diff --git a/Inst_eddies/inst_eddies.f90 b/Inst_eddies/inst_eddies.f90
index 0ead454cc1f4277cf23b0cceddd731e46a23e2fb..4a267803560c4a8d30903bf322b99ab0ae93c26f 100644
--- a/Inst_eddies/inst_eddies.f90
+++ b/Inst_eddies/inst_eddies.f90
@@ -14,7 +14,7 @@ program inst_eddies
   use derived_types, only: snapshot, shpc_slice_handler
   use input_ssh_m, only: input_ssh
   use set_all_extr_m, only: set_all_extr
-  use set_all_contours_m, only: set_all_contours
+  use set_contours_m, only: set_contours
   use shpc_close_m, only: shpc_close
   use shpc_create_m, only: shpc_create
   use shpc_open_m, only: shpc_open
@@ -133,7 +133,7 @@ program inst_eddies
 
   loop_extr: do l = 1, s%number_extr
      i = sorted_extr(l)
-     call set_all_contours(s, step, periodic, ssh, u, v, corner, min_area, i)
+     call set_contours(s, step, periodic, ssh, u, v, corner, min_area, i)
   end do loop_extr
 
   call cpu_time(t1)
diff --git a/Inst_eddies/set_contours.f90 b/Inst_eddies/set_contours.f90
index c1be9601afdb855acfada911bdd626506f0dffce..9f5382927adbc1dc1d92c24ec2e9b74cd836d57b 100644
--- a/Inst_eddies/set_contours.f90
+++ b/Inst_eddies/set_contours.f90
@@ -1,10 +1,10 @@
-module set_all_contours_m
+module set_contours_m
 
   implicit none
 
 contains
 
-  subroutine set_all_contours(s, step, periodic, ssh, u, v, corner, min_area, i)
+  subroutine set_contours(s, step, periodic, ssh, u, v, corner, min_area, i)
 
     ! This procedure sets all contours in the snapshot "s".
 
@@ -133,6 +133,6 @@ contains
       end if
     end associate
 
-  end subroutine set_all_contours
+  end subroutine set_contours
 
-end module set_all_contours_m
+end module set_contours_m