Skip to content
Snippets Groups Projects
Commit f1946be8 authored by Lionel GUEZ's avatar Lionel GUEZ
Browse files

Rename module and procedure

Rename module `set_all_contours_m` to `set_contours_m` and procedure
`set_all_contours` `set_contours`.
parent 841d2cd9
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment