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/advec_u_ups.f90

    r4 r164  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Arguments removed from transpose routines
    77!
    88! Former revisions:
     
    6969!
    7070!-- Transpose the component to be advected: z --> x
    71     CALL transpose_zx( v_ad, tend, v_ad, tend, v_ad )
     71    CALL transpose_zx( v_ad, tend, v_ad )
    7272
    7373!
     
    115115!
    116116!-- Transpose the advecting component: z --> y
    117     CALL transpose_zx( d, tend, d, tend, d )
    118     CALL transpose_xy( d, tend, d, tend, d )
     117    CALL transpose_zx( d, tend, d )
     118    CALL transpose_xy( d, tend, d )
    119119
    120120!
    121121!-- Transpose the component to be advected: x --> y
    122     CALL transpose_xy( v_ad, tend, v_ad, tend, v_ad )
     122    CALL transpose_xy( v_ad, tend, v_ad )
    123123
    124124#endif
     
    148148!
    149149!-- Transpose the component to be advected: y --> z (= y --> x + x --> z)
    150     CALL transpose_yx( v_ad, tend, v_ad, tend, v_ad )
    151     CALL transpose_xz( v_ad, tend, v_ad, tend, v_ad )
     150    CALL transpose_yx( v_ad, tend, v_ad )
     151    CALL transpose_xz( v_ad, tend, v_ad )
    152152
    153153!
Note: See TracChangeset for help on using the changeset viewer.