Changeset 164 for palm/trunk/SOURCE/calc_spectra.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/calc_spectra.f90 (modified) (3 diffs)

palm/trunk/SOURCE/calc_spectra.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! user-defined spectra
+! user-defined spectra, arguments removed from transpose routines
 !
 ! Former revisions:
@@ -77 +77 @@
 #if defined( __parallel )
           IF ( pdims(2) /= 1 )  THEN
-             CALL transpose_zx( d, tend, d, tend, d )
+             CALL transpose_zx( d, tend, d )
           ELSE
-             CALL transpose_yxd( d, tend, d, tend, d )
+             CALL transpose_yxd( d, tend, d )
           ENDIF
           CALL calc_spectra_x( d, pr, m )
@@ -110 +110 @@
 
 #if defined( __parallel )
-          CALL transpose_zyd( d, tend, d, tend, d )
+          CALL transpose_zyd( d, tend, d )
           CALL calc_spectra_y( d, pr, m )
 #else