Example #1
0
        /// <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);
            }
        }