From 18a466fde51abe0fa0e7b9893a18257f512b1147 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 26 Jun 2023 15:46:28 +0200
Subject: [PATCH] Philippe 26/06/2023: OpenACC: ice4_fast_rg: restore a
necessary update for IGDRY (crash on Nvidia)
---
src/MNH/ice4_fast_rg.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/MNH/ice4_fast_rg.f90 b/src/MNH/ice4_fast_rg.f90
index 7cee41497..1c381e907 100644
--- a/src/MNH/ice4_fast_rg.f90
+++ b/src/MNH/ice4_fast_rg.f90
@@ -545,7 +545,8 @@ ELSE
!$acc kernels
PRG_TEND(:, IRRDRYG)=0.
!$acc end kernels
-! acc update host( IGDRY )
+
+!$acc update host( IGDRY )
!
IF(IGDRY>0) THEN
!$acc kernels
--
GitLab