Changeset 3634 for palm/trunk/SOURCE/poisfft_mod.f90

Timestamp:

Dec 18, 2018 12:31:28 PM (5 years ago)

Author:

knoop

Message:

OpenACC port for SPEC

File:

• palm/trunk/SOURCE/poisfft_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/poisfft_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! OpenACC port for SPEC
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed,
 ! declarations of omp_get_thread_num now as omp-directive
@@ -250 +253 @@
        REAL(wp), DIMENSION(1:nz,nys:nyn,nxl:nxr) ::  ar      !<
        REAL(wp), DIMENSION(nys:nyn,nxl:nxr,1:nz) ::  ar_inv  !<
+       !$ACC DECLARE CREATE(ar_inv)
 
        REAL(wp), DIMENSION(:,:,:),   ALLOCATABLE ::  ar1      !<
@@ -262 +266 @@
        IF ( .NOT. poisfft_initialized )  CALL poisfft_init
 
+#ifndef _OPENACC
 !
 !--    Two-dimensional Fourier Transformation in x- and y-direction.
@@ -295 +300 @@
 
        ELSEIF ( .NOT. transpose_compute_overlap )  THEN
+#endif
 
 !
@@ -366 +372 @@
           CALL cpu_log( log_point_s(8), 'transpo invers', 'stop' )
 
+#ifndef _OPENACC
        ELSE
 
@@ -698 +705 @@
 
        ENDIF
+#endif
 
        CALL cpu_log( log_point_s(3), 'poisfft', 'stop' )