From 9daab69df8083f545d3c07e7926b31285bdaa912 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 26 Jun 2024 15:54:29 +0200
Subject: [PATCH] Philippe 26/06/2024: minor: MODE_ALLOCBUFFER_ll: rename some
internal subroutines
---
src/LIB/SURCOUCHE/src/mode_allocbuff.f90 | 54 ++++++++++++------------
1 file changed, 27 insertions(+), 27 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_allocbuff.f90 b/src/LIB/SURCOUCHE/src/mode_allocbuff.f90
index 21624225f..a86f71643 100644
--- a/src/LIB/SURCOUCHE/src/mode_allocbuff.f90
+++ b/src/LIB/SURCOUCHE/src/mode_allocbuff.f90
@@ -18,11 +18,11 @@ PRIVATE
INTERFACE ALLOCBUFFER_ll
MODULE PROCEDURE &
- ALLOCBUFFER_X1, ALLOCBUFFER_NEW_X1, ALLOCBUFFER_X2, ALLOCBUFFER_NEW_X2, ALLOCBUFFER_X3, ALLOCBUFFER_NEW_X3, &
- ALLOCBUFFER_X4, ALLOCBUFFER_NEW_X4, ALLOCBUFFER_X5, ALLOCBUFFER_NEW_X5, ALLOCBUFFER_X6, ALLOCBUFFER_NEW_X6, &
- ALLOCBUFFER_N1, ALLOCBUFFER_NEW_N1, ALLOCBUFFER_N2, ALLOCBUFFER_NEW_N2, ALLOCBUFFER_N3, ALLOCBUFFER_NEW_N3, &
- ALLOCBUFFER_N4, ALLOCBUFFER_NEW_N4, &
- ALLOCBUFFER_L1, ALLOCBUFFER_NEW_L1
+ ALLOCBUFFER_X1, ALLOCBUFFER_NOPTR_X1, ALLOCBUFFER_X2, ALLOCBUFFER_NOPTR_X2, ALLOCBUFFER_X3, ALLOCBUFFER_NOPTR_X3, &
+ ALLOCBUFFER_X4, ALLOCBUFFER_NOPTR_X4, ALLOCBUFFER_X5, ALLOCBUFFER_NOPTR_X5, ALLOCBUFFER_X6, ALLOCBUFFER_NOPTR_X6, &
+ ALLOCBUFFER_N1, ALLOCBUFFER_NOPTR_N1, ALLOCBUFFER_N2, ALLOCBUFFER_NOPTR_N2, ALLOCBUFFER_N3, ALLOCBUFFER_NOPTR_N3, &
+ ALLOCBUFFER_N4, ALLOCBUFFER_NOPTR_N4, &
+ ALLOCBUFFER_L1, ALLOCBUFFER_NOPTR_L1
END INTERFACE
PUBLIC :: ALLOCBUFFER_ll
@@ -54,7 +54,7 @@ CASE default
END SELECT
END SUBROUTINE ALLOCBUFFER_N1
-SUBROUTINE ALLOCBUFFER_NEW_N1( LTAB_OUT, LTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_N1( LTAB_OUT, LTAB_IN, HDIR )
!
INTEGER, DIMENSION(:), ALLOCATABLE, INTENT(OUT) :: LTAB_OUT
INTEGER, DIMENSION(:), INTENT(IN) :: LTAB_IN
@@ -72,7 +72,7 @@ SUBROUTINE ALLOCBUFFER_NEW_N1( LTAB_OUT, LTAB_IN, HDIR )
CASE default
ALLOCATE( LTAB_OUT, MOLD = LTAB_IN )
END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_N1
+END SUBROUTINE ALLOCBUFFER_NOPTR_N1
SUBROUTINE ALLOCBUFFER_N2(KTAB_P,KTAB,HDIR,OALLOC)
USE MODD_IO, ONLY: LPACK, L2D
@@ -108,7 +108,7 @@ CASE default
END SELECT
END SUBROUTINE ALLOCBUFFER_N2
-SUBROUTINE ALLOCBUFFER_NEW_N2( KTAB_OUT, KTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_N2( KTAB_OUT, KTAB_IN, HDIR )
USE MODD_IO, ONLY: LPACK, L2D
!
INTEGER, DIMENSION(:,:), ALLOCATABLE, INTENT(OUT) :: KTAB_OUT
@@ -135,7 +135,7 @@ SUBROUTINE ALLOCBUFFER_NEW_N2( KTAB_OUT, KTAB_IN, HDIR )
CASE default
ALLOCATE( KTAB_OUT, MOLD = KTAB_IN )
END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_N2
+END SUBROUTINE ALLOCBUFFER_NOPTR_N2
SUBROUTINE ALLOCBUFFER_N3(KTAB_P,KTAB,HDIR,OALLOC)
USE MODD_IO, ONLY: LPACK, L2D
@@ -171,7 +171,7 @@ CASE default
END SELECT
END SUBROUTINE ALLOCBUFFER_N3
-SUBROUTINE ALLOCBUFFER_NEW_N3( KTAB_OUT, KTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_N3( KTAB_OUT, KTAB_IN, HDIR )
USE MODD_IO, ONLY: LPACK, L2D
!
INTEGER, DIMENSION(:,:,:), ALLOCATABLE, INTENT(OUT) :: KTAB_OUT
@@ -198,7 +198,7 @@ SUBROUTINE ALLOCBUFFER_NEW_N3( KTAB_OUT, KTAB_IN, HDIR )
CASE default
ALLOCATE( KTAB_OUT, MOLD = KTAB_IN )
END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_N3
+END SUBROUTINE ALLOCBUFFER_NOPTR_N3
SUBROUTINE ALLOCBUFFER_N4(KTAB_P,KTAB,HDIR,OALLOC)
USE MODD_IO, ONLY: LPACK, L2D
@@ -236,7 +236,7 @@ CASE default
END SELECT
END SUBROUTINE ALLOCBUFFER_N4
-SUBROUTINE ALLOCBUFFER_NEW_N4( KTAB_OUT, KTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_N4( KTAB_OUT, KTAB_IN, HDIR )
USE MODD_IO, ONLY: LPACK, L2D
!
INTEGER, DIMENSION(:,:,:,:), ALLOCATABLE, INTENT(OUT) :: KTAB_OUT
@@ -263,7 +263,7 @@ SUBROUTINE ALLOCBUFFER_NEW_N4( KTAB_OUT, KTAB_IN, HDIR )
CASE default
ALLOCATE( KTAB_OUT, MOLD = KTAB_IN )
END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_N4
+END SUBROUTINE ALLOCBUFFER_NOPTR_N4
SUBROUTINE ALLOCBUFFER_L1(LTAB_P,LTAB,HDIR,OALLOC)
!
@@ -289,7 +289,7 @@ CASE default
END SELECT
END SUBROUTINE ALLOCBUFFER_L1
-SUBROUTINE ALLOCBUFFER_NEW_L1( LTAB_OUT, LTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_L1( LTAB_OUT, LTAB_IN, HDIR )
!
LOGICAL, DIMENSION(:), ALLOCATABLE, INTENT(OUT) :: LTAB_OUT
LOGICAL, DIMENSION(:), INTENT(IN) :: LTAB_IN
@@ -307,7 +307,7 @@ SUBROUTINE ALLOCBUFFER_NEW_L1( LTAB_OUT, LTAB_IN, HDIR )
CASE default
ALLOCATE( LTAB_OUT, MOLD = LTAB_IN )
END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_L1
+END SUBROUTINE ALLOCBUFFER_NOPTR_L1
SUBROUTINE ALLOCBUFFER_X1(PTAB_P,PTAB,HDIR,OALLOC, KIMAX_ll, KJMAX_ll)
!
@@ -345,7 +345,7 @@ CASE default
END SELECT
END SUBROUTINE ALLOCBUFFER_X1
-SUBROUTINE ALLOCBUFFER_NEW_X1( PTAB_OUT, PTAB_IN, HDIR, KIMAX_ll, KJMAX_ll )
+SUBROUTINE ALLOCBUFFER_NOPTR_X1( PTAB_OUT, PTAB_IN, HDIR, KIMAX_ll, KJMAX_ll )
!
REAL, DIMENSION(:), ALLOCATABLE, INTENT(OUT) :: PTAB_OUT
REAL, DIMENSION(:), INTENT(IN) :: PTAB_IN
@@ -375,7 +375,7 @@ SUBROUTINE ALLOCBUFFER_NEW_X1( PTAB_OUT, PTAB_IN, HDIR, KIMAX_ll, KJMAX_ll )
CASE default
ALLOCATE( PTAB_OUT, MOLD = PTAB_IN )
END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_X1
+END SUBROUTINE ALLOCBUFFER_NOPTR_X1
SUBROUTINE ALLOCBUFFER_X2(PTAB_P,PTAB,HDIR,OALLOC, KIMAX_ll, KJMAX_ll)
USE MODD_IO, ONLY: LPACK, L2D
@@ -427,7 +427,7 @@ CASE default
END SELECT
END SUBROUTINE ALLOCBUFFER_X2
-SUBROUTINE ALLOCBUFFER_NEW_X2( PTAB_OUT, PTAB_IN, HDIR, KIMAX_ll, KJMAX_ll )
+SUBROUTINE ALLOCBUFFER_NOPTR_X2( PTAB_OUT, PTAB_IN, HDIR, KIMAX_ll, KJMAX_ll )
USE MODD_IO, ONLY: LPACK, L2D
!
REAL, DIMENSION(:,:), ALLOCATABLE, INTENT(OUT) :: PTAB_OUT
@@ -470,7 +470,7 @@ SUBROUTINE ALLOCBUFFER_NEW_X2( PTAB_OUT, PTAB_IN, HDIR, KIMAX_ll, KJMAX_ll )
CASE default
ALLOCATE( PTAB_OUT, MOLD = PTAB_IN )
END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_X2
+END SUBROUTINE ALLOCBUFFER_NOPTR_X2
SUBROUTINE ALLOCBUFFER_X3(PTAB_P,PTAB,HDIR,OALLOC)
USE MODD_IO, ONLY: LPACK, L2D
@@ -506,7 +506,7 @@ CASE default
END SELECT
END SUBROUTINE ALLOCBUFFER_X3
-SUBROUTINE ALLOCBUFFER_NEW_X3( PTAB_OUT, PTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_X3( PTAB_OUT, PTAB_IN, HDIR )
USE MODD_IO, ONLY: LPACK, L2D
!
REAL, DIMENSION(:,:,:), ALLOCATABLE, INTENT(OUT) :: PTAB_OUT
@@ -532,7 +532,7 @@ SUBROUTINE ALLOCBUFFER_NEW_X3( PTAB_OUT, PTAB_IN, HDIR )
CASE default
ALLOCATE( PTAB_OUT, MOLD = PTAB_IN )
END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_X3
+END SUBROUTINE ALLOCBUFFER_NOPTR_X3
SUBROUTINE ALLOCBUFFER_X4(PTAB_P,PTAB,HDIR,OALLOC)
USE MODD_IO, ONLY: LPACK, L2D
@@ -570,7 +570,7 @@ CASE default
END SELECT
END SUBROUTINE ALLOCBUFFER_X4
-SUBROUTINE ALLOCBUFFER_NEW_X4( PTAB_OUT, PTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_X4( PTAB_OUT, PTAB_IN, HDIR )
USE MODD_IO, ONLY: LPACK, L2D
!
REAL, DIMENSION(:,:,:,:), ALLOCATABLE, INTENT(OUT) :: PTAB_OUT
@@ -596,7 +596,7 @@ SUBROUTINE ALLOCBUFFER_NEW_X4( PTAB_OUT, PTAB_IN, HDIR )
CASE default
ALLOCATE( PTAB_OUT, MOLD = PTAB_IN )
END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_X4
+END SUBROUTINE ALLOCBUFFER_NOPTR_X4
SUBROUTINE ALLOCBUFFER_X5(PTAB_P,PTAB,HDIR,OALLOC)
USE MODD_IO, ONLY: LPACK, L2D
@@ -636,7 +636,7 @@ CASE default
END SELECT
END SUBROUTINE ALLOCBUFFER_X5
-SUBROUTINE ALLOCBUFFER_NEW_X5( PTAB_OUT, PTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_X5( PTAB_OUT, PTAB_IN, HDIR )
USE MODD_IO, ONLY: LPACK, L2D
!
REAL, DIMENSION(:,:,:,:,:), ALLOCATABLE, INTENT(OUT) :: PTAB_OUT
@@ -662,7 +662,7 @@ SUBROUTINE ALLOCBUFFER_NEW_X5( PTAB_OUT, PTAB_IN, HDIR )
CASE default
ALLOCATE( PTAB_OUT, MOLD = PTAB_IN )
END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_X5
+END SUBROUTINE ALLOCBUFFER_NOPTR_X5
SUBROUTINE ALLOCBUFFER_X6(PTAB_P,PTAB,HDIR,OALLOC)
USE MODD_IO, ONLY: LPACK, L2D
@@ -702,7 +702,7 @@ CASE default
END SELECT
END SUBROUTINE ALLOCBUFFER_X6
-SUBROUTINE ALLOCBUFFER_NEW_X6( PTAB_OUT, PTAB_IN, HDIR )
+SUBROUTINE ALLOCBUFFER_NOPTR_X6( PTAB_OUT, PTAB_IN, HDIR )
USE MODD_IO, ONLY: LPACK, L2D
!
REAL, DIMENSION(:,:,:,:,:,:), ALLOCATABLE, INTENT(OUT) :: PTAB_OUT
@@ -728,6 +728,6 @@ SUBROUTINE ALLOCBUFFER_NEW_X6( PTAB_OUT, PTAB_IN, HDIR )
CASE default
ALLOCATE( PTAB_OUT, MOLD = PTAB_IN )
END SELECT
-END SUBROUTINE ALLOCBUFFER_NEW_X6
+END SUBROUTINE ALLOCBUFFER_NOPTR_X6
END MODULE MODE_ALLOCBUFFER_ll
--
GitLab