Ignore:
Timestamp:
May 15, 2008 8:46:15 AM (13 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/calc_spectra.f90

    r146 r164  
    44! Actual revisions:
    55! -----------------
    6 ! user-defined spectra
     6! user-defined spectra, arguments removed from transpose routines
    77!
    88! Former revisions:
     
    7777#if defined( __parallel )
    7878          IF ( pdims(2) /= 1 )  THEN
    79              CALL transpose_zx( d, tend, d, tend, d )
     79             CALL transpose_zx( d, tend, d )
    8080          ELSE
    81              CALL transpose_yxd( d, tend, d, tend, d )
     81             CALL transpose_yxd( d, tend, d )
    8282          ENDIF
    8383          CALL calc_spectra_x( d, pr, m )
     
    110110
    111111#if defined( __parallel )
    112           CALL transpose_zyd( d, tend, d, tend, d )
     112          CALL transpose_zyd( d, tend, d )
    113113          CALL calc_spectra_y( d, pr, m )
    114114#else
Note: See TracChangeset for help on using the changeset viewer.