!##################################################################
!##################################################################
!######                                                      ######
!######                       EXBC.INC                       ######
!######                                                      ######
!######                     Developed by                     ######
!######     Center for Analysis and Prediction of Storms     ######
!######                University of Oklahoma                ######
!######                                                      ######
!##################################################################
!##################################################################

MODULE EXBC

!-----------------------------------------------------------------------
!
! PURPOSE:
!
! This file defines the parameters and common blocks for the
! external boundary conditions.
!
!-----------------------------------------------------------------------
!
! AUTHOR: Yuhe Liu
! 08/22/1994
!
! MODIFICATION HISTORY:
!
! 05/09/1995 (Yuhe Liu)
! Added a new namelist input parameter, brlxhw.
! Changed definition of ngbrz from PARAMETER to NAMELIST input.
! (See initpara3d.f)
!-----------------------------------------------------------------------

  IMPLICIT NONE
  SAVE
 
!-----------------------------------------------------------------------
! Pointers to EXBC varaiables in the EXBC buffer array
!-----------------------------------------------------------------------
 
  INTEGER :: nu0exb,nv0exb,nw0exb,npt0exb,npr0exb,nqv0exb, &
             nqc0exb,nqr0exb,nqi0exb,nqs0exb,nqh0exb
 
!-----------------------------------------------------------------------
! Pointers to EXBC time tendencies in the EXBC buffer array
!-----------------------------------------------------------------------
 
  INTEGER :: nudtexb,nvdtexb,nwdtexb,nptdtexb,nprdtexb,nqvdtexb, &
             nqcdtexb,nqrdtexb,nqidtexb,nqsdtexb,nqhdtexb

  INTEGER :: abstinit        ! Initial time in absolute seconds
  INTEGER :: abststop        ! Stop-searching time in absolute seconds
  INTEGER :: abstfcst0       ! Last EXBC forecast time in absolute seconds
  INTEGER :: abstfcst        ! Current EXBC forecasttime in absolute seconds

  INTEGER :: ubcrd           ! Flag for u  in EXBC file
  INTEGER :: vbcrd           ! Flag for v  in EXBC file
  INTEGER :: wbcrd           ! Flag for w  in EXBC file
  INTEGER :: ptbcrd          ! Flag for pt in EXBC file
  INTEGER :: prbcrd          ! Flag for pr in EXBC file
  INTEGER :: qvbcrd          ! Flag for qv in EXBC file
  INTEGER :: qcbcrd          ! Flag for qc in EXBC file
  INTEGER :: qrbcrd          ! Flag for qr in EXBC file
  INTEGER :: qibcrd          ! Flag for qi in EXBC file
  INTEGER :: qsbcrd          ! Flag for qs in EXBC file
  INTEGER :: qhbcrd          ! Flag for qh in EXBC file

  CHARACTER :: exbcname*80   ! Prefix string of EXBC file name
  CHARACTER :: tinitebd*19   ! Initial time of EXBC files

  INTEGER :: tintvebd        ! Time interval of EXBC files in seconds

  INTEGER :: ngbrz           ! Number of grid points in the boundary relaxation zone

  REAL :: cbcdmp             ! Coefficient of EXBC relaxation damping function
  REAL :: cbcmix             ! Non-dimensional coefficient of
                             ! computational mixing in EXBC zone
  REAL :: cbcmixh            ! Dimensional coefficient of
                             ! computational mixing in EXBC zone
  REAL :: brlxhw             ! Helf-width of the boundary relaxation function in term
                             ! of the number of grid zones (a real number).


END MODULE exbc