From 71628d225eabe76a1812c6599f8c369d175b6ec7 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Wed, 26 Aug 2020 10:44:08 +0200
Subject: [PATCH] Juan 26/08/2020:Memeory Leap -> forgotten deallocate on
turb_ver_thermo_flux/corr
---
src/MNH/turb_ver_thermo_corr.f90 | 4 +++-
src/MNH/turb_ver_thermo_flux.f90 | 4 +++-
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/src/MNH/turb_ver_thermo_corr.f90 b/src/MNH/turb_ver_thermo_corr.f90
index 56ee3d729..c045f7a7d 100644
--- a/src/MNH/turb_ver_thermo_corr.f90
+++ b/src/MNH/turb_ver_thermo_corr.f90
@@ -1477,7 +1477,9 @@ end if
!$acc end data
-#ifdef MNH_OPENACC
+#ifndef MNH_OPENACC
+deallocate( zflxz, zkeff, zf , zdfddtdz , zdfddrdz , zcoeff )
+#else
CALL MNH_REL_ZT3D(IZFLXZ,IZKEFF,IZF,IZDFDDTDZ,IZDFDDRDZ,IZCOEFF,&
IZTMP1_DEVICE,IZTMP2_DEVICE,IZTMP3_DEVICE,IZTMP4_DEVICE,&
IZTMP5_DEVICE,IZTMP6_DEVICE,IZTMP7_DEVICE,IZTMP8_DEVICE )
diff --git a/src/MNH/turb_ver_thermo_flux.f90 b/src/MNH/turb_ver_thermo_flux.f90
index 866cfd407..a7f75d118 100644
--- a/src/MNH/turb_ver_thermo_flux.f90
+++ b/src/MNH/turb_ver_thermo_flux.f90
@@ -1513,7 +1513,9 @@ end if
!$acc end data
-#ifdef MNH_OPENACC
+#ifndef MNH_OPENACC
+deallocate(za,zflxz,zsource,zkeff,zf,zdfddtdz,zdfddrdz,z3rdmoment)
+#else
CALL MNH_REL_ZT3D(IZA, IZFLXZ, IZSOURCE, IZKEFF, IZF, IZDFDDTDZ, IZDFDDRDZ, IZ3RDMOMENT, &
IZTMP1_DEVICE, IZTMP2_DEVICE, IZTMP3_DEVICE, IZTMP4_DEVICE)
#endif
--
GitLab