Juan 09/07/2020: turb.f90, PGI20.5 BUG or reproductibility problem , with...

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

@@ -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