Changeset 1257 for palm/trunk/SOURCE/exchange_horiz.f90
- Timestamp:
- Nov 8, 2013 3:18:40 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/exchange_horiz.f90
r1132 r1257 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! openacc loop and loop vector clauses removed 23 23 ! 24 24 ! Former revisions: … … 245 245 DO i = 0, nbgp_local-1 246 246 DO j = nys-nbgp_local, nyn+nbgp_local 247 !$acc loop vector( 32 )248 247 DO k = nzb, nzt+1 249 248 ar(k,j,nxl-nbgp_local+i) = ar(k,j,nxr-nbgp_local+1+i) … … 262 261 IF ( on_device ) THEN 263 262 !$acc kernels present( ar ) 264 !$acc loop265 263 DO i = nxl-nbgp_local, nxr+nbgp_local 266 264 !$acc loop independent 267 265 DO j = 0, nbgp_local-1 268 !$acc loop vector( 32 )266 !$acc loop independent 269 267 DO k = nzb, nzt+1 270 268 ar(k,nys-nbgp_local+j,i) = ar(k,nyn-nbgp_local+1+j,i)
Note: See TracChangeset
for help on using the changeset viewer.