vegetation_allocate Subroutine

  subroutine vegetation_allocate(mb, nlut, mcrdb, meap)
    integer, intent(in) :: mb, nlut, mcrdb, meap

    allocate(alai(mb, meap))
    allocate(alai0(nlut))
    allocate(ald1(mcrdb))
    allocate(ald2(mcrdb))
    allocate(almn(mcrdb))
    allocate(blai(mcrdb))
    allocate(daylen(mb))
    allocate(daylmn(mb))
    allocate(dlai(mcrdb))
    allocate(dm(mb, meap))
    allocate(dormhr(mb))
    allocate(g(mb, meap))
    allocate(gwqLastday(mb))
    allocate(idorm(mb, meap))
    allocate(ilcc(mcrdb))
    allocate(olai(mb, meap))
    allocate(rd(mb, meap))
    allocate(rsd(mb, meap, 2))
    allocate(sla(mcrdb))
    allocate(tb(mcrdb))
    allocate(tsav(mb, meap))
    allocate(ws(mb, meap))
    allocate(wsav(mb, meap))
    allocate(to(mcrdb))

    alai(:, :) = 0.
    alai0 = 0.
    ald1 = 0.
    ald2 = 0.
    almn = 0.
    blai = 0.
    daylen = 0.
    daylmn = 0.
    dlai = 0.
    dm = 0.
    dormhr = 0.
    g = 0.
    gwqLastday = 0.
    idorm = 0
    ilcc = 0
    olai(: , :) = 0.
    rd = 0.
    rsd = 0.
    sla = 0.
    tb = 0.
    tsav = 0.
    uob = 1. - exp(- ub)
    ws = 0.
    wsav = 0.
    to = 0.

  end subroutine vegetation_allocate