From f1946be88476baeed9ac5953d9d43736d40de64b Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Thu, 25 May 2023 16:26:19 +0200
Subject: [PATCH] Rename module and procedure
Rename module `set_all_contours_m` to `set_contours_m` and procedure
`set_all_contours` `set_contours`.
---
Inst_eddies/inst_eddies.f90 | 4 ++--
Inst_eddies/set_contours.f90 | 8 ++++----
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/Inst_eddies/inst_eddies.f90 b/Inst_eddies/inst_eddies.f90
index 0ead454c..4a267803 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 c1be9601..9f538292 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
--
GitLab