示例#1
0
    private void DoUnderstoryWaterBalance()
    {
        UnderstoryCoverGreen = UnderstoryCoverMax * (1 - cover_green);
        UnderstoryPEP        = eo * UnderstoryCoverGreen * (1 - cover_green);

        MyPaddock.Get("Soil Water.sw_dep", out sw_dep);  //need to get latest copy of swdep because OP will have taken water up.

        for (int j = 0; j < ll15_dep.Length; j++)
        {
            UnderstoryPotSWUptake[j] = Math.Max(0.0, RootProportion(j, UnderstoryRootDepth) * UnderstoryKLmax * UnderstoryCoverGreen * (sw_dep[j] - ll15_dep[j]));
        }

        double TotUnderstoryPotSWUptake = MathUtility.Sum(UnderstoryPotSWUptake);

        UnderstoryEP = 0.0;
        for (int j = 0; j < ll15_dep.Length; j++)
        {
            UnderstorySWUptake[j] = UnderstoryPotSWUptake[j] * Math.Min(1.0, UnderstoryPEP / TotUnderstoryPotSWUptake);
            UnderstoryEP         += UnderstorySWUptake[j];
            sw_dep[j]             = sw_dep[j] - UnderstorySWUptake[j];
        }
        if (!MyPaddock.Set("Soil Water.sw_dep", sw_dep))
        {
            throw new Exception("Unable to set sw_dep");
        }
        if (UnderstoryPEP > 0.0)
        {
            UnderstoryFW = UnderstoryEP / UnderstoryPEP;
        }
        else
        {
            UnderstoryFW = 1.0;
        }
    }
    private void DoGrowth()
    {
        double OPCover = 0;

        if (!MyPaddock.Get("OilPalm.cover_green", out OPCover))
        {
            OPCover = 0.0;
        }
        double RUE = 1.3;

        DltDM = RUE * Radn * cover_green * (1 - OPCover) * FW;
    }
示例#3
0
    private bool empty = true; // tracks if the header has been printed for the interval value data
    [EventHandler] public void Ondodcaps()
    {
        int    DOY            = 0;
        double latitude       = 0;
        double maxT           = 0;
        double minT           = 0;
        double radn           = 0;
        double RootShootRatio = 0;
        double SLN            = 0;
        double SWAvailable    = 0;
        double lai            = 0;

        MyPaddock.Get("DOY", out DOY);
        MyPaddock.Get("latitude", out latitude);
        MyPaddock.Get("maxT", out maxT);
        MyPaddock.Get("minT", out minT);
        MyPaddock.Get("radn", out radn);
        MyPaddock.Get("RootShootRatio", out RootShootRatio);
        MyPaddock.Get("SLN", out SLN);
        MyPaddock.Get("SWAvailable", out SWAvailable);
        MyPaddock.Get("lai", out lai);

        // Model the photosynthesis
        DCAPSTModel DM = Classic.SetUpModel(CP, PP, DOY, latitude, maxT, minT, radn);

        // Optional values
        DM.PrintIntervalValues = false; // Switch to print extra data (default = false)
        DM.Biolimit            = 0;     // Biological transpiration limit of the crop (0 disables mechanism)
        DM.Reduction           = 0;     // Excess water reduction fraction for bio-limited transpiration (0 disables mechanism)

        // Run the simulation
        DM.DailyRun(lai, SLN, SWAvailable, RootShootRatio);

        if (DM.PrintIntervalValues)
        {
            if (empty)
            {
                writer.WriteLine(DM.PrintResultHeader());
                empty = false;
            }

            writer.WriteLine(DM.IntervalResults);
        }

        // Outputs
        RootShoot      = RootShootRatio;
        BIOshootDAY    = dcaps[0] = DM.ActualBiomass;
        BIOtotalDAY    = BIOshootDAY * (1 + RootShoot);
        EcanDemand     = dcaps[1] = DM.WaterDemanded;
        EcanSupply     = dcaps[2] = DM.WaterSupplied;
        RadIntDcapst   = dcaps[3] = DM.InterceptedRadiation;
        RUE            = (RadIntDcapst == 0 ? 0 : BIOshootDAY / RadIntDcapst);
        TE             = (EcanSupply == 0 ? 0 : BIOshootDAY / EcanSupply);
        BIOshootDAYPot = dcaps[4] = DM.PotentialBiomass;
    }
示例#4
0
    public override void DoWaterUptake(double Amount)
    {
        Uptake = Amount;
        if (TalkDirectlyToRoot)
        {
            MyPaddock.Set(OurName + "Root.SWUptake", Amount);
        }

        else
        {
            List <string> ModelNames = new List <string>();
            List <double> Supply     = new List <double>();
            foreach (Paddock SubPaddock in MyPaddock.ChildPaddocks)
            {
                double[] SWSupply;
                string   ModelName = SubPaddock.FullName + "." + Plant.Name + "Root";
                MyPaddock.Get(ModelName + ".SWSupply", out SWSupply);
                Supply.Add(MathUtility.Sum(SWSupply));
                ModelNames.Add(ModelName);
            }
            double fraction = Amount / MathUtility.Sum(Supply);
            if (fraction > 1)
            {
                throw new Exception("Requested SW uptake > Available supplies.");
            }
            int i = 0;
            foreach (string ModelName in ModelNames)
            {
                MyPaddock.Set(ModelName + ".SWUptake", Supply[i] * fraction);
                i++;
            }
        }
    }
示例#5
0
    public override void DoSWUptake(double SWDemand)
    {
        // Firstly grow roots.
        //  the layer with root front
        int layer = FindLayerNo(RootDepth);

        dltRootDepth = RootDepthRate.Value * RootAdvanceFactorTemp.Value *
                       Math.Min(RootAdvanceFactorWaterStress.Value, SWFactorRootDepth.Value) *
                       xf[layer];

        // prevent roots partially entering layers where xf == 0
        int deepest_layer;

        for (deepest_layer = xf.Length - 1;
             deepest_layer >= 0 &&
             (xf[deepest_layer] <= 0.0 || getModifiedKL(deepest_layer) <= 0.0);
             deepest_layer--)
        {
            ; /* nothing */
        }
        int    RootLayerMax = deepest_layer + 1;
        double RootDepthMax = MathUtility.Sum(dlayer, 0, deepest_layer + 1, 0.0);

        dltRootDepth = MathUtility.Constrain(dltRootDepth, double.MinValue, RootDepthMax - RootDepth);

        if (dltRootDepth < 0.0)
        {
            throw new Exception("negative root growth??");
        }

        Util.Debug("Root.dltRootDepth=%f", dltRootDepth);
        Util.Debug("Root.root_layer_max=%i", RootLayerMax);
        Util.Debug("Root.root_depth_max=%f", RootDepthMax);

        // potential extractable sw
        DoPotentialExtractableSW();

        // actual extractable sw (sw-ll)
        DoSWAvailable();

        DoSWSupply();

        if (SwimIsPresent)
        {
            MyPaddock.Get("uptake_water_" + Plant.CropType, out dlt_sw_dep);
            dlt_sw_dep = MathUtility.Multiply_Value(dlt_sw_dep, -1);   // make them negative numbers.
        }
        else
        {
            DoWaterUptakeInternal(SWDemand);
        }
        Util.Debug("Root.dlt_sw_dep=%f", MathUtility.Sum(dlt_sw_dep));
    }
示例#6
0
    public void OnInitialised()
    {
        /* IMPORTANT - Do NOT change the order of these values */

        CP = Classic.SetUpCanopy(
            CanopyType.C3, // Canopy type
            370,           // CO2 partial pressure
            0.7,           // Empirical curvature factor
            0.047,         // Diffusivity-solubility ratio
            210000,        // O2 partial pressure
            0.78,          // PAR diffuse extinction coefficient
            0.8,           // NIR diffuse extinction coefficient
            0.036,         // PAR diffuse reflection coefficient
            0.389,         // NIR diffuse reflection coefficient
            60,            // Leaf angle
            0.15,          // PAR leaf scattering coefficient
            0.8,           // NIR leaf scattering coefficient
            0.05,          // Leaf width
            1.3,           // SLN ratio at canopy top
            14,            // Minimum structural nitrogen
            1.5,           // Wind speed
            1.5);          // Wind speed profile distribution coefficient

        PP = Classic.SetUpPathway(
            0,                   // Electron transport minimum temperature
            30.0,                // Electron transport optimum temperature
            45.0,                // Electron transport maximum temperature
            0.911017958600129,   // Electron transport scaling constant
            1,                   // Electron transport Beta value

            6048.95289,          //mesophyll conductance factor

            273.422964228666,    // Kc25 - Michaelis Menten constant of Rubisco carboxylation at 25 degrees C
            93720,               // KcFactor

            165824.064155384,    // Ko25 - Michaelis Menten constant of Rubisco oxygenation at 25 degrees C
            33600,               // KoFactor

            4.59217066521612,    // VcVo25 - Rubisco carboxylation to oxygenation at 25 degrees C
            35713.19871277176,   // VcVoFactor

            0.0,                 // Kp25 - Michaelis Menten constant of PEPc activity at 25 degrees C (Unused in C3)
            0.0,                 // KpFactor (Unused in C3)

            65330,               // VcFactor
            46390,               // RdFactor
            57043.2677590512,    // VpFactor

            0.0,                 // PEPc regeneration (Unused in C3)
            0.15,                // Spectral correction factor
            0.1,                 // Photosystem II activity fraction
            0.003,               // Bundle sheath CO2 conductance
            1.1 * PsiFactor,     // Max Rubisco activity to SLN ratio
            1.85 * PsiFactor,    // Max electron transport to SLN ratio
            0.0 * PsiFactor,     // Respiration to SLN ratio
            1.0 * PsiFactor,     // Max PEPc activity to SLN ratio
            0.00412 * PsiFactor, // Mesophyll CO2 conductance to SLN ratio
            0.75,                // Extra ATP cost
            0.7);                // Intercellular CO2 to air CO2 ratio

        //Set the LAI trigger
        MyPaddock.Set("DCaPSTTriggerLAI", LAITrigger);
        MyPaddock.Get("PsModelName1", out PsModelName1);
    }
示例#7
0
    public void Ondodcaps()
    {
        int    DOY            = 0;
        double latitude       = 0;
        double maxT           = 0;
        double minT           = 0;
        double radn           = 0;
        double RootShootRatio = 0;
        double SLN            = 0;
        double SWAvailable    = 0;
        double lai            = 0;

        MyPaddock.Get("DOY", out DOY);
        MyPaddock.Get("latitude", out latitude);
        MyPaddock.Get("maxT", out maxT);
        MyPaddock.Get("minT", out minT);
        MyPaddock.Get("radn", out radn);
        MyPaddock.Get("RootShootRatio", out RootShootRatio);
        MyPaddock.Get("SLN", out SLN);
        MyPaddock.Get("SWAvailable", out SWAvailable);
        MyPaddock.Get("lai", out lai);

        // Model the photosynthesis
        double      rpar = 0.5;
        DCAPSTModel DM   = Classic.SetUpModel(CP, PP, DOY, latitude, maxT, minT, radn, rpar);

        // Optional values
        DM.PrintIntervalValues = false; // Switch to print extra data (default = false)
        DM.Biolimit            = 0;     // Biological transpiration limit of the crop (0 disables mechanism)
        DM.Reduction           = 0;     // Excess water reduction fraction for bio-limited transpiration (0 disables mechanism)

        // Run the simulation
        DM.DailyRun(lai, SLN, SWAvailable, RootShootRatio);

        // Daily Outputs
        RootShoot      = RootShootRatio;
        BIOshootDAY    = dcaps[0] = DM.ActualBiomass;
        BIOtotalDAY    = BIOshootDAY * (1 + RootShoot);
        EcanDemand     = dcaps[1] = DM.WaterDemanded;
        EcanSupply     = dcaps[2] = DM.WaterSupplied;
        RadIntDcapst   = dcaps[3] = DM.InterceptedRadiation;
        RUE            = (RadIntDcapst == 0 ? 0 : BIOshootDAY / RadIntDcapst);
        TE             = (EcanSupply == 0 ? 0 : BIOshootDAY / EcanSupply);
        BIOshootDAYPot = dcaps[4] = DM.PotentialBiomass;
        SoilWater      = SWAvailable;

        // Interval outputs
        foreach (var interval in DM.Intervals)
        {
            Hour = interval.Time;
            SunlitTemperature = interval.Sunlit.Temperature;
            ShadedTemperature = interval.Shaded.Temperature;
            SunlitAc1         = interval.Sunlit.Ac1.Assimilation;
            SunlitAc2         = interval.Sunlit.Ac2.Assimilation;
            SunlitAj          = interval.Sunlit.Aj.Assimilation;
            ShadedAc1         = interval.Shaded.Ac1.Assimilation;
            ShadedAc2         = interval.Shaded.Ac2.Assimilation;
            ShadedAj          = interval.Shaded.Aj.Assimilation;

            if (IntervalStep != null)
            {
                IntervalStep.Invoke();
            }
        }
    }
示例#8
0
    // The following event handler will be called once at the beginning of the simulation
    [EventHandler] public void OnInitialised()
    {
        string path = "IntervalValues.csv";

        stream = new FileStream(path, FileMode.Create);
        writer = new StreamWriter(stream);

        /* Do NOT change the order of these values */
        CP = Classic.SetUpCanopy(
            CanopyType.CCM, // Canopy type
            370,            // CO2 partial pressure
            0.7,            // Empirical curvature factor
            0.047,          // Diffusivity-solubility ratio (Used in CCM)
            210000,         // O2 partial pressure
            0.78,           // PAR diffuse extinction coefficient
            0.8,            // NIR diffuse extinction coefficient
            0.036,          // PAR diffuse reflection coefficient
            0.389,          // NIR diffuse reflection coefficient
            60,             // Leaf angle
            0.15,           // PAR leaf scattering coefficient
            0.8,            // NIR leaf scattering coefficient
            0.05,           // Leaf width
            1.3,            // SLN ratio at canopy top
            14,             // Minimum structural nitrogen
            1.5,            // Wind speed
            1.5);           // Wind speed profile distribution coefficient

        PP = Classic.SetUpPathway(
            0,                        // Electron transport minimum temperature
            30.0,                     // Electron transport optimum temperature
            45.0,                     // Electron transport maximum temperature
            0.911017958600129,        // Electron transport scaling constant
            1,                        // Electron transport Beta value

            0,                        // Mesophyll conductance minimum temperature
            29.2338417788683,         // Mesophyll conductance optimum temperature
            45,                       // Mesophyll conductance maximum temperature
            0.875790608584141,        // Mesophyll conductance scaling constant
            1,                        // Mesophyll conductance Beta value

            17.52 * 273.422964228666, // Kc25 - Michaelis Menten constant of Rubisco carboxylation at 25 degrees C (Changed in CCM)*********************
            93720,                    // KcFactor

            1.34 * 165824.064155384,  // Ko25 - Michaelis Menten constant of Rubisco oxygenation at 25 degrees C (Changed in CCM)*********************
            33600,                    // KoFactor

            13.07 * 4.59217066521612, // VcVo25 - Rubisco carboxylation to oxygenation at 25 degrees C (Changed in CCM)*********************
            35713.19871277176,        // VcVoFactor

            75,                       // Kp25 - Michaelis Menten constant of PEPc activity at 25 degrees C (Used in CCM)
            36300,                    // KpFactor (Used in CCM)

            65330,                    // VcFactor
            46390,                    // RdFactor
            57043.2677590512,         // VpFactor (Used in CCM)

            400.0,                    // PEPc regeneration (Used in CCM)
            0.15,                     // Spectral correction factor
            0.1,                      // Photosystem II activity fraction (used in CCM)
            0.003,                    // Bundle sheath CO2 conductance (Used in CCM)********************
            1.1 * PsiFactor,          // Max Rubisco activity to SLN ratio
            1.9484 * PsiFactor,       // Max electron transport to SLN ratio (Changed in CCM)********************
            0.0 * PsiFactor,          // Respiration to SLN ratio
            1 * PsiFactor,            // Max PEPc activity to SLN ratio (Changed in CCM)*********************0.373684157583268
            0.00412 * PsiFactor,      // Mesophyll CO2 conductance to SLN ratio
            0.75,                     // Extra ATP cost (Changed in CCM)*********************
            0.7);                     // Intercellular CO2 to air CO2 ratio

        //Set the LAI trigger
        MyPaddock.Set("DCaPSTTriggerLAI", LAITrigger);
        MyPaddock.Get("PsModelName1", out PsModelName1);
    }
示例#9
0
    //Called each daily timestep


    [EventHandler] void OnProcess()
    {
        //Delta arrays for each variable
        rainAmt += rain;

        double[] dlt_ks        = new double[oc.Length];
        double[] dlt_dul       = new double[oc.Length];
        double[] dlt_ll        = new double[oc.Length];
        double[] dlt_bd        = new double[oc.Length];
        double[] dlt_swcon     = new double[oc.Length];
        double[] dlt_sat       = new double[oc.Length];
        double[] dlt_hum       = new double[oc.Length];
        double[] dlt_biom      = new double[oc.Length];
        double[] dlt_ph        = new double[oc.Length];
        double[] dlt_n_avail   = new double[oc.Length];
        double[] dlt_biochar_c = new double[oc.Length];
        double[] bc_nh4_dlt    = new double[oc.Length];
        double[] dlt_kl        = new double[oc.Length];



        for (int i = 0; i < oc.Length; i++)//Since kl's effect is multiplicative, its default needs to be 1
        {
            dlt_kl[i] = 1.0;
        }

        //computeDULandBD(out saxon_dul, out saxon_bd, 0);
        //saxon_ll = computeLL(0);
        //saxon_sat = giveSAT(0);
        if (Today < date)
        {
            for (int i = 0; i < dlayer.Length; i++)
            {
                saxon_bd[i] = bd[i];
            }
        }
        if (Today == date)
        {
            //Step 1
            applyBiochar();
        }
        if (Today > date)
        {
            for (int i = 0; i < oc.Length; i++)                    //try looping through all layers
            {
                MyPaddock.Get(soil_name + " Nitrogen.tf", out tf); //This si why soil name needs to be an input parameter

                MassComparison[i] = (BiocharC[i] / frac_c_biochar) / (LayerMass[i]);
                double n_demand, dlt_n_min_tot_bc;

                //double rd_hum_fac = 0.0, rd_biom_fac = 0.0, rd_carb_fac = 0.0, rd_cell_fac = 0.0, rd_lign_fac = 0.0, rd_ef_fac = 0.0, rd_fr_fac = 0.0;
                double nh4_change;

                double new_ph;
                //Local variables for this specific soil layer
                double new_layer_ll, new_layer_bd, new_layer_dul, new_layer_ks, new_layer_sat, new_layer_swcon = 0.0;
                //step 2
                //When biochar functionality is expanded, every instance of a '0' method argument or array index will be changed to a layer index, and layers that biochar
                //alters will be iterated over in a for loop, but for now biochar only changes the first layer
                dlt_c_min_biochar[i] = computeDailyBCCarbDecomp(i);
                //step 3
                computeDLTs(out dlt_c_biochar_biom[i], out dlt_c_biochar_hum[i], out dlt_c_biochar_co2[i], dlt_c_min_biochar[i]);
                //step 4 -inactive


                n_demand         = getNDemand(dlt_c_biochar_biom[i], dlt_c_biochar_hum[i]);
                dlt_n_min_tot_bc = computeNFromDecomp(dlt_c_min_biochar[i]);

                n_demand_bc[i]       = n_demand;
                n_avail_bc[i]        = dlt_n_min_tot_bc;
                dlt_n_min_biochar[i] = dlt_n_min_tot_bc - n_demand; //This will get added to dlt_n_min_tot I think
                //Step 5 happens in model

                //Step 6

                get_rd_factors(out rd_hum_fac, out rd_biom_fac, out rd_carb_fac, out rd_cell_fac, out rd_lign_fac,
                               out rd_ef_fac, out rd_fr_fac, out rd_ef_fom_fac, out rd_fr_fom_fac, i);

                //Step 7

                nh4_change = get_NH4_changes(i);
                //Step 8

                soil_cec[i] = get_new_cec(i);
                new_ph      = get_new_ph(i);

                //For computing delta locally.

                getCurrentSoilWatValues();


                //Step 9
                new_layer_ll = computeLL(i);
                computeDULandBD(out new_layer_dul, out new_layer_bd, i);

                //new_layer_sat = giveSAT(i); //Active but not being used

                /**
                 * new_layer_swcon = computeSWCON(0, new_layer_sat, new_layer_bd);
                 * new_layer_ks = computeKS(0, new_layer_sat, new_layer_dul, new_layer_ll);
                 **/


                //End of steps

                /**
                 * The biochar decomposed event requires that changes be in terms of delta.
                 * However, our equations give the total value, not the change, so we must compute
                 * the change within this script.
                 **/
                //dlt_ks[0] = new_layer_ks - ks[0];
                dlt_dul[i] = new_layer_dul; // -dul[i];
                dlt_ll[i]  = new_layer_ll;  // -ll15[i];



                //not actually a delta, model stops working if it is. Instead, is the next wanted value of bd
                if (BiocharC[i] != 0.0)
                {
                    dlt_bd[i] = new_layer_bd + saxon_bd[i];
                }
                else
                {
                    dlt_bd[i] = initialBD[i];
                }


                dlt_hum[i]  = dlt_c_biochar_hum[i];
                dlt_biom[i] = dlt_c_biochar_biom[i];

                dlt_biochar_c[i] = dlt_c_min_biochar[i];

                dlt_ph[i] = new_ph - ph[i];

                dlt_n_avail[i] = dlt_n_min_biochar[i];

                bc_nh4_dlt[i] = nh4_change;
                if (kl_switch.Equals("on")) //So that kl does not go to 0
                {
                    dlt_kl[i] = 1;          //what became of step 10
                }
            }
            //End of loop
            //The data structure for our decomposition event
            BiocharDecomposedType BiocharDecomp = new BiocharDecomposedType();

            getCurrentSoilWatValues();
            //region for andales saxon mergeing - to later integrate with
            double[] andales_bd  = AndalesBD();
            double[] bd_new      = biggest_bd_dlt(dlt_bd, andales_bd);
            double[] sat_dlt_new = sat_in_terms_of_dlt(bd_new);

            for (int i = 0; i < oc.Length; i++)
            {
                double temp;
                saxon_sat[i]  = (-(dlt_bd[i] - saxon_bd[i]) / 2.65) * 0.9 + sat[i];
                saxon_bd[i]   = dlt_bd[i];
                till_bd[i]    = andales_bd[i];
                till_sat[i]   = (-(andales_bd[i] - biochar_bd[i]) / 2.65) * 0.9 + sat[i];
                temp          = 100 / (bd_new[i] * init_soil_fac[i]);
                dlt_dlayer[i] = temp - dlayer[i];
            }

            biochar_bd = bd_new;
            //Script control area
            if (dul_switch.Equals("on"))
            {
                BiocharDecomp.dlt_dul = dlt_dul;
            }
            if (ll_switch.Equals("on"))
            {
                BiocharDecomp.dlt_ll = dlt_ll;
            }
            if (sat_switch.Equals("on"))
            {
                BiocharDecomp.dlt_sat = sat_dlt_new;
            }
            //Since errors occur if bd is in terms of delta, we need to ensure that if bd is off, we still get what we want
            if (bd_switch.Equals("on"))
            {
                BiocharDecomp.dlt_bd = bd;
                //BiocharDecomp.dlt_bd = bd_new;
                //MyPaddock.Set("dlt_dlayer", dlt_dlayer);
            }
            else
            {
                BiocharDecomp.dlt_bd = bd;
            }
            if (swcon_switch.Equals("on"))
            {
                BiocharDecomp.dlt_swcon = dlt_swcon;
            }
            if (ks_switch.Equals("on"))
            {
                BiocharDecomp.dlt_ks = dlt_ks;
            }


            if (biochar_c_switch.Equals("on"))
            {
                BiocharDecomp.hum_c         = dlt_hum;
                BiocharDecomp.biom_c        = dlt_biom;
                BiocharDecomp.dlt_biochar_c = dlt_biochar_c;
            }

            if (nitrification_switch.Equals("on"))
            {
                BiocharDecomp.bc_nh4_change = bc_nh4_dlt;
            }

            if (decomp_switch.Equals("on"))
            {
                BiocharDecomp.dlt_rd_hum    = rd_hum_fac;
                BiocharDecomp.dlt_rd_biom   = rd_biom_fac;
                BiocharDecomp.dlt_rd_carb   = rd_carb_fac;
                BiocharDecomp.dlt_rd_cell   = rd_cell_fac;
                BiocharDecomp.dlt_rd_lign   = rd_lign_fac;
                BiocharDecomp.dlt_rd_ef     = rd_ef_fac;
                BiocharDecomp.dlt_rd_fr     = rd_fr_fac;
                BiocharDecomp.dlt_rd_ef_fom = rd_ef_fom_fac;
                BiocharDecomp.dlt_rd_fr_fom = rd_fr_fom_fac;
            }


            BiocharDecomp.dlt_n_biochar = dlt_n_avail;
            if (ph_switch.Equals("on"))
            {
                BiocharDecomp.dlt_ph = dlt_ph;
            }

            BiocharDecomp.bc_wfps_factor = 1.0 - this.bc_wfps_factor;


            BiocharDecomp.dlt_kl = dlt_kl; //Since KL is a multiplicative effect, if we do not always assign this KL will go to 0
            //If uninitialized, it is 0 by default

            BiocharDecomposed.Invoke(BiocharDecomp);
            Console.WriteLine("Biochar bd: " + biochar_bd[0]);
        }


        for (int i = 0; i < oc.Length; i++)
        {
            yesterday_oc[i] = oc[i]; //Make a deep copy
        }
    }