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/poisfft.f90

    r1407 r1482  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! use 2d-decomposition, if accelerator boards are used
    2323!
    2424! Former revisions:
     
    239239!
    240240!--    Two-dimensional Fourier Transformation in x- and y-direction.
    241        IF ( pdims(2) == 1  .AND.  pdims(1) > 1 )  THEN
     241       IF ( pdims(2) == 1  .AND.  pdims(1) > 1  .AND.  num_acc_per_node == 0 ) &
     242       THEN
    242243
    243244!
     
    254255          CALL tr_xy_ffty( ar, ar )
    255256
    256        ELSEIF ( pdims(1) == 1  .AND.  pdims(2) > 1 )  THEN
     257       ELSEIF ( pdims(1) == 1 .AND. pdims(2) > 1 .AND. num_acc_per_node == 0 ) &
     258       THEN
    257259
    258260!
Note: See TracChangeset for help on using the changeset viewer.