From 7f82631012f45c7f06e73799d4362f8e45a7ffbe Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@cnrs.fr>
Date: Thu, 17 Oct 2024 15:23:24 +0200
Subject: [PATCH] Philippe 17/10/2024: add ALLOCBUFFER_NOPTR_T1 subroutine
---
src/LIB/SURCOUCHE/src/mode_allocbuff.f90 | 27 ++++++++++++++++++++++--
1 file changed, 25 insertions(+), 2 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_allocbuff.f90 b/src/LIB/SURCOUCHE/src/mode_allocbuff.f90
index a86f71643..e91194f47 100644
--- a/src/LIB/SURCOUCHE/src/mode_allocbuff.f90
+++ b/src/LIB/SURCOUCHE/src/mode_allocbuff.f90
@@ -21,8 +21,9 @@ INTERFACE ALLOCBUFFER_ll
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
+ ALLOCBUFFER_N4, ALLOCBUFFER_NOPTR_N4, &
+ ALLOCBUFFER_L1, ALLOCBUFFER_NOPTR_L1, &
+ ALLOCBUFFER_NOPTR_T1
END INTERFACE
PUBLIC :: ALLOCBUFFER_ll
@@ -309,6 +310,28 @@ SUBROUTINE ALLOCBUFFER_NOPTR_L1( LTAB_OUT, LTAB_IN, HDIR )
END SELECT
END SUBROUTINE ALLOCBUFFER_NOPTR_L1
+SUBROUTINE ALLOCBUFFER_NOPTR_T1( TPTAB_OUT, TPTAB_IN, HDIR )
+ !
+ USE MODD_TYPE_DATE, ONLY: DATE_TIME
+ !
+ TYPE(DATE_TIME), DIMENSION(:), ALLOCATABLE, INTENT(OUT) :: TPTAB_OUT
+ TYPE(DATE_TIME), DIMENSION(:), INTENT(IN) :: TPTAB_IN
+ CHARACTER(LEN=*), INTENT(IN) :: HDIR
+
+ INTEGER :: IIMAX, IJMAX
+
+ SELECT CASE(HDIR)
+ CASE('XX')
+ CALL GET_GLOBALDIMS_ll(IIMAX,IJMAX)
+ ALLOCATE(TPTAB_OUT(IIMAX+2*JPHEXT))
+ CASE('YY')
+ CALL GET_GLOBALDIMS_ll(IIMAX,IJMAX)
+ ALLOCATE(TPTAB_OUT(IJMAX+2*JPHEXT))
+ CASE default
+ ALLOCATE( TPTAB_OUT(SIZE(TPTAB_IN)) )
+ END SELECT
+END SUBROUTINE ALLOCBUFFER_NOPTR_T1
+
SUBROUTINE ALLOCBUFFER_X1(PTAB_P,PTAB,HDIR,OALLOC, KIMAX_ll, KJMAX_ll)
!
REAL,DIMENSION(:),POINTER :: PTAB_P
--
GitLab