Changeset 2118 for palm/trunk/SOURCE/exchange_horiz.f90

Timestamp:

Jan 17, 2017 4:38:49 PM (7 years ago)

Author:

raasch

Message:

all OpenACC directives and related parts removed from the code

File:

• palm/trunk/SOURCE/exchange_horiz.f90 (modified) (3 diffs)

palm/trunk/SOURCE/exchange_horiz.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! OpenACC directives and related code removed
 ! 
 ! Former revisions:
@@ -86 +86 @@
     USE control_parameters,                                                    &
         ONLY:  bc_lr, bc_lr_cyc, bc_ns, bc_ns_cyc, grid_level,                 &
-               mg_switch_to_pe0, on_device, synchronous_exchange
+               mg_switch_to_pe0, synchronous_exchange
                 
     USE cpulog,                                                                &
@@ -254 +254 @@
 !-- with array syntax, explicit loops are used.
     IF ( bc_lr == 'cyclic' )  THEN
-       IF ( on_device )  THEN
-          !$acc kernels present( ar )
-          !$acc loop independent
-          DO  i = 0, nbgp_local-1
-             DO  j = nys-nbgp_local, nyn+nbgp_local
-                DO  k = nzb, nzt+1
-                   ar(k,j,nxl-nbgp_local+i) = ar(k,j,nxr-nbgp_local+1+i)
-                   ar(k,j,nxr+1+i)          = ar(k,j,nxl+i)
-                ENDDO
-             ENDDO
-          ENDDO
-          !$acc end kernels
-       ELSE
-          ar(:,:,nxl-nbgp_local:nxl-1) = ar(:,:,nxr-nbgp_local+1:nxr)
-          ar(:,:,nxr+1:nxr+nbgp_local) = ar(:,:,nxl:nxl+nbgp_local-1)
-       ENDIF
+       ar(:,:,nxl-nbgp_local:nxl-1) = ar(:,:,nxr-nbgp_local+1:nxr)
+       ar(:,:,nxr+1:nxr+nbgp_local) = ar(:,:,nxl:nxl+nbgp_local-1)
     ENDIF
 
     IF ( bc_ns == 'cyclic' )  THEN
-       IF ( on_device )  THEN
-          !$acc kernels present( ar )
-          DO  i = nxl-nbgp_local, nxr+nbgp_local
-             !$acc loop independent
-             DO  j = 0, nbgp_local-1
-                !$acc loop independent
-                DO  k = nzb, nzt+1
-                   ar(k,nys-nbgp_local+j,i) = ar(k,nyn-nbgp_local+1+j,i)
-                   ar(k,nyn+1+j,i)          = ar(k,nys+j,i)
-                ENDDO
-             ENDDO
-          ENDDO
-          !$acc end kernels
-       ELSE
-          ar(:,nys-nbgp_local:nys-1,:) = ar(:,nyn-nbgp_local+1:nyn,:)
-          ar(:,nyn+1:nyn+nbgp_local,:) = ar(:,nys:nys+nbgp_local-1,:)
-       ENDIF
+       ar(:,nys-nbgp_local:nys-1,:) = ar(:,nyn-nbgp_local+1:nyn,:)
+       ar(:,nyn+1:nyn+nbgp_local,:) = ar(:,nys:nys+nbgp_local-1,:)
     ENDIF