da_set_boundary_3d.inc

1 subroutine da_set_boundary_3d(var)
2    !------------------------------------------------------------------------
3    !  Purpose: 
4    !
5    !  Merge East-West boundary values for input 3d-array (var)
6    !------------------------------------------------------------------------
7 
8    implicit none
9 
10    real, dimension(ims:ime, jms:jme, kms:kme),intent(inout) :: var
11 
12    integer :: n, j, k
13 
14    if ((its /= ids) .or. (ite /= ide)) return
15 
16    do k=kts, kte
17       do j=jts, jte
18          do n=1,bdyzone
19             var(ids-n,j,k) = var(ide+1-n,j,k)
20             var(ide+n,j,k) = var(ids-1+n,j,k)
21          end do
22       end do
23    end do
24 
25 end subroutine da_set_boundary_3d
26 
27