From 88b563986e15b200111f2758901eae67a7cae65c Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Fri, 7 Aug 2020 16:06:15 +0200
Subject: [PATCH] Juan 07/08/2020:advection_metsv.f90, PGI/NVHPC BUG , SEGFAULt
, replace array syntaxe -> DO CONCURRENT
---
src/MNH/advection_metsv.f90 | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/src/MNH/advection_metsv.f90 b/src/MNH/advection_metsv.f90
index 1169bcf63..c7c864704 100644
--- a/src/MNH/advection_metsv.f90
+++ b/src/MNH/advection_metsv.f90
@@ -844,13 +844,17 @@ DO JSPL=1,KSPLIT
!$acc kernels
!$acc loop seq
DO JR = 1, KRR
- ZR(:,:,:,JR) = ZR(:,:,:,JR) + ( ZRRS_PPM(:,:,:,JR) + ZRRS_OTHER(:,:,:,JR) + PRRS_CLD(:,:,:,JR) ) &
- * ZTSTEP_PPM / PRHODJ(:,:,:)
+ 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
!$acc loop seq
DO JSV = 1, KSV
- ZSV(:,:,:,JSV) = ZSV(:,:,:,JSV) + ( ZRSVS_PPM(:,:,:,JSV) + ZRSVS_OTHER(:,:,:,JSV) + &
- PRSVS_CLD(:,:,:,JSV) ) * ZTSTEP_PPM / PRHODJ(:,:,:)
+ DO CONCURRENT ( JI=1:JIU,JJ=1:JJU,JK=1:JKU)
+ ZSV(JI,JJ,JK,JSV) = ZSV(JI,JJ,JK,JSV) + ( ZRSVS_PPM(JI,JJ,JK,JSV) + ZRSVS_OTHER(JI,JJ,JK,JSV) + &
+ PRSVS_CLD(JI,JJ,JK,JSV) ) * ZTSTEP_PPM / PRHODJ(JI,JJ,JK)
+ END DO !CONCURRENT
END DO
!$acc end kernels
END IF
--
GitLab