Philippe 17/10/2024: add ALLOCBUFFER_NOPTR_T1 subroutine

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