1 subroutine da_transpose_y2x (grid)
5 type(domain), intent(inout) :: grid
8 if (trace_use_dull) call da_trace_entry("da_transpose_y2x")
11 #include "XPOSE_V1_y2x.inc"
14 !$OMP PRIVATE ( ij, i, j, k )
15 do ij = 1 , grid%num_tiles
16 do k = grid%xp%kds, grid%xp%kde
17 do j = grid%j_start(ij), grid%j_end(ij)
18 do i = grid%xp%ids, grid%xp%ide
19 grid%xp % v1x(i,j,k) = grid%xp % v1y(i,j,k)
27 if (trace_use_dull) call da_trace_exit("da_transpose_y2x")
29 end subroutine da_transpose_y2x