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

Timestamp:

May 15, 2008 8:46:15 AM (16 years ago)

Author:

raasch

Message:

optimization of transpositions for 2D decompositions, workaround for using -env option with mpiexec, adjustments for lcxt4

File:

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

palm/trunk/SOURCE/poisfft.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Arguments removed from transpose routines
 !
 ! Former revisions:
@@ -152 +152 @@
 !--       Transposition z --> x
           CALL cpu_log( log_point_s(5), 'transpo forward', 'start' )
-          CALL transpose_zx( ar, work, ar, work, ar )
+          CALL transpose_zx( ar, work, ar )
           CALL cpu_log( log_point_s(5), 'transpo forward', 'pause' )
 
@@ -162 +162 @@
 !--       Transposition x --> y
           CALL cpu_log( log_point_s(5), 'transpo forward', 'continue' )
-          CALL transpose_xy( ar, work, ar, work, ar )
+          CALL transpose_xy( ar, work, ar )
           CALL cpu_log( log_point_s(5), 'transpo forward', 'pause' )
 
@@ -172 +172 @@
 !--       Transposition y --> z
           CALL cpu_log( log_point_s(5), 'transpo forward', 'continue' )
-          CALL transpose_yz( ar, work, ar, work, ar )
+          CALL transpose_yz( ar, work, ar )
           CALL cpu_log( log_point_s(5), 'transpo forward', 'stop' )
 
@@ -185 +185 @@
 !--       Transposition z --> y
           CALL cpu_log( log_point_s(8), 'transpo invers', 'start' )
-          CALL transpose_zy( ar, work, ar, work, ar )
+          CALL transpose_zy( ar, work, ar )
           CALL cpu_log( log_point_s(8), 'transpo invers', 'pause' )
 
@@ -195 +195 @@
 !--       Transposition y --> x
           CALL cpu_log( log_point_s(8), 'transpo invers', 'continue' )
-          CALL transpose_yx( ar, work, ar, work, ar )
+          CALL transpose_yx( ar, work, ar )
           CALL cpu_log( log_point_s(8), 'transpo invers', 'pause' )
 
@@ -205 +205 @@
 !--       Transposition x --> z
           CALL cpu_log( log_point_s(8), 'transpo invers', 'continue' )
-          CALL transpose_xz( ar, work, ar, work, ar )
+          CALL transpose_xz( ar, work, ar )
           CALL cpu_log( log_point_s(8), 'transpo invers', 'stop' )