diff --git a/src/basic_mod.F90 b/src/basic_mod.F90
index ddc7093ca13b77da2988da0111373097cb49b1b7..b548e3b9bc33570bb8cafff08c498110e0e1810b 100644
--- a/src/basic_mod.F90
+++ b/src/basic_mod.F90
@@ -288,7 +288,7 @@ CONTAINS
 
   SUBROUTINE allocate_array_l5(a,is1,ie1,is2,ie2,is3,ie3,is4,ie4,is5,ie5)
     IMPLICIT NONE
-    real(dp), DIMENSION(:,:,:,:,:), ALLOCATABLE, INTENT(INOUT) :: a
+    LOGICAL, 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.