!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
       Subroutine Bocoh(H,im,jm,nm)
!     ******************************************************************
!c    *                                                                *
!c    *  Boundary Conditions for Height Points on cube                 *
!c    *                                                                *
!c    ******************************************************************
!c----------------------------------------------------------------------
!c-------------------------------------------------------------------
      implicit none

      integer::im,jm,nm
      REAL    :: H(0:im+1,0:jm+1,nm)

      if(nm.eq.6)then
        call bocoh_cb(h,im,jm)
      else if(nm.eq.14)then
        call bocoh_oc(h,im,jm)
      endif

      END SUBROUTINE Bocoh