! source file: /Users/mtivig/REPOS/uvic_with_news/RUNS/RUN_UVic_2015_NEWS_BD_BP_V2020/updates/MTivig_2020_BP/source/common/maxReservoirP.F
      subroutine maxReservoirP

      implicit none

      character(120) :: fname, new_file_name

      integer iou
      logical exists

      include "stdunits.h"
      include "size.h"
      include "isleperim.h"
      include "maxReservoirP.h"

      real c1, c0
      real tmpijk(imt-2,jmt-2,km)
      integer ib(10), ic(10)
      c1 = 1.
      c0 = 0.

      return
      end