#include "cppdefs.h"
#ifdef INWAVE_MODEL
      SUBROUTINE set_inwave_data (ng, tile)
!
!svn $Id: set_data.F 799 2008-10-20 20:38:55Z jcwarner $
!
!=======================================================================
!                                                                      !
!  This subroutine processes forcing, boundary input data.             !
!  It time-interpolates between snapshots.                             !
!                                                                      !
!=======================================================================
!
      USE mod_param
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, tile
!
!  Local variable declarations.
!
# include "tile.h"
!
# ifdef PROFILE
      CALL wclock_on (ng, iNLM, 4)
# endif
      CALL set_inwave_data_tile (ng, tile,                              &
     &                           LBi, UBi, LBj, UBj)
# ifdef PROFILE
      CALL wclock_off (ng, iNLM, 4)
# endif
      RETURN
      END SUBROUTINE set_inwave_data
!
!***********************************************************************
      SUBROUTINE set_inwave_data_tile (ng, tile,                        &
     &                                 LBi, UBi, LBj, UBj)
!***********************************************************************
!
      USE mod_param
      USE mod_ncparam
      USE mod_scalars
      USE mod_inwave_params
      USE mod_inwave_bound
!
# if defined EW_PERIODIC || defined NS_PERIODIC
      USE exchange_2d_mod
# endif
# ifdef DISTRIBUTE
      USE mp_exchange_mod, ONLY : mp_exchange2d
#  ifdef SOLVE3D
      USE mp_exchange_mod, ONLY : mp_exchange3d
#  endif
# endif
      USE set_2dfld_mod
# ifdef SOLVE3D
      USE set_3dfld_mod
# endif
!
      implicit none
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, tile
      integer, intent(in) :: LBi, UBi, LBj, UBj

      integer :: ILB, IUB, JLB, JUB
      integer :: ND_bnd, my_tile

!
!  Local variable declarations.
!
      logical :: update = .FALSE.

!# include "set_bounds.h"
!
!  Lower and upper bounds for nontiled (global values) boundary arrays.
!
      my_tile=-1                           ! for global values
      ILB=BOUNDS(ng)%LBi(my_tile)
      IUB=BOUNDS(ng)%UBi(my_tile)
      JLB=BOUNDS(ng)%LBj(my_tile)
      JUB=BOUNDS(ng)%UBj(my_tile)

      ND_bnd=WAVEB(ng)%ND_bnd

      IF (LBC(iwest,isAC3d,ng)%acquire) THEN
        CALL set_ngfld (ng, iNLM, idACbc(iwest), JLB, JUB, ND_bnd,      &
     &                  0, Mm(ng)+1, ND_bnd,                            &
     &                  WAVEB(ng) % ACG_west(JLB,1,1),                  &
     &                  WAVEB(ng) % AC_west(JLB,1),                     &
     &                  update)
      END IF
      IF (LBC(ieast,isAC3d,ng)%acquire) THEN
        CALL set_ngfld (ng, iNLM, idACbc(ieast), JLB, JUB, ND_bnd,      &
     &                  0, Mm(ng)+1, ND_bnd,                            &
     &                  WAVEB(ng) % ACG_east(JLB,1,1),                  &
     &                  WAVEB(ng) % AC_east(JLB,1),                     &
     &                  update)
      END IF
      IF (LBC(inorth,isAC3d,ng)%acquire) THEN
        CALL set_ngfld (ng, iNLM, idACbc(inorth), ILB, IUB, ND_bnd,     &
     &                  0, Lm(ng)+1, ND_bnd,                            &
     &                  WAVEB(ng) % ACG_north(ILB,1,1),                 &
     &                  WAVEB(ng) % AC_north(ILB,1),                    &
     &                  update)
      END IF
      IF (LBC(isouth,isAC3d,ng)%acquire) THEN
        CALL set_ngfld (ng, iNLM, idACbc(isouth), ILB, IUB, ND_bnd,     &
     &                  0, Lm(ng)+1, ND_bnd,                            &
     &                  WAVEB(ng) % ACG_south(ILB,1,1),                 &
     &                  WAVEB(ng) % AC_south(ILB,1),                    &
     &                  update)
      END IF

      RETURN
      END SUBROUTINE set_inwave_data_tile
#else
      SUBROUTINE set_inwave_data
      RETURN
      END SUBROUTINE set_inwave_data
#endif