From 1e2a2416541f8cbbd08dee7301fc5cb544be76b0 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Mon, 21 Sep 2020 08:38:39 +0200
Subject: [PATCH] Juan 21/09/2020:advection_metsv.f90, OpenACC opti -> DO
CONCURRENT in 4 loop
---
src/MNH/advection_metsv.f90 | 11 ++++-------
1 file changed, 4 insertions(+), 7 deletions(-)
diff --git a/src/MNH/advection_metsv.f90 b/src/MNH/advection_metsv.f90
index c7c864704..f905e4e78 100644
--- a/src/MNH/advection_metsv.f90
+++ b/src/MNH/advection_metsv.f90
@@ -842,13 +842,10 @@ DO JSPL=1,KSPLIT
!$acc end kernels
END IF
!$acc kernels
- !$acc loop seq
- DO JR = 1, KRR
- DO CONCURRENT ( JI=1:JIU,JJ=1:JJU,JK=1:JKU)
- ZR(JI,JJ,JK,JR) = ZR(JI,JJ,JK,JR) + ( ZRRS_PPM(JI,JJ,JK,JR) + ZRRS_OTHER(JI,JJ,JK,JR) + PRRS_CLD(JI,JJ,JK,JR) ) &
- * ZTSTEP_PPM / PRHODJ(JI,JJ,JK)
- END DO !CONCURRENT
- END DO
+ DO CONCURRENT ( JI=1:JIU,JJ=1:JJU,JK=1:JKU, JR=1:KRR )
+ ZR(JI,JJ,JK,JR) = ZR(JI,JJ,JK,JR) + ( ZRRS_PPM(JI,JJ,JK,JR) + ZRRS_OTHER(JI,JJ,JK,JR) + PRRS_CLD(JI,JJ,JK,JR) ) &
+ * ZTSTEP_PPM / PRHODJ(JI,JJ,JK)
+ END DO !CONCURRENT
!$acc loop seq
DO JSV = 1, KSV
DO CONCURRENT ( JI=1:JIU,JJ=1:JJU,JK=1:JKU)
--
GitLab