! source file: /Users/mtivig/REPOS/uvic_with_news/RUNS/RUN_UVic_2015_NEWS_BD_BP_V2020/updates/MTivig_2020_BP/source/embm/riv.h
!======================== include file "riv.h" =========================

!     parameters for use in the river model

!     maxnb   = maximum number of basins
!     nb      = number of basins
!     nbp     = number of basin points per basin
!     ndp     = number of discharge points per basin
!     ndis    = map of discharge points
!     nrfill  = map of filled river numbers (extrapolated over water)
!     nriv    = map of river (basin) numbers
!     psum    = total discharge for a basin
!     wdar    = discharge weights over discharge area
!     ta_psum = time average total discharge for a basin
!     rdin    = river discharge of dissolved inorganic nitrogen
!     rdip    = river discharge of dissolved inorganic phosphorus
!     rdon    = river discharge of dissolved organic nitrogen
!     rdop    = river discharge of dissolved organic phosphorus
!     rpp    = river discharge of particulate phosphorus
!     rdinflx    = river discharge of dissolved inorganic nitrogen with seasonality per month
!     rdipflx    = river discharge of dissolved inorganic phosphorus with seasonality
!     rdonflx    = river discharge of dissolved organic nitrogen with seasonality
!     rdopflx    = river discharge of dissolved organic phosphorus with seasonality
!     rppflx    = river discharge of particulate phosphorus with seasonality

      integer maxnb
      parameter (maxnb=200)

      integer nb, nbp, ndp, ndis, nrfill, nriv
      common /river_i/ nb, nbp(maxnb), ndp(maxnb), ndis(imt,jmt)
      common /river_i/ nrfill(imt,jmt), nriv(imt,jmt)

      real psum, wdar, ta_psum, rdin, rdip, rdon, rdop, rdinflx
      real rdipflx, rdonflx, rdopflx, rpp, rppflx
      common /river_r/ psum(maxnb), wdar(imt,jmt)

      common /river_r/ ta_psum(maxnb)

      common /river_r/ rdinflx(imt,jmt,12), rdipflx(imt,jmt,12)
      common /river_r/ rdonflx(imt,jmt,12), rdopflx(imt,jmt,12)
      common /river_r/ rppflx(imt,jmt,12)