Changeset 164 for palm/trunk/SOURCE/advec_v_ups.f90
- Timestamp:
- May 15, 2008 8:46:15 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_v_ups.f90
r4 r164 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 6 ! Arguments removed from transpose routines 7 7 ! 8 8 ! Former revisions: … … 69 69 ! 70 70 !-- 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 ) 72 72 73 73 #else … … 97 97 ! 98 98 !-- Transpose the advecting component: z --> x 99 CALL transpose_zx( d, tend, d , tend, d)99 CALL transpose_zx( d, tend, d ) 100 100 101 101 #endif … … 116 116 ! 117 117 !-- Transpose the advecting component: z --> y 118 CALL transpose_zx( d, tend, d , tend, d)119 CALL transpose_xy( d, tend, d , tend, d)118 CALL transpose_zx( d, tend, d ) 119 CALL transpose_xy( d, tend, d ) 120 120 121 121 ! 122 122 !-- Transpose the component to be advected: x --> y 123 CALL transpose_xy( v_ad, tend, v_ad , tend, v_ad)123 CALL transpose_xy( v_ad, tend, v_ad ) 124 124 125 125 #endif … … 149 149 ! 150 150 !-- Transpose the component to be advected: y --> z (= y --> x + x --> z) 151 CALL transpose_yx( v_ad, tend, v_ad , tend, v_ad)152 CALL transpose_xz( v_ad, tend, v_ad , tend, v_ad)151 CALL transpose_yx( v_ad, tend, v_ad ) 152 CALL transpose_xz( v_ad, tend, v_ad ) 153 153 154 154 !
Note: See TracChangeset
for help on using the changeset viewer.