FI_GreenFallow_Perm Class Reference

FI_GreenFallow_Perm class
. More...

#include <FI_GreenFallow_Perm.h>

Inheritance diagram for FI_GreenFallow_Perm:

Public Member Functions
virtual bool	Do (Farm *a_farm, LE *a_field, FarmEvent *a_ev)
	The one and only method for a crop management plan. All farm actions go through here. More...
	FI_GreenFallow_Perm (TTypesOfVegetation a_tov, TTypesOfCrops a_toc, Landscape *a_L)
void	SetUpFarmCategoryInformation ()
Public Member Functions inherited from Crop
virtual	~Crop ()
	Crop (TTypesOfVegetation a_tov, TTypesOfCrops a_toc, Landscape *a_L)
int	GetFirstDate (void)
void	ChooseNextCrop (int a_no_dates)
	Chooses the next crop to grow in a field. More...
int	GetCropClassification ()
void	SetCropClassification (int a_classification)
void	GetCropType (TTypesOfCrops a_toc)
TTypesOfCrops	GetCropType ()
FarmManagementCategory	LookUpManagementCategory (int a_todo)
bool	GetForceSpringOK ()

Additional Inherited Members
Public Attributes inherited from Crop
TTypesOfVegetation	m_tov
Protected Member Functions inherited from Crop
void	SimpleEvent (long a_date, int a_todo, bool a_lock)
	Adds an event to this crop management. More...
void	SimpleEvent_ (long a_date, int a_todo, bool a_lock, Farm *a_farm, LE *a_field)
	Adds an event to this crop management without relying on member variables. More...
bool	StartUpCrop (int a_spring, std::vector< std::vector< int >> a_flexdates, int a_todo)
	Holds the translation between the farm operation enum for each cropand the farm management category associated with it More...
bool	AphidDamage (LE *a_field)
	Compares aphid numbers per m2 with a threshold to return true if threshold is exceeded. More...
Protected Attributes inherited from Crop
Farm *	m_farm
LE *	m_field
FarmEvent *	m_ev
int	m_first_date
int	m_count
int	m_last_date
int	m_ddegstoharvest
int	m_base_elements_no
Landscape *	m_OurLandscape
bool	m_forcespringpossible = false
	Used to signal that the crop can be forced to start in spring. More...
TTypesOfCrops	m_toc
	The Crop type in terms of the TTypesOfCrops list (smaller list than tov, no country designation) More...
int	m_CropClassification
	Contains information on whether this is a winter crop, spring crop, or catch crop that straddles the year boundary (0,1,2) More...
vector< FarmManagementCategory >	m_ManagementCategories
	Holds the translation between the farm operation enum for each crop and the farm management category associated with it. More...
Static Protected Attributes inherited from Crop
static int	m_date_modifier = 0
	Holds a value that shifts test pesticide use by this many days in crops modified to use it. More...

Detailed Description

FI_GreenFallow_Perm class
.

See FI_GreenFallow_Perm .h::FI_GreenFallow_Perm ToDo for a complete list of all possible events triggered codes by the GreenFallow_Perm management plan. When triggered these events are handled by Farm and are available as information for other objects such as animal and bird models.

Constructor & Destructor Documentation

FI_GreenFallow_Perm()

FI_GreenFallow_Perm::FI_GreenFallow_Perm ( TTypesOfVegetation  a_tov, TTypesOfCrops  a_toc, Landscape *  a_L  )

inline

                                                                                       : Crop(a_tov, a_toc, a_L)
    {
        // When we start it off, the first possible date for a farm operation 
        // This information is used by other crops when they decide how much post processing of 
        // the management is allowed after harvest before the next crop starts.
        m_first_date = g_date->DayInYear(15, 6);
        SetUpFarmCategoryInformation();
    }

References Calendar::DayInYear(), g_date, Crop::m_first_date, and SetUpFarmCategoryInformation().

Member Function Documentation

Do()

bool FI_GreenFallow_Perm::Do ( Farm *  a_farm, LE *  a_field, FarmEvent *  a_ev  )

virtual

The one and only method for a crop management plan. All farm actions go through here.

Called every time something is done to the crop by the farmer in the first instance it is always called with a_ev->todo set to start, but susequently will be called whenever the farmer wants to carry out a new operation.
This method details all the management and relationships between operations necessary to grow and ALMaSS crop - in this case conventional spring barley Fodder.

Reimplemented from Crop.

{
    m_field = a_field; // this is needed because of possible calls to other methods and currently we do not pass parameters.
    m_farm = a_farm; // this is needed because of possible calls to other methods and currently we do not pass parameters.
    m_ev = a_ev;
    bool done = false; // The boolean value done indicates when we are totally finished with this plan (i.e. it is set to true).
    int d1 = 0;
    // Depending what event has occured jump to the correct bit of code e.g. for ww_start jump to line 67 below
    switch (a_ev->m_todo)
    {
    case fi_gfp_start:
    {
        FI_GFP_YEARS_AFTER_SOW = 0; //Here FI_GFP_YEARS_AFTER_SOW flag should get randomly for each field a value from 1 to 5 ->
                                    //THIS PART SHOULD BE SOMEWHERE ELSE OUTSIDE THE PLAN, SO THE STARTING CONDITIONS FOR FIELDS WITH PERMANENT GRASS (YEAR AFTER SOWING)
                                    // IS SET ONLY ONCE AT THE SIMULATION START!!!
        a_field->ClearManagementActionSum();
 
// Check the next crop for early start, unless it is a spring crop
        // in which case we ASSUME that no checking is necessary!!!!
        // So DO NOT implement a crop that runs over the year boundary (i.e. from spring to spring!), at least not without fixing this.
 
        //new if: do the check only for non-optimising farms and if year>0. (030713 - m_rotation used only in the hidden year, so I modified the condition from >7 to >0)
        //optimising farms not used for now so most of related code is removed (but not in 'start' case)
        if (!(a_farm->GetType() == tof_OptimisingFarm && g_date->GetYearNumber() > 0)) {
            //Checking the future...
            if (a_ev->m_startday > g_date->DayInYear(1, 7)) {
                if (g_date->DayInYear(30, 12) >= a_ev->m_startday)
                {
                    g_msg->Warn(WARN_BUG, "FIGreenFallow_Perm::Do(): ", "Harvest too late for the next crop to start!!!");
                    int almassnum = a_field->GetLandscape()->BackTranslateVegTypes(a_ev->m_next_tov);
                    g_msg->Warn("Next Crop ", (double)almassnum); // this causes exit
                    exit(1);
                }
            }
            // Now no operations can be timed after the start of the next crop.
 
            if (!a_ev->m_first_year) {
                // Are we before July 1st?
                d1 = g_date->OldDays() + g_date->DayInYear(1, 7);
                if (g_date->Date() < d1) {
                    // Yes, too early. We assumme this is because the last crop was late
                    printf("Poly: %d\n", a_field->GetPoly());
                    g_msg->Warn(WARN_BUG, "FIGreenFallow_Perm::Do(): ", "Crop start attempt between 1st Jan & 1st July");
                    int prev = a_field->GetLandscape()->BackTranslateVegTypes(a_field->GetOwner()->GetPreviousTov(a_field->GetRotIndex()));
                    g_msg->Warn(WARN_BUG, "Previous Crop ", prev);
                    int almassnum = a_field->GetLandscape()->BackTranslateVegTypes(a_ev->m_next_tov);
                    g_msg->Warn("Next Crop ", (double)almassnum); // this causes exit
                }
                else {
                    d1 = g_date->OldDays() + 365 + m_first_date; // Add 365 for spring crop
                    if (g_date->Date() > d1) {
                        // Yes too late - should not happen - raise an error
                        g_msg->Warn(WARN_BUG, "FIGreenFallow_Perm::Do(): ", "Crop start attempt after last possible start date");
                        g_msg->Warn(WARN_BUG, "Previous Crop ", "");
                        a_field->GetOwner()->GetPreviousTov(a_field->GetRotIndex());
                        int almassnum = a_field->GetLandscape()->BackTranslateVegTypes(a_ev->m_next_tov);
                        g_msg->Warn("Next Crop ", (double)almassnum); // this causes exit
                    }
                }
            }
            else {
                //only for the first year
                SimpleEvent(g_date->OldDays() + g_date->DayInYear(1, 5), fi_gfp_sow, false);
                break;
            }
        }//if
 
         // End single block date checking code. Please see next line comment as well.
         // OK, let's go.
        // Here we queue up the first event
        //Each field has assign randomly a FI_NG_YEARS_AFTER_SOW 
        if ((FI_GFP_YEARS_AFTER_SOW + g_date->GetYearNumber()) % 1 == 1)
        {
            d1 = g_date->OldDays() + g_date->DayInYear(1, 1);
            if (g_date->Date() >= d1) d1 += 365;
            SimpleEvent(d1, fi_gfp_sow, false);
        }
        else if ((FI_GFP_YEARS_AFTER_SOW + g_date->GetYearNumber()) % 1 == 0)
        {
            d1 = g_date->OldDays() + g_date->DayInYear(1, 8);
            if (g_date->Date() >= d1) d1 += 365;
            SimpleEvent(d1, fi_gfp_grazing1, false);
        }
        break;
    }
    break; // this thread is only done the first year
    case fi_gfp_sow:
        if (a_ev->m_lock || a_farm->DoIt(100)) {
            if (!a_farm->SpringSow(a_field, 0.0, g_date->DayInYear(15, 6) - g_date->DayInYear())) {
                // If we don't succeed on the first try, then try and try again (until 10/10 when we will succeed)
                SimpleEvent(g_date->Date() + 1, fi_gfp_sow, true);
                break;
            }
        }
        //here comes next events:
        SimpleEvent(g_date->Date(), fi_gfp_slurry, false);
        break;
    case fi_gfp_slurry: //suggest 50% does this and the rest choose NPK fertilizer (crop scheme only say: 100% do Slurry/NPK)
        if (m_farm->IsStockFarmer()) {
            if (!a_farm->FA_Slurry(a_field, 0.0, g_date->DayInYear(15, 6) - g_date->DayInYear())) {
                // If we don't succeed on the first try, then try and try again (until 10/10 when we will succeed)
                SimpleEvent(g_date->Date() + 1, fi_gfp_slurry, true);
                break;
            }
            SimpleEvent(g_date->OldDays() + g_date->DayInYear(1, 8), fi_gfp_grazing1, false);
            break;
        }
        else SimpleEvent(g_date->Date(), fi_gfp_npk, false);
        break;
    case fi_gfp_npk: //suggest 50% does this and the rest choose NPK fertilizer (crop scheme only say: 100% do Slurry/NPK)
        if (!a_farm->FA_NPK(a_field, 0.0, g_date->DayInYear(15, 6) - g_date->DayInYear())) {
            // If we don't succeed on the first try, then try and try again (until 10/10 when we will succeed)
            SimpleEvent(g_date->Date() + 1, fi_gfp_npk, true);
            break;
        }
        SimpleEvent(g_date->OldDays() + g_date->DayInYear(1, 8), fi_gfp_grazing1, false);
        break;
    case fi_gfp_grazing1: // 100% cut or grazed - suggests 50% each 
        if (a_ev->m_lock || a_farm->DoIt(50)) {
            if (!a_farm->CattleOut(a_field, 0.0,
                g_date->DayInYear(30, 9) - g_date->DayInYear())) {
                SimpleEvent(g_date->Date() + 1, fi_gfp_grazing1, true);
                break;
            }
            SimpleEvent(g_date->Date() + 1, fi_gfp_cattle_is_out1, false);
            break;
        }
        else SimpleEvent(g_date->OldDays() + g_date->DayInYear(1, 8), fi_gfp_cutting1, false);
        break;
    case fi_gfp_cutting1: // 
        if (!a_farm->CutToSilage(a_field, 0.0,
            g_date->DayInYear(30, 10) - g_date->DayInYear())) {
            SimpleEvent(g_date->Date() + 1, fi_gfp_cutting1, true);
            break;
        }
        done = true;
        break;
    case fi_gfp_cattle_is_out1:    // Keep the cattle out there
                           // CattleIsOut() returns false if it is not time to stop grazing
        if (!m_farm->CattleIsOut(m_field, 0.0, g_date->DayInYear(30, 10) - g_date->DayInYear(), g_date->DayInYear(30, 10))) {
            SimpleEvent(g_date->Date() + 1, fi_gfp_cattle_is_out1, false);
            break;
        }
        done = true;
        break;
        // So we are done, and somewhere else the farmer will queue up the start event of the next crop
        // END OF MAIN THREAD
    default:
        g_msg->Warn(WARN_BUG, "FI_GreenFallow_Perm::Do(): "
            "Unknown event type! ", "");
        exit(1);
    }
    return done;
}

References Farm::CattleIsOut(), Farm::CattleOut(), LE::ClearManagementActionSum(), Farm::CutToSilage(), Calendar::Date(), Calendar::DayInYear(), Farm::DoIt(), Farm::FA_NPK(), Farm::FA_Slurry(), fi_gfp_cattle_is_out1, fi_gfp_cutting1, fi_gfp_grazing1, fi_gfp_npk, fi_gfp_slurry, fi_gfp_sow, fi_gfp_start, FI_GFP_YEARS_AFTER_SOW, g_date, g_msg, LE::GetOwner(), LE::GetPoly(), Farm::GetPreviousTov(), LE::GetRotIndex(), Farm::GetType(), Calendar::GetYearNumber(), Farm::IsStockFarmer(), Crop::m_ev, Crop::m_farm, Crop::m_field, Crop::m_first_date, FarmEvent::m_first_year, FarmEvent::m_lock, FarmEvent::m_next_tov, FarmEvent::m_startday, FarmEvent::m_todo, Calendar::OldDays(), Crop::SimpleEvent(), Farm::SpringSow(), tof_OptimisingFarm, MapErrorMsg::Warn(), and WARN_BUG.

SetUpFarmCategoryInformation()

void FI_GreenFallow_Perm::SetUpFarmCategoryInformation ( )

inline

                                        {
        const int elements = 2 + (fi_gfp_foobar - FI_GFP_BASE);
        m_base_elements_no = FI_GFP_BASE - 2;
 
        FarmManagementCategory catlist[elements] =
        {
            fmc_Others, // zero element unused but must be here 
            fmc_Others, //  fi_gfp_start = 1, // Compulsory, must always be 1 (one).
            fmc_Others, //  fi_gfp_sleep_all_day = FI_GFP_BASE,
            fmc_Others, //  fi_gfp_sow,
            fmc_Fertilizer, //  fi_gfp_npk,
            fmc_Fertilizer, //  fi_gfp_slurry,
            fmc_Grazing,    //  fi_gfp_grazing1,
            fmc_Grazing,    //  fi_gfp_cattle_is_out1,
            fmc_Cutting //  fi_gfp_cutting1,
 
 
                // no foobar entry  
 
        };
        // Iterate over the catlist elements and copy them to vector                
        copy(begin(catlist), end(catlist), back_inserter(m_ManagementCategories));
 
    }

References FI_GFP_BASE, fi_gfp_foobar, fmc_Cutting, fmc_Fertilizer, fmc_Grazing, fmc_Others, Crop::m_base_elements_no, and Crop::m_ManagementCategories.

Referenced by FI_GreenFallow_Perm().

---

The documentation for this class was generated from the following files:

• /builds/ALMaSS/ALMaSS_MIDox/Landscape/cropprogs/FI_GreenFallow_Perm.h
• /builds/ALMaSS/ALMaSS_MIDox/Landscape/cropprogs/FI_GreenFallow_Perm.cpp