Skip to content
Snippets Groups Projects
Commit 094d2875 authored by Juan Escobar's avatar Juan Escobar
Browse files

Juan 16/11/2021:ZSOLVER/qlap.f90, some mismatch for key MNH_OPENACC in DEBUG mode

parent fd3e0926
No related branches found
No related tags found
No related merge requests found
......@@ -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
!-------------------------------------------------------------------------------
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment