diff --git a/src/ZSOLVER/qlap.f90 b/src/ZSOLVER/qlap.f90
index 417514389d28bc9ddc7ad47cc366b42cb720de82..46e8621208a43b4233c22c61167d7a1d416c0f42 100644
--- a/src/ZSOLVER/qlap.f90
+++ b/src/ZSOLVER/qlap.f90
@@ -211,11 +211,7 @@ CALL GET_DIM_EXT_ll('B',IIU,IJU)
 CALL GET_INDICE_ll (IIB,IJB,IIE,IJE)
 IKU=SIZE(PY,3)
 !
-#ifndef MNH_OPENACC
-ALLOCATE (ZU(IIU,IJU,IKU))
-ALLOCATE (ZV(IIU,IJU,IKU))
-ALLOCATE (ZW(IIU,IJU,IKU))
-#else
+#ifdef MNH_OPENACC
 IZU = MNH_ALLOCATE_ZT3D( ZU,IIU,IJU,IKU  )
 IZV = MNH_ALLOCATE_ZT3D( ZV,IIU,IJU,IKU  )   
 IZW = MNH_ALLOCATE_ZT3D( ZW,IIU,IJU,IKU  )
@@ -309,9 +305,7 @@ CALL CLEANLIST_ll(TZFIELDS_ll)
 !
 CALL GDIV(HLBCX,HLBCY,PDXX,PDYY,PDZX,PDZY,PDZZ,ZU,ZV,ZW,PQLAP)    
 !
-#ifndef MNH_OPENACC
-DEALLOCATE(ZU,ZV,ZW)
-#else
+#ifdef MNH_OPENACC
 CALL MNH_REL_ZT3D (  IZU,IZV,IZW )
 #endif
 !-------------------------------------------------------------------------------