From c7c4711f9b902439dcb8c860caaa37072539a18f Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Thu, 9 Jul 2020 14:45:41 +0200
Subject: [PATCH] Juan 09/07/2020: turb.f90, PGI20.5 BUG or reproductibility
 problem , with pointer this loop on JRR parallelize whitout reduction

---
 src/MNH/turb.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90
index f8bdd312d..81531d768 100644
--- a/src/MNH/turb.f90
+++ b/src/MNH/turb.f90
@@ -712,10 +712,13 @@ ZTRH(:, :, : ) = XUNDEF
 ZCP(:,:,:)=XCPD
 !
 IF (KRR > 0) ZCP(:,:,:) = ZCP(:,:,:) + XCPV * PRT(:,:,:,1)
+! PGI20.5 BUG or reproductibility problem , with pointer this loop on JRR parallelize whitout reduction 
+!$acc loop seq
 DO JRR = 2,1+KRRL                          ! loop on the liquid components  
   ZCP(:,:,:)  = ZCP(:,:,:) + XCL * PRT(:,:,:,JRR)
 END DO
 !
+!$acc loop seq
 DO JRR = 2+KRRL,1+KRRL+KRRI                ! loop on the solid components   
   ZCP(:,:,:)  = ZCP(:,:,:)  + XCI * PRT(:,:,:,JRR)
 END DO
-- 
GitLab