From fc19b36cd2a881cccffe61fd52ef5c8ddcf9bc1c Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Thu, 27 May 2021 11:45:48 +0200
Subject: [PATCH] trying to solve daint compilation..

---
 src/basic_mod.F90 | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/src/basic_mod.F90 b/src/basic_mod.F90
index 00888545..ddc7093c 100644
--- a/src/basic_mod.F90
+++ b/src/basic_mod.F90
@@ -254,4 +254,44 @@ CONTAINS
 
   !========================================
 
+  SUBROUTINE allocate_array_l1(a,is1,ie1)
+    IMPLICIT NONE
+    LOGICAL, DIMENSION(:), ALLOCATABLE, INTENT(INOUT) :: a
+    INTEGER, INTENT(IN) :: is1,ie1
+    ALLOCATE(a(is1:ie1))
+    a=.false.
+  END SUBROUTINE allocate_array_l1
+
+  SUBROUTINE allocate_array_l2(a,is1,ie1,is2,ie2)
+    IMPLICIT NONE
+    LOGICAL, DIMENSION(:,:), ALLOCATABLE, INTENT(INOUT) :: a
+    INTEGER, INTENT(IN) :: is1,ie1,is2,ie2
+    ALLOCATE(a(is1:ie1,is2:ie2))
+    a=.false.
+  END SUBROUTINE allocate_array_l2
+
+  SUBROUTINE allocate_array_l3(a,is1,ie1,is2,ie2,is3,ie3)
+    IMPLICIT NONE
+    LOGICAL, DIMENSION(:,:,:), ALLOCATABLE, INTENT(INOUT) :: a
+    INTEGER, INTENT(IN) :: is1,ie1,is2,ie2,is3,ie3
+    ALLOCATE(a(is1:ie1,is2:ie2,is3:ie3))
+    a=.false.
+  END SUBROUTINE allocate_array_l3
+
+  SUBROUTINE allocate_array_l4(a,is1,ie1,is2,ie2,is3,ie3,is4,ie4)
+    IMPLICIT NONE
+    LOGICAL, DIMENSION(:,:,:,:), ALLOCATABLE, INTENT(INOUT) :: a
+    INTEGER, INTENT(IN) :: is1,ie1,is2,ie2,is3,ie3,is4,ie4
+    ALLOCATE(a(is1:ie1,is2:ie2,is3:ie3,is4:ie4))
+    a=.false.
+  END SUBROUTINE allocate_array_l4
+
+  SUBROUTINE allocate_array_l5(a,is1,ie1,is2,ie2,is3,ie3,is4,ie4,is5,ie5)
+    IMPLICIT NONE
+    real(dp), DIMENSION(:,:,:,:,:), ALLOCATABLE, INTENT(INOUT) :: a
+    INTEGER, INTENT(IN) :: is1,ie1,is2,ie2,is3,ie3,is4,ie4,is5,ie5
+    ALLOCATE(a(is1:ie1,is2:ie2,is3:ie3,is4:ie4,is5:ie5))
+    a=.false.
+  END SUBROUTINE allocate_array_l5
+
 END MODULE basic
-- 
GitLab