From e7e8c8b7ff33b6187e3179d44ec8f6a64f386d91 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 18 Sep 2023 14:28:19 +0200
Subject: [PATCH] Philippe 18/09/2023: FLAT_INV: fix for NOOPENACC (deallocate
 ZBAND_YT and ZBAND_YRT only if allocated)

---
 src/MNH/flat_inv.f90 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/MNH/flat_inv.f90 b/src/MNH/flat_inv.f90
index 80e4c312b..113dd9902 100644
--- a/src/MNH/flat_inv.f90
+++ b/src/MNH/flat_inv.f90
@@ -667,8 +667,10 @@ DEALLOCATE(ZY)
 DEALLOCATE(ZAF)
 DEALLOCATE(ZBAND_X)
 DEALLOCATE(ZBAND_Y)
-DEALLOCATE(ZBAND_YT)
-DEALLOCATE(ZBAND_YRT)
+IF (.NOT. L2D) THEN
+  DEALLOCATE(ZBAND_YT)
+  DEALLOCATE(ZBAND_YRT)
+END IF
 DEALLOCATE(ZBAND_YR)
 DEALLOCATE(ZWORKX)
 DEALLOCATE(ZWORKY)
-- 
GitLab