Skip to content
Snippets Groups Projects
Commit 9daab69d authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 26/06/2024: minor: MODE_ALLOCBUFFER_ll: rename some internal subroutines

parent 713a2347
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/LIB/SURCOUCHE/src/mode_allocbuff.f90
+ 27
− 27
View file @ 9daab69d
......@@ -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
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme