Rename procedure to `get_ori_slice_dir`

Rename procedure `get_slice_dir` to `get_ori_slice_dir`.

Common/get_ori_slice_dir.f90

-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

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

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, &