Changeset 1216 for palm/trunk/SOURCE/calc_spectra.f90

Timestamp:

Aug 26, 2013 9:31:42 AM (11 years ago)

Author:

raasch

Message:

overlapping execution of fft and transpositions (MPI_ALLTOALL), but real overlapping is not activated so far,
fftw implemented for 1D-decomposition
resorting of arrays moved to separate routines resort_for_...
bugfix in mbuild concerning Makefile_check

File:

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

palm/trunk/SOURCE/calc_spectra.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! resorting of array moved to separate routine resort_for_zx,
+! one argument removed from the transpose_..d routines
 !
 ! Former revisions:
@@ -121 +122 @@
 #if defined( __parallel )
           IF ( pdims(2) /= 1 )  THEN
-             CALL transpose_zx( d, tend, d )
+             CALL resort_for_zx( d, tend )
+             CALL transpose_zx( tend, d )
           ELSE
-             CALL transpose_yxd( d, tend, d )
+             CALL transpose_yxd( d, d )
           ENDIF
           CALL calc_spectra_x( d, pr, m )
@@ -153 +155 @@
 
 #if defined( __parallel )
-          CALL transpose_zyd( d, tend, d )
+          CALL transpose_zyd( d, d )
           CALL calc_spectra_y( d, pr, m )
 #else