Changeset 1482 for palm/trunk/SOURCE/poisfft.f90

Timestamp:

Oct 18, 2014 12:34:45 PM (8 years ago)

Author:

raasch

Message:

adjustments for using CUDA-aware MPI

File:

• palm/trunk/SOURCE/poisfft.f90 (modified) (3 diffs)

palm/trunk/SOURCE/poisfft.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! use 2d-decomposition, if accelerator boards are used
 ! 
 ! Former revisions:
@@ -239 +239 @@
 !
 !--    Two-dimensional Fourier Transformation in x- and y-direction.
-       IF ( pdims(2) == 1  .AND.  pdims(1) > 1 )  THEN
+       IF ( pdims(2) == 1  .AND.  pdims(1) > 1  .AND.  num_acc_per_node == 0 ) &
+       THEN
 
 !
@@ -254 +255 @@
           CALL tr_xy_ffty( ar, ar )
 
-       ELSEIF ( pdims(1) == 1  .AND.  pdims(2) > 1 )  THEN
+       ELSEIF ( pdims(1) == 1 .AND. pdims(2) > 1 .AND. num_acc_per_node == 0 ) &
+       THEN
 
 !