Changeset 4181 for palm


Ignore:
Timestamp:
Aug 22, 2019 6:37:36 AM (20 months ago)
Author:
raasch
Message:

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

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r4180 r4181  
    2525! -----------------
    2626! $Id$
     27! bugfix: define directive added, which has been deleted by mistake in r4180
     28!
     29! 4180 2019-08-21 14:37:54Z scharf
    2730! loop reordering for performance optimization
    2831!
     
    3942!> is carried out in transpose_xy
    4043!------------------------------------------------------------------------------!
     44
     45#define __acc_fft_device ( defined( _OPENACC ) && ( defined ( __cuda_fft ) ) )
     46
    4147 SUBROUTINE resort_for_xy( f_in, f_inv )
    4248
  • palm/trunk/SOURCE/tridia_solver_mod.f90

    r4180 r4181  
    2525! -----------------
    2626! $Id$
     27! bugfix: define directive added, which has been deleted by mistake in r4180
     28!
     29! 4180 2019-08-21 14:37:54Z scharf
    2730! OpenACC modification to prevent compiler warning about unused variable
    2831!
     
    4144!> by using the Thomas algorithm
    4245!------------------------------------------------------------------------------!
     46
     47#define __acc_fft_device ( defined( _OPENACC ) && ( defined ( __cuda_fft ) ) )
     48
    4349 MODULE tridia_solver
    4450 
Note: See TracChangeset for help on using the changeset viewer.