Changeset 4181 for palm/trunk

Timestamp:

Aug 22, 2019 6:37:36 AM (5 years ago)

Author:

raasch

Message:

bugfix: define directive added, which has been deleted by mistake in r4180

Location:

palm/trunk/SOURCE

Files:

• transpose.f90 (modified) (2 diffs)
• tridia_solver_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/transpose.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: define directive added, which has been deleted by mistake in r4180
+! 
+! 4180 2019-08-21 14:37:54Z scharf
 ! loop reordering for performance optimization
 !
@@ -39 +42 @@
 !> is carried out in transpose_xy
 !------------------------------------------------------------------------------!
+
+#define __acc_fft_device ( defined( _OPENACC ) && ( defined ( __cuda_fft ) ) )
+
  SUBROUTINE resort_for_xy( f_in, f_inv )
 

palm/trunk/SOURCE/tridia_solver_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: define directive added, which has been deleted by mistake in r4180
+! 
+! 4180 2019-08-21 14:37:54Z scharf
 ! OpenACC modification to prevent compiler warning about unused variable
 ! 
@@ -41 +44 @@
 !> by using the Thomas algorithm
 !------------------------------------------------------------------------------!
+
+#define __acc_fft_device ( defined( _OPENACC ) && ( defined ( __cuda_fft ) ) )
+
  MODULE tridia_solver