! source file: /Users/oschlies/UVIC/master/source/embm/embmbc.F
      subroutine embmbc (data)

!=======================================================================
!     set boundary values

!     input:
!       data = array to be set

!     based on code by: A. Fanning and M. Eby
!=======================================================================

      implicit none

      include "param.h"

      integer i, j

      real data(imt,jmt)

!     set 1 east west

      do j=1,jmt
        data(1,j) = data(imtm1,j)
        data(imt,j) = data(2,j)
      enddo

!     set closed North South

      do i=1,imt
        data(i,1) = data(i,2)
        data(i,jmt) = data(i,jmtm1)
      enddo

      return
      end