update plant mass for daily biomass/c increase partition leaf and stem (stalk) and seed (grain) mass partition root and above ground biomass for tuber crops for tubers, the tuber (or seed) is not part of ab_gr --> tot = root + ab_gr + seed 1. = root + ab_gr + hi * ab_gr --> solve for ab_gr partition root and above ground biomass for all other annuals (above ground grain) check if initializing first maintain root fraction - root mass/total mass next maintain harvest index on yield (seed/fruit) component next maintain leaf component remainder goes to stem initialize at initial fractions partition carbon with constant fractions partition n and p partition leaves and seed (stem is woody biomass) if n is neg after seed is removed - assume 0 n in seed - plant database cnyld and fr_n_mat are off partition n_left between remaining masses - assume equal concentrations if n is neg after seed is removed - assume 0 n in seed - plant database cnyld and fr_n_mat are off partition p_left between remaining masses - assume equal concentrations annual or grass (stem is stalk) - partition seed (grain) assume same concentration in rest of plant assume same concentration in rest of plant
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | j | |||
integer, | intent(in) | :: | init |