<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_TRANSPOSE_Y2X'><A href='../../html_code/par_util/da_transpose_y2x.inc.html#DA_TRANSPOSE_Y2X' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_transpose_y2x (grid) 9,2
implicit none
type(domain), intent(inout) :: grid
integer :: ij, i, j, k
if (trace_use_dull) call da_trace_entry
("da_transpose_y2x")
#ifdef DM_PARALLEL
#include "XPOSE_V1_y2x.inc"
#else
!$OMP PARALLEL DO &
!$OMP PRIVATE ( ij, i, j, k )
do ij = 1 , grid%num_tiles
do k = grid%xp%kds, grid%xp%kde
do j = grid%j_start(ij), grid%j_end(ij)
do i = grid%xp%ids, grid%xp%ide
grid%xp % v1x(i,j,k) = grid%xp % v1y(i,j,k)
end do
end do
end do
end do
!$OMP END PARALLEL DO
#endif
if (trace_use_dull) call da_trace_exit("da_transpose_y2x")
end subroutine da_transpose_y2x