/// <summary>Derives seneseced plant nitrogen (g N/m^2)</summary>
/// <param name="Organs">The organs.</param>
internal void doNSenescedRetranslocation(List <Organ1> Organs)
{
//! now get N to retranslocate out of senescing leaves
foreach (Organ1 Organ in Organs)
{
Organ.ZeroDltNSenescedTrans();
}
double dlt_n_in_senescing_leaf = Leaf.Senescing.Wt * Leaf.Live.NConc;
double n_demand_tot = 0;
foreach (Organ1 Organ in Organs)
{
n_demand_tot += Organ.NDemand;
}
double navail = dlt_n_in_senescing_leaf - Leaf.Senescing.N;
navail = MathUtilities.Constrain(navail, 0.0, n_demand_tot);
foreach (Organ1 Organ in Organs)
{
Organ.DoNSenescedRetranslocation(navail, n_demand_tot);
}
}
