da_transpose_y2z.inc

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