From 094d2875e6c12261392b3438f50e396e3f9ce260 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Tue, 16 Nov 2021 18:15:40 +0100
Subject: [PATCH] Juan 16/11/2021:ZSOLVER/qlap.f90, some mismatch for key
MNH_OPENACC in DEBUG mode
---
src/ZSOLVER/qlap.f90 | 10 ++--------
1 file changed, 2 insertions(+), 8 deletions(-)
diff --git a/src/ZSOLVER/qlap.f90 b/src/ZSOLVER/qlap.f90
index 417514389..46e862120 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
!-------------------------------------------------------------------------------
--
GitLab