Skip to content
Snippets Groups Projects
Commit 90759f52 authored by ESCOBAR Juan's avatar ESCOBAR Juan
Browse files

Juan 10/11/2014 : manage pcopy/pcopy for call to ALL ADVECUVW_4TH

parent b2da940c
No related branches found
No related tags found
No related merge requests found
...@@ -227,8 +227,10 @@ IF (HUVW_ADV_SCHEME=='CEN2ND' ) THEN ...@@ -227,8 +227,10 @@ IF (HUVW_ADV_SCHEME=='CEN2ND' ) THEN
! !
ELSEIF (HUVW_ADV_SCHEME=='CEN4TH') THEN ELSEIF (HUVW_ADV_SCHEME=='CEN4TH') THEN
! !
!$acc data pcopyin(ZRUCT, ZRVCT, ZRWCT,PUT, PVT, PWT) pcopy( PRUS, PRVS, PRWS )
CALL ADVECUVW_4TH ( HLBCX, HLBCY, ZRUCT, ZRVCT, ZRWCT, & CALL ADVECUVW_4TH ( HLBCX, HLBCY, ZRUCT, ZRVCT, ZRWCT, &
PUT, PVT, PWT, ZRUS, ZRVS, ZRWS, TPHALO2MLIST ) PUT, PVT, PWT, ZRUS, ZRVS, ZRWS, TPHALO2MLIST )
!$acc end data
! !
END IF END IF
! !
......
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