! source file: /Users/oschlies/UVIC/master/source/mom/addobcpsi.F
      subroutine addobcpsi

!-----------------------------------------------------------------------
!     add open boundary values to the solution (active open boundary)
!-----------------------------------------------------------------------

      include "param.h"
      include "emode.h"
      include "iounit.h"
      include "obc_data.h"
      include "tmngr.h"

      return
      end