From 40e0c487ce8840485f0cb8d4a3a664e1917d4dd7 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 17 Jan 2022 13:18:30 +0100
Subject: [PATCH] Philippe 17/01/2022: OpenACC: Cray compiler does not like
collapse directive before do concurren
---
src/MNH/sources_neg_correct.f90 | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/MNH/sources_neg_correct.f90 b/src/MNH/sources_neg_correct.f90
index 3c7f67395..eba53946c 100644
--- a/src/MNH/sources_neg_correct.f90
+++ b/src/MNH/sources_neg_correct.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2020-2021 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2020-2022 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -288,7 +288,9 @@ CLOUD: select case ( hcloud )
end do
! ice
if ( krr > 3 ) then
+#ifdef MNH_COMPILER_NVHPC
!$acc loop independent collapse(3)
+#endif
do concurrent( ji = 1 : jiu, jj = 1 : jju, jk = 1 : jku )
if ( prrs(ji, jj, jk, 1) < 0. .and. prrs(ji, jj, jk, 4) > 0. ) then
zcor(ji, jj, jk) = Min( -prrs(ji, jj, jk, 1), prrs(ji, jj, jk, 4) )
--
GitLab