groundwater_allocate Subroutine

  subroutine groundwater_allocate(mb)
    integer, intent(in) :: mb
    allocate(abf(mb))
    allocate(abf1(mb))
    allocate(abf2(mb))
    allocate(additionalGwUptake(mb))
    allocate(bff(mb))
    allocate(delay(mb))
    allocate(gwht(mb))
    allocate(gwq(mb))
    allocate(gwqd(mb))
    allocate(gwqs(mb))
    allocate(rchrg(mb))
    allocate(rchrgc(mb))
    allocate(revapc(mb))
    allocate(revapmn(mb))
    allocate(revapst(mb))
    allocate(syld(mb))
    abf = abf0
    abf1 = 0.
    abf2 = 0.
    additionalGwUptake = 0.
    bff = bff0
    delay = 200.0
    gwht = 1.
    gwq = gwq0
    gwqd = 0.
    gwqs = 0.
    rchrg = 0.
    rchrgc = 0.05
    revapc = 0.200
    revapmn = 0.
    revapst = 0.
    syld = 0.003
  end subroutine groundwater_allocate