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_s_ups.f90

    r4 r164  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Arguments removed from transpose routines
    77!
    88! Former revisions:
     
    7575!
    7676!-- Transpose the component to be advected: z --> x
    77     CALL transpose_zx( v_ad, tend, v_ad, tend, v_ad )
     77    CALL transpose_zx( v_ad, tend, v_ad )
    7878
    7979#else
     
    101101!
    102102!-- Transpose the advecting componnet: z --> x
    103     CALL transpose_zx( d, tend, d, tend, d )
     103    CALL transpose_zx( d, tend, d )
    104104
    105105#endif
     
    124124!
    125125!-- Transpose the advecting component: z --> y
    126     CALL transpose_zx( d, tend, d, tend, d )
    127     CALL transpose_xy( d, tend, d, tend, d )
     126    CALL transpose_zx( d, tend, d )
     127    CALL transpose_xy( d, tend, d )
    128128
    129129!
    130130!-- Transpose the component to be advected: x --> y
    131     CALL transpose_xy( v_ad, tend, v_ad, tend, v_ad )
     131    CALL transpose_xy( v_ad, tend, v_ad )
    132132
    133133#endif
     
    155155!
    156156!-- Transpose the component to be advected: y --> z (= y --> x + x --> z)
    157     CALL transpose_yx( v_ad, tend, v_ad, tend, v_ad )
    158     CALL transpose_xz( v_ad, tend, v_ad, tend, v_ad )
     157    CALL transpose_yx( v_ad, tend, v_ad )
     158    CALL transpose_xz( v_ad, tend, v_ad )
    159159
    160160!
Note: See TracChangeset for help on using the changeset viewer.