From 20f19aaa126c02792acd324d17a9b757c540fd0c Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ipsl.fr>
Date: Wed, 25 Sep 2024 09:11:00 +0200
Subject: [PATCH] Rename procedure to `get_ori_slice_dir`
Rename procedure `get_slice_dir` to `get_ori_slice_dir`.
---
Common/get_ori_slice_dir.f90 | 15 ++++++++-------
Common/ori_slice_open.f90 | 4 ++--
Inst_eddies/shpc_create.f90 | 4 ++--
3 files changed, 12 insertions(+), 11 deletions(-)
diff --git a/Common/get_ori_slice_dir.f90 b/Common/get_ori_slice_dir.f90
index 91eb7f8f..ade88d13 100644
--- a/Common/get_ori_slice_dir.f90
+++ b/Common/get_ori_slice_dir.f90
@@ -1,12 +1,12 @@
-module get_slice_dir_m
+module get_ori_slice_dir_m
implicit none
contains
- pure function get_slice_dir(shpc_dir, cyclone, slice)
+ pure function get_ori_slice_dir(shpc_dir, cyclone, slice)
- character(len = :), allocatable:: get_slice_dir
+ character(len = :), allocatable:: get_ori_slice_dir
character(len = *), intent(in):: shpc_dir
logical, intent(in):: cyclone
integer, intent(in):: slice
@@ -19,11 +19,12 @@ contains
write(unit = slice_part, fmt = "(a, i0)") "Slice_", slice
if (cyclone) then
- get_slice_dir = shpc_dir // "/" // trim(slice_part) // "/Cyclones"
+ get_ori_slice_dir = shpc_dir // "/" // trim(slice_part) // "/Cyclones"
else
- get_slice_dir = shpc_dir // "/" // trim(slice_part) // "/Anticyclones"
+ get_ori_slice_dir = shpc_dir // "/" // trim(slice_part) &
+ // "/Anticyclones"
end if
- end function get_slice_dir
+ end function get_ori_slice_dir
-end module get_slice_dir_m
+end module get_ori_slice_dir_m
diff --git a/Common/ori_slice_open.f90 b/Common/ori_slice_open.f90
index 8737f126..325a4bf4 100644
--- a/Common/ori_slice_open.f90
+++ b/Common/ori_slice_open.f90
@@ -16,7 +16,7 @@ contains
use shapelib_03, only: shp_open_03
use derived_types, only: ori_slice_handler
- use get_slice_dir_m, only: get_slice_dir
+ use get_ori_slice_dir_m, only: get_ori_slice_dir
use read_field_indices_m, only: read_field_indices
TYPE(ori_slice_handler), intent(out):: hshp
@@ -32,7 +32,7 @@ contains
!--------------------------------------------------------------------
- hshp%dir = get_slice_dir(shpc_dir, cyclone, slice)
+ hshp%dir = get_ori_slice_dir(shpc_dir, cyclone, slice)
call shp_open_03(hshp%extremum, hshp%dir // "/extremum", pszaccess, &
iostat_local)
if (present(iostat)) iostat = iostat_local
diff --git a/Inst_eddies/shpc_create.f90 b/Inst_eddies/shpc_create.f90
index b0fd4dc2..823c1a83 100644
--- a/Inst_eddies/shpc_create.f90
+++ b/Inst_eddies/shpc_create.f90
@@ -14,7 +14,7 @@ contains
use shapelib_03, only: shp_create_03, dbf_add_field_03
use derived_types, only: ori_slice_handler
- use get_slice_dir_m, only: get_slice_dir
+ use get_ori_slice_dir_m, only: get_ori_slice_dir
TYPE(ori_slice_handler), intent(out):: hshp
character(len = *), intent(in):: shpc_dir
@@ -28,7 +28,7 @@ contains
!---------------------------------------------------------------------
- hshp%dir = get_slice_dir(shpc_dir, cyclone, slice)
+ hshp%dir = get_ori_slice_dir(shpc_dir, cyclone, slice)
! extremum shapefile:
call shp_create_03(hshp%dir // "/extremum", shpt_point, &
--
GitLab