c
c
c     ##################################################################
c     ##################################################################
c     ######                                                      ######
c     ######                       EXBC.INC                       ######
c     ######                                                      ######
c     ######                     Developed by                     ######
c     ######     Center for Analysis and Prediction of Storms     ######
c     ######                University of Oklahoma                ######
c     ######                                                      ######
c     ##################################################################
c     ##################################################################
c
c
c#######################################################################
c
c     PURPOSE:
c
c     Include file 'exbc.inc' for ARPS 
c
c     This file defines the parameters and common blocks for the
c     external boundary conditions.
c
c#######################################################################
c
c     AUTHOR: Yuhe Liu
c     08/22/1994
c
c     MODIFICATION HISTORY:
c
c     05/09/1995 (Yuhe Liu)
c     Added a new namelist input parameter, brlxhw.
c     Changed definition of ngbrz from PARAMETER to NAMELIST input.
c     (See initpara3d.f)
c
c#######################################################################
c
c
c#######################################################################
c
c     When EXBC option is turned on, i.e., lbcopt=2, set
c
c       nxebc=nx, nyebc=ny, nzebc=nz. 
c
c     They are defined in dims.inc.
c
c#######################################################################
c
c
c#######################################################################
c
c     Pointers to EXBC varaiables in the EXBC buffer array
c
c#######################################################################
c
      integer nu0exb,nv0exb,nw0exb,npt0exb,npr0exb,nqv0exb,
     :        nqc0exb,nqr0exb,nqi0exb,nqs0exb,nqh0exb

      COMMON /exbcom0/nu0exb,nv0exb,nw0exb,npt0exb,
     :                npr0exb,nqv0exb,nqc0exb,nqr0exb,
     :                nqi0exb,nqs0exb,nqh0exb
c
c#######################################################################
c
c     Pointers to EXBC time tendencies in the EXBC buffer array
c
c#######################################################################
c
      integer nudtexb,nvdtexb,nwdtexb,nptdtexb,nprdtexb,nqvdtexb,
     :        nqcdtexb,nqrdtexb,nqidtexb,nqsdtexb,nqhdtexb

      COMMON /exbcom1/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

      COMMON /exbcom2/ abstinit, abststop, abstfcst0, abstfcst

      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

      COMMON /exbcom3/ubcrd,vbcrd,wbcrd,ptbcrd,prbcrd, 
     :                qvbcrd,qcbcrd,qrbcrd,qibcrd,qsbcrd,qhbcrd

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

      COMMON /exbcom4/ exbcname,tinitebd

      integer tintvebd              ! Time interval of EXBC files
                                    ! in seconds
      COMMON /exbcom5/ tintvebd

      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).

      COMMON /exbcom6/ cbcdmp,cbcmix,cbcmixh, brlxhw

c     real bcrlx(nxebc,nyebc)       ! The relaxation coefficients in the
                                    ! boundary zones.
c     COMMON /exbcom7/ bcrlx

      integer ngbrz                 ! Number of grid points in the boundary
                                    ! relaxation zone

      COMMON /exbcom8/ ngbrz