Juan 07/08/2020:advection_metsv.f90, PGI/NVHPC BUG , SEGFAULt , replace array...

Juan 07/08/2020:advection_metsv.f90, PGI/NVHPC BUG , SEGFAULt , replace array syntaxe -> DO CONCURRENT

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