Skip to content
Snippets Groups Projects
Commit 344e4dce authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

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)
parent 282223e1
No related branches found
No related tags found
No related merge requests found
......@@ -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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment