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

palm/trunk/SOURCE/advec_s_ups.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Arguments removed from transpose routines
 !
 ! Former revisions:
@@ -75 +75 @@
 !
 !-- Transpose the component to be advected: z --> x
-    CALL transpose_zx( v_ad, tend, v_ad, tend, v_ad )
+    CALL transpose_zx( v_ad, tend, v_ad )
 
 #else
@@ -101 +101 @@
 !
 !-- Transpose the advecting componnet: z --> x
-    CALL transpose_zx( d, tend, d, tend, d )
+    CALL transpose_zx( d, tend, d )
 
 #endif
@@ -124 +124 @@
 !
 !-- Transpose the advecting component: z --> y
-    CALL transpose_zx( d, tend, d, tend, d )
-    CALL transpose_xy( d, tend, d, tend, d )
+    CALL transpose_zx( d, tend, d )
+    CALL transpose_xy( d, tend, d )
 
 !
 !-- Transpose the component to be advected: x --> y
-    CALL transpose_xy( v_ad, tend, v_ad, tend, v_ad )
+    CALL transpose_xy( v_ad, tend, v_ad )
 
 #endif
@@ -155 +155 @@
 !
 !-- Transpose the component to be advected: y --> z (= y --> x + x --> z)
-    CALL transpose_yx( v_ad, tend, v_ad, tend, v_ad )
-    CALL transpose_xz( v_ad, tend, v_ad, tend, v_ad )
+    CALL transpose_yx( v_ad, tend, v_ad )
+    CALL transpose_xz( v_ad, tend, v_ad )
 
 !