var/da/da_tools/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