Changeset 4181 for palm/trunk/SOURCE/transpose.f90

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

File:

• palm/trunk/SOURCE/transpose.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 )