hydrotope_allocate Subroutine

  subroutine hydrotope_allocate(mb)
    use utilities, only : random_n
    integer, intent(in) :: mb

    ! Allocate arrays for hydrotope.csv
    allocate(bcv(mb, meap))
    allocate(dflav(mb, meap, 20))
    allocate(dfloy(mb, meap, 20))
    allocate(hsumfc(mb, meap))
    allocate(hsumul(mb, meap))
    allocate(nveg(mb, meap))
    allocate(preinf(mb, meap))
    allocate(sq(mb))
    allocate(ssq(mb))
    allocate(swe(mb, meap))
    allocate(sy(mb))
    allocate(sym(mb))
    allocate(syq(mb))
    allocate(sysq(mb))
    allocate(syy(mb))
    allocate(tmpNgrw(mb))
    allocate(tmpNsub(mb))
    allocate(tmpNsur(mb))
    allocate(tmpPsur(mb))
    bcv = 0.
    dflav = 0.
    dfloy = 0.
    hsumfc = 0.
    hsumul = 0.
    nveg = 0
    preinf = 0.
    sq = 0.
    ssq = 0.
    ssq = 0.
    swe = 0.
    sy = 0.
    sym = 0.
    syq = 0.
    sysq = 0.
    sysq = 0.
    syy = 0.
    tmpNgrw = 0.005
    tmpNsub = 0.005
    tmpNsur = 0.005
    tmpPsur = 0.005
    sym = 0.
    syq = 0.
    sysq = 0.
    syy = 0.
    sq = 0.
    ssq = 0.
    sy = 0.
    smm = 0.
    smy = 0.
    sm = 0.
    preinf = 0.
    hsumul = 0.
    hsumfc = 0.
    dfloy = 0.
    dflav = 0.
    vl = 100.
    vb = 0.
    v1 = random_n(k2)
    v3 = random_n(k3)
    v5 = random_n(k4)
    v7 = random_n(k5)
  end subroutine hydrotope_allocate