From c90c69ca9e1aeebb43b02b6b9e43df32a858bf05 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 10 Sep 2021 14:10:54 +0200
Subject: [PATCH] Philippe 10/09/2021: OpenACC fix: add missing MNH_REL_ZT4D

---
 src/MNH/advection_uvw.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/MNH/advection_uvw.f90 b/src/MNH/advection_uvw.f90
index 591497a74..d005a3625 100644
--- a/src/MNH/advection_uvw.f90
+++ b/src/MNH/advection_uvw.f90
@@ -490,6 +490,7 @@ if ( lbudget_w ) call Budget_store_end( tbudgets(NBUDGET_W), 'ADV', prws(:, :, :
 !-------------------------------------------------------------------------------
 !
 #ifdef MNH_OPENACC
+CALL MNH_REL_ZT4D(3,    IIBMS )
 CALL MNH_REL_ZT4D(ISPL, IZRWSB)
 CALL MNH_REL_ZT4D(ISPL, IZRVSB)
 CALL MNH_REL_ZT4D(ISPL, IZRUSB)
-- 
GitLab