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

Timestamp:

Jan 22, 2019 10:56:42 PM (5 years ago)

Author:

knoop

Message:

Enabled OpenACC usage without using the cudaFFT library.
Added respective palmtest build configuration and testcase.

File:

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

palm/trunk/SOURCE/poisfft_mod.f90

@@ -253 +253 @@
        REAL(wp), DIMENSION(1:nz,nys:nyn,nxl:nxr) ::  ar      !<
        REAL(wp), DIMENSION(nys:nyn,nxl:nxr,1:nz) ::  ar_inv  !<
+
+#define __acc_fft_device ( defined( _OPENACC ) && ( defined ( __cuda_fft ) ) )
+#if __acc_fft_device
        !$ACC DECLARE CREATE(ar_inv)
+#endif
 
        REAL(wp), DIMENSION(:,:,:),   ALLOCATABLE ::  ar1      !<
@@ -265 +269 @@
 
        IF ( .NOT. poisfft_initialized )  CALL poisfft_init
+
+#if !__acc_fft_device
+       !$ACC UPDATE HOST(ar)
+#endif
 
 #ifndef _OPENACC
@@ -705 +713 @@
 
        ENDIF
+#endif
+
+#if !__acc_fft_device
+       !$ACC UPDATE DEVICE(ar)
 #endif