da_transpose_x2y_v2.inc

1 subroutine da_transpose_x2y_v2 (grid)
2 
3    implicit none
4 
5    type(domain), intent(inout)               :: grid
6 
7    if (trace_use) call da_trace_entry("da_transpose_x2y_v2")
8    
9 #ifdef DM_PARALLEL
10 #include "XPOSE_V2_x2y.inc"
11 #else
12    grid%xp % v2y(grid%xp%ids:grid%xp%ide,grid%xp%jds:grid%xp%jde,grid%xp%kds:grid%xp%kde) = &
13    grid%xp % v2x(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) call da_trace_exit("da_transpose_x2y_v2")
17 
18 end subroutine da_transpose_x2y_v2
19 
20