da_set_boundary_2d.inc

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