Ignore:
Timestamp:
Jan 17, 2017 4:38:49 PM (4 years ago)
Author:
raasch
Message:

all OpenACC directives and related parts removed from the code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/transpose.f90

    r2101 r2118  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! OpenACC directives removed
    2323!
    2424! Former revisions:
     
    107107    !$OMP  PARALLEL PRIVATE ( i, j, k )
    108108    !$OMP  DO
    109     !$acc kernels present( f_in, f_inv )
    110109     DO  i = 0, nx
    111110         DO  k = nzb_x, nzt_x
     
    115114         ENDDO
    116115     ENDDO
    117      !$acc end kernels
    118116     !$OMP  END PARALLEL
    119117
     
    165163       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
    166164       IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
    167        !$acc update host( f_inv )
    168165       CALL MPI_ALLTOALL( f_inv(nys_x,nzb_x,0),  sendrecvcount_xy, MPI_REAL, &
    169166                          work(1,nzb_y,nxl_y,0), sendrecvcount_xy, MPI_REAL, &
     
    175172!$OMP  PARALLEL PRIVATE ( i, j, k, l, ys )
    176173!$OMP  DO
    177        !$acc data copyin( work )
    178174       DO  l = 0, pdims(2) - 1
    179175          ys = 0 + l * ( nyn_x - nys_x + 1 )
    180           !$acc kernels present( f_out, work )
    181176          DO  i = nxl_y, nxr_y
    182177             DO  k = nzb_y, nzt_y
     
    186181             ENDDO
    187182          ENDDO
    188           !$acc end kernels
    189        ENDDO
    190        !$acc end data
     183       ENDDO
    191184!$OMP  END PARALLEL
    192185#endif
     
    198191!$OMP  PARALLEL PRIVATE ( i, j, k )
    199192!$OMP  DO
    200        !$acc kernels present( f_inv, f_out )
    201193       DO  k = nzb_y, nzt_y
    202194          DO  i = nxl_y, nxr_y
     
    206198          ENDDO
    207199       ENDDO
    208        !$acc end kernels
    209200!$OMP  END PARALLEL
    210201
     
    243234    !$OMP  PARALLEL PRIVATE ( i, j, k )
    244235    !$OMP  DO
    245     !$acc kernels present( f_inv, f_out )
    246236     DO  k = 1, nz
    247237         DO  i = nxl, nxr
     
    251241         ENDDO
    252242     ENDDO
    253      !$acc end kernels
    254243     !$OMP  END PARALLEL
    255244
     
    304293!$OMP  PARALLEL PRIVATE ( i, j, k, l, xs )
    305294!$OMP  DO
    306        !$acc data copyout( work )
    307295       DO  l = 0, pdims(1) - 1
    308296          xs = 0 + l * nnx
    309           !$acc kernels present( f_in, work )
    310297          DO  k = nzb_x, nzt_x
    311298             DO  i = xs, xs + nnx - 1
     
    315302             ENDDO
    316303          ENDDO
    317           !$acc end kernels
    318        ENDDO
    319        !$acc end data
     304       ENDDO
    320305!$OMP  END PARALLEL
    321306
     
    327312                          f_inv(nys,nxl,1),      sendrecvcount_zx, MPI_REAL, &
    328313                          comm1dx, ierr )
    329        !$acc update device( f_inv )
    330314       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'stop' )
    331315#endif
     
    337321!$OMP  PARALLEL PRIVATE ( i, j, k )
    338322!$OMP  DO
    339        !$acc kernels present( f_in, f_inv )
    340323       DO  i = nxl, nxr
    341324          DO  j = nys, nyn
     
    345328          ENDDO
    346329       ENDDO
    347        !$acc end kernels
    348330!$OMP  END PARALLEL
    349331
     
    384366    !$OMP  PARALLEL PRIVATE ( i, j, k )
    385367    !$OMP  DO
    386     !$acc kernels present( f_inv, f_out )
    387368     DO  i = 0, nx
    388369         DO  k = nzb_x, nzt_x
     
    392373         ENDDO
    393374     ENDDO
    394      !$acc end kernels
    395375     !$OMP  END PARALLEL
    396376
     
    442422!$OMP  PARALLEL PRIVATE ( i, j, k, l, ys )
    443423!$OMP  DO
    444        !$acc data copyout( work )
    445424       DO  l = 0, pdims(2) - 1
    446425          ys = 0 + l * ( nyn_x - nys_x + 1 )
    447           !$acc kernels present( f_in, work )
    448426          DO  i = nxl_y, nxr_y
    449427             DO  k = nzb_y, nzt_y
     
    453431             ENDDO
    454432          ENDDO
    455           !$acc end kernels
    456        ENDDO
    457        !$acc end data
     433       ENDDO
    458434!$OMP  END PARALLEL
    459435
     
    465441                          f_inv(nys_x,nzb_x,0),  sendrecvcount_xy, MPI_REAL, &
    466442                          comm1dy, ierr )
    467        !$acc update device( f_inv )
    468443       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'stop' )
    469444#endif
     
    475450!$OMP  PARALLEL PRIVATE ( i, j, k )
    476451!$OMP  DO
    477        !$acc kernels present( f_in, f_inv )
    478452       DO  i = nxl_y, nxr_y
    479453          DO  k = nzb_y, nzt_y
     
    483457          ENDDO
    484458       ENDDO
    485        !$acc end kernels
    486459!$OMP  END PARALLEL
    487460
     
    602575    !$OMP  PARALLEL PRIVATE ( i, j, k )
    603576    !$OMP  DO
    604     !$acc kernels present( f_in, f_inv )
    605577     DO  j = 0, ny
    606578         DO  k = nzb_y, nzt_y
     
    610582         ENDDO
    611583     ENDDO
    612      !$acc end kernels
    613584     !$OMP  END PARALLEL
    614585
     
    660631!$OMP  PARALLEL PRIVATE ( i, j, k )
    661632!$OMP  DO
    662        !$acc kernels present( f_inv, f_out )
    663633       DO  j = 0, ny
    664634          DO  k = nzb_y, nzt_y
     
    668638          ENDDO
    669639       ENDDO
    670        !$acc end kernels
    671640!$OMP  END PARALLEL
    672641
     
    678647       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
    679648       IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
    680        !$acc update host( f_inv )
    681649       CALL MPI_ALLTOALL( f_inv(nxl_y,nzb_y,0),  sendrecvcount_yz, MPI_REAL, &
    682650                          work(nxl_z,1,nys_z,0), sendrecvcount_yz, MPI_REAL, &
     
    688656!$OMP  PARALLEL PRIVATE ( i, j, k, l, zs )
    689657!$OMP  DO
    690        !$acc data copyin( work )
    691658       DO  l = 0, pdims(1) - 1
    692659          zs = 1 + l * ( nzt_y - nzb_y + 1 )
    693           !$acc kernels present( f_out )
    694660          DO  j = nys_z, nyn_z
    695661             DO  k = zs, zs + nzt_y - nzb_y
     
    699665             ENDDO
    700666          ENDDO
    701           !$acc end kernels
    702        ENDDO
    703        !$acc end data
     667       ENDDO
    704668!$OMP  END PARALLEL
    705669#endif
     
    738702    !$OMP  PARALLEL PRIVATE ( i, j, k )
    739703    !$OMP  DO
    740     !$acc kernels present( f_in, f_inv )
    741704     DO  k = 1,nz
    742705         DO  i = nxl, nxr
     
    746709         ENDDO
    747710     ENDDO
    748      !$acc end kernels
    749711     !$OMP  END PARALLEL
    750712
     
    796758!$OMP  PARALLEL PRIVATE ( i, j, k )
    797759!$OMP  DO
    798        !$acc kernels present( f_inv, f_out )
    799760       DO  k = 1, nz
    800761          DO  i = nxl, nxr
     
    804765          ENDDO
    805766       ENDDO
    806        !$acc end kernels
    807767!$OMP  END PARALLEL
    808768
     
    814774       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
    815775       IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
    816        !$acc update host( f_inv )
    817776       CALL MPI_ALLTOALL( f_inv(nys,nxl,1),      sendrecvcount_zx, MPI_REAL, &
    818777                          work(nys_x,1,nzb_x,0), sendrecvcount_zx, MPI_REAL, &
     
    824783!$OMP  PARALLEL PRIVATE ( i, j, k, l, xs )
    825784!$OMP  DO
    826        !$acc data copyin( work )
    827785       DO  l = 0, pdims(1) - 1
    828786          xs = 0 + l * nnx
    829           !$acc kernels present( f_out )
    830787          DO  k = nzb_x, nzt_x
    831788             DO  i = xs, xs + nnx - 1
     
    835792             ENDDO
    836793          ENDDO
    837           !$acc end kernels
    838        ENDDO
    839        !$acc end data
     794       ENDDO
    840795!$OMP  END PARALLEL
    841796#endif
     
    878833    !$OMP  PARALLEL PRIVATE ( i, j, k )
    879834    !$OMP  DO
    880     !$acc kernels present( f_inv, f_out )
    881835     DO  k = nzb_y, nzt_y
    882836         DO  j = 0, ny
     
    886840         ENDDO
    887841     ENDDO
    888      !$acc end kernels
    889842     !$OMP  END PARALLEL
    890843
     
    938891!$OMP  PARALLEL PRIVATE ( i, j, k, l, zs )
    939892!$OMP  DO
    940        !$acc data copyout( work )
    941893       DO  l = 0, pdims(1) - 1
    942894          zs = 1 + l * ( nzt_y - nzb_y + 1 )
    943           !$acc kernels present( f_in, work )
    944895          DO  j = nys_z, nyn_z
    945896             DO  k = zs, zs + nzt_y - nzb_y
     
    949900             ENDDO
    950901          ENDDO
    951           !$acc end kernels
    952        ENDDO
    953        !$acc end data
     902       ENDDO
    954903!$OMP  END PARALLEL
    955904
     
    961910                          f_inv(nxl_y,nzb_y,0),  sendrecvcount_yz, MPI_REAL, &
    962911                          comm1dx, ierr )
    963        !$acc update device( f_inv )
    964912       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'stop' )
    965913#endif
     
    970918!$OMP  PARALLEL PRIVATE ( i, j, k )
    971919!$OMP  DO
    972        !$acc kernels present( f_in, f_inv )
    973920       DO  k = nzb_y, nzt_y
    974921          DO  j = 0, ny
     
    978925          ENDDO
    979926       ENDDO
    980        !$acc end kernels
    981927!$OMP  END PARALLEL
    982928
Note: See TracChangeset for help on using the changeset viewer.