da_transpose_z2x.inc

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