!
! #    #   #####     #    #          #     #####     #    ######   ####
! #    #     #       #    #          #       #       #    #       #
! #    #     #       #    #          #       #       #    #####    ####
! #    #     #       #    #          #       #       #    #            #
! #    #     #       #    #          #       #       #    #       #    #
!  ####      #       #    ######     #       #       #    ######   ####
!
! ---------------------------------------------------------------------
      subroutine vec2arr(vect, array)
! ---------------------------------------------------------------------
!
! puts vector of land-only points back into array
!
      include 'implicit.h'
!
      include 'compar.h'
      include 'comwork.h'
!
! Arguments
!
      real array(nlonsub,nlatsub), vect(npoi)
!
! Local variables
!
      integer j, i, ii, jj
!
      do 10 j = 1, nlatsub
        do 20 i = 1, nlonsub
          array(i,j) = OCEAN
 20     continue
 10   continue
!
      do 30 i = 1, npoi
        ii = lonindex(i)
        jj = latindex(i)
        array(ii,jj) = vect(i)
 30   continue
!
      return
      end
