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 
9    real :: var(ims:ime, jms:jme)
10 
11    integer :: n, j
12 
13    if ((its /= ids) .or. (ite /= ide)) return
14 
15    if (trace_use) call da_trace_entry("da_set_boundary_2d")
16 
17    do j=jts, jte
18       do n=1,bdyzone
19          var(ids-n,j) = var(ide+1-n,j)
20          var(ide+n,j) = var(ids-1+n,j)
21       end do
22    end do
23 
24    if (trace_use) call da_trace_exit("da_set_boundary_2d")
25 
26 end subroutine da_set_boundary_2d
27 
28