da_transpose_x2y.inc

1 subroutine da_transpose_x2y (grid)
2 
3    implicit none
4 
5    type(domain), intent(inout)               :: grid
6 
7    if (trace_use_dull) call da_trace_entry("da_transpose_x2y")
8 
9 #ifdef DM_PARALLEL
10 #include "XPOSE_V1_x2y.inc"
11 #else
12    grid%xp % v1y(grid%xp%ids:grid%xp%ide,grid%xp%jds:grid%xp%jde,grid%xp%kds:grid%xp%kde) = &
13    grid%xp % v1x(grid%xp%ids:grid%xp%ide,grid%xp%jds:grid%xp%jde,grid%xp%kds:grid%xp%kde)
14 #endif
15 
16    if (trace_use_dull) call da_trace_exit("da_transpose_x2y")
17 
18 end subroutine da_transpose_x2y
19 
20