Philippe 14/06/2016: OpenACC: added a data zone to work around a bug visible...

Philippe 14/06/2016: OpenACC: added a data zone to work around a bug visible with PGI compiler (at least to version 16.4)

src/MNH/advecuvw_rk.f90

@@ -242,6 +242,9 @@ REAL          :: XPRECISION
 !	        --------------
 !
 #ifdef _OPENACC
+!Data zone necessary to work around a bug seen with PGI at least up to 16.4
+!If not, update on a section of ZRUS will update a section of the total size of ZRUS
+!$acc data present(ZRUS,ZRVS,ZRWS)
 CALL INIT_ON_HOST_AND_DEVICE(ZU,4e99,'ADVECUVW_RK::ZU')
 CALL INIT_ON_HOST_AND_DEVICE(ZV,5e99,'ADVECUVW_RK::ZV')
 CALL INIT_ON_HOST_AND_DEVICE(ZW,6e99,'ADVECUVW_RK::ZW')
@@ -402,9 +405,7 @@ ZRWS = 0.
           CALL UPDATE_HALO_ll(TZFIELDS4_ll,IINFO_ll)
           CALL CLEANLIST_ll(TZFIELDS4_ll)
 !!$     END IF
-! acc update device(ZRUS(:,:,:,JS),ZRVS(:,:,:,JS),ZRWS(:,:,:,JS))
-!$acc update device(ZRUS,ZRVS,ZRWS)
-
+!$acc update device(ZRUS(:,:,:,JS),ZRVS(:,:,:,JS),ZRWS(:,:,:,JS))
     IF ( JS /= ISPL ) THEN
 !
 
@@ -457,5 +458,6 @@ CALL CLEANLIST_ll(TZFIELDMT_ll)
 CALL  DEL_HALO2_ll(TZHALO2MT_ll)
 !$acc update self(PRUS_ADV,PRVS_ADV,PRWS_ADV)
 !-------------------------------------------------------------------------------
+!$acc end data
 !
 END SUBROUTINE ADVECUVW_RK