Ignore:
Timestamp:
Oct 18, 2014 12:34:45 PM (7 years ago)
Author:
raasch
Message:

adjustments for using CUDA-aware MPI

File:
1 edited

Legend:

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

    r1403 r1482  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! cudafft workaround for data declaration of ar_tmp because of PGI 14.1 bug
    2323!
    2424! Former revisions:
     
    404404       COMPLEX(dp), DIMENSION(0:(nx+1)/2,nys_x:nyn_x,nzb_x:nzt_x) ::           &
    405405          ar_tmp  !:
    406        !$acc declare create( ar_tmp )
     406       ! following does not work for PGI 14.1 -> to be removed later
     407       ! !$acc declare create( ar_tmp )
    407408#endif
    408409
     
    711712#elif defined( __cuda_fft )
    712713
     714          !$acc data create( ar_tmp )
    713715          IF ( forward_fft )  THEN
    714716
     
    757759
    758760          ENDIF
     761          !$acc end data
    759762
    760763#else
     
    10541057       COMPLEX(dp), DIMENSION(0:(ny+1)/2,nxl_y:nxr_y,nzb_y:nzt_y) ::           &
    10551058          ar_tmp  !:
     1059       ! following does not work for PGI 14.1 -> to be removed later
    10561060       !$acc declare create( ar_tmp )
    10571061#endif
     
    13341338#elif defined( __cuda_fft )
    13351339
     1340          !$acc data create( ar_tmp )
    13361341          IF ( forward_fft )  THEN
    13371342
     
    13801385
    13811386          ENDIF
     1387          !$acc end data
    13821388
    13831389#else
Note: See TracChangeset for help on using the changeset viewer.