erosion_allocate Subroutine

  subroutine erosion_allocate(mb, mcrdb, meap)
    integer, intent(in) :: mb, mcrdb, meap
    ! NOTE: Something during the init process sets `mch = mb`, so use mb as we
    !       we have reordered some intialization code
    ! allocate(chxk(mch))
    allocate(chc(mb))
    allocate(chxk(mb))
    allocate(cklsp(mb, meap))
    allocate(css(mb))
    allocate(cvm(mcrdb))
    allocate(ecp(mb))
    allocate(parsz(5, mb))
    allocate(pct(5, mb))
    allocate(sl(mb))
    allocate(yone(mb))
    allocate(yphe(mb))

    chc = 1.0 * chcc0
    chxk = 0.28 * chxkc0
    cklsp = 0.
    css = 0.5
    cvm = 0.
    ecp = 0.5
    parsz = 0.
    pct = 0.
    sl = 0.
    yone = 0.
    yphe = 0.
  end subroutine erosion_allocate