Changeset 164 for palm/trunk/SOURCE/advec_u_ups.f90
- Timestamp:
- May 15, 2008 8:46:15 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_u_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 ! … … 115 115 ! 116 116 !-- 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 ) 119 119 120 120 ! 121 121 !-- 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 ) 123 123 124 124 #endif … … 148 148 ! 149 149 !-- 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 ) 152 152 153 153 !
Note: See TracChangeset
for help on using the changeset viewer.