wrf svn trunk commit r4103
[wrffire.git] / wrfv2_fire / var / da / da_par_util / da_transpose_y2z.inc
blobadca28e5ef1e2d2c18f31e35dd70a0838bd768d4
1 subroutine da_transpose_y2z (grid)
3    implicit none
5    type(domain), intent(inout)               :: grid
6    integer                                   :: ij, i, j, k
8    if (trace_use_dull) call da_trace_entry("da_transpose_y2z")
9    
10 #ifdef DM_PARALLEL
11 #include "XPOSE_V1_y2z.inc"
12 #else
13    !$OMP PARALLEL DO &
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 % v1z(i,j,k) = grid%xp % v1y(i,j,k)
20             end do
21          end do
22       end do
23    end do
24    !$OMP END PARALLEL DO
25 #endif
27    if (trace_use_dull) call da_trace_exit("da_transpose_y2z")
29 end subroutine da_transpose_y2z