ALMaSS: Farm Class Reference

•All Classes Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages

The base class for all farm types. More...

#include <Farm.h>

Inheritance diagram for Farm:

Public Member Functions
virtual void	FarmActions (void)
	FarmActions() will use the global date to manage all queued field events. More...

bool	FarmerActions (void)
	The starting point for farmer behaviour not part of crop management e.g. decision making. More...

virtual void	InitiateManagement (void)
	Kicks off the farm's management. More...

void	AddField (LE *a_newfield)
	Adds a field to a farm. More...

void	RemoveField (LE *a_field)
	Removes a field from a farm. More...

	Farm (FarmManager *a_manager)
	Farm constructor - creates an instance of each possible crop type. More...

virtual	~Farm (void)
	Farm destructor - deletes all crop instances and empties event queues. More...

void	SetFarmNumber (int a_farm_num)

int	GetFarmNumber (void)

virtual bool	Spraying_herbicides (TTypesOfVegetation)

virtual bool	Spraying_fungins (TTypesOfVegetation)

virtual double	Prob_multiplier ()

void	Assign_rotation (vector< TTypesOfVegetation >a_new_rotation)

FarmManager *	GetFarmManager ()

virtual void	Harvested (TTypesOfCrops a_toc, double a_yield)
	Records harvest results. More...

virtual void	Insecticide (int a_area)
	Records the costs of insecticide treatment, and associated score changes. More...

virtual void	Herbicide (int a_area)
	Records the costs of herbicide treatment, and associated score change. More...

TTypesOfFarm	GetFarmType ()
	Returns the farm type. More...

polylist *	ListOpenFields (int a_openness)
	Returns a list of fields with openness above a_openness. More...

void	Centroids ()
	Finds farm's centroids - x and y. More...

int	GetNoFields ()
	Returns the number of the fields owned. More...

int	GetNoOpenFields (int a_openness)
	Returns the number of the fields above an openness of a_openness. More...

int	GetAreaOpenFields (int a_openness)
	Returns the area of the fields above an openness of a_openness. More...

APoint	GetValidCoords ()
	Returns the valid coordinates of the first field owned by a farm. More...

int	GetMaxOpenness ()
	Returns the maximum openness score of the fields. More...

Farmer *	GetFarmer ()
	Returns the pointer to this farm's farmer. More...

LE *	SetFunctionData (LE *, double, double, int, FarmToDo)
	carries out standard setting of data and deals with possible unsprayed margins, returns a pointer to UM or nullptr More...

void	SetFunctionDataNoUM (LE *, double, double, int, FarmToDo)
	carries out standard setting of data when UMs should be ignored More...

virtual bool	SleepAllDay (LE *a_field, double a_user, int a_days)
	Nothing to to today on a_field. More...

virtual bool	AutumnPlough (LE *a_field, double a_user, int a_days)
	Carry out a ploughing event in the autumn on a_field. More...

void	CalculateTreatmentCosts (FarmToDo a_treatment, LE *a_field)

virtual bool	StubblePlough (LE *a_field, double a_user, int a_days)
	Carry out a stubble ploughing event on a_field. This is similar to normal plough but shallow (normally 6-8cm, is special cases up to 12-15cm). Done as a part of after-harvest treatments (instead of stubble cultivation) More...

virtual bool	StubbleCultivatorHeavy (LE *a_field, double a_user, int a_days)
	Carry out a stubble cultivation event on a_field. This is non-inversion type of cultivation which can be done instead of autumn plough (on a depth up to 40 cm even, if necessary) More...

virtual bool	AutumnHarrow (LE *a_field, double a_user, int a_days)
	Carry out a harrow event in the autumn on a_field. More...

virtual bool	AutumnRoll (LE *a_field, double a_user, int a_days)
	Carry out a roll event in the autumn on a_field. More...

virtual bool	PreseedingCultivator (LE *a_field, double a_user, int a_days)
	Carry out preseeding cultivation on a_field (tilling set including cultivator and string roller to compact soil) More...

virtual bool	PreseedingCultivatorSow (LE *a_field, double a_user, int a_days, double a_seed_coating_amount=-1, PlantProtectionProducts a_ppp=ppp_foobar)
	Carry out preseeding cultivation together with sow on a_field (tilling and sowing set including cultivator and string roller to compact soil) More...

virtual bool	AutumnSow (LE *a_field, double a_user, int a_days, double a_seed_coating_amount=-1, PlantProtectionProducts a_ppp=ppp_foobar)
	Carry out a sowing event in the autumn on a_field. More...

virtual bool	WinterPlough (LE *a_field, double a_user, int a_days)
	Carry out a ploughing event in the winter on a_field. More...

virtual bool	WinterHarrow (LE *a_field, double a_user, int a_days)
	Carry out a harrow event in the winter on a_field. More...

virtual bool	DeepPlough (LE *a_field, double a_user, int a_days)
	Carry out a deep ploughing event on a_field. More...

virtual bool	SpringPlough (LE *a_field, double a_user, int a_days)
	Carry out a ploughing event in the spring on a_field. More...

virtual bool	SpringHarrow (LE *a_field, double a_user, int a_days)
	Carry out a harrow event in the spring on a_field. More...

virtual bool	SpringRoll (LE *a_field, double a_user, int a_days)
	Carry out a roll event in the spring on a_field. More...

virtual bool	SpringSow (LE *a_field, double a_user, int a_days, double a_seed_coating_amount=-1, PlantProtectionProducts a_ppp=ppp_foobar)
	Carry out a sowing event in the spring on a_field. More...

virtual bool	SpringSowWithFerti (LE *a_field, double a_user, int a_days, double a_seed_coating_amount=-1, PlantProtectionProducts a_ppp=ppp_foobar)
	Carry out a sowing event with start fertilizer in the spring on a_field. More...

virtual bool	AutumnSowWithFerti (LE *a_field, double a_user, int a_days, double a_seed_coating_amount=-1, PlantProtectionProducts a_ppp=ppp_foobar)
	Carry out a sowing event with start fertilizer in the autumn on a_field. More...

virtual bool	HerbicideTreat (LE *a_field, double a_user, int a_days)
	Apply herbicide to a_field. More...

virtual bool	GrowthRegulator (LE *a_field, double a_user, int a_days)
	Apply growth regulator to a_field. More...

virtual bool	FungicideTreat (LE *a_field, double a_user, int a_days)
	Apply fungicide to a_field. More...

virtual bool	InsecticideTreat (LE *a_field, double a_user, int a_days)
	Apply insecticide to a_field. More...

virtual bool	BiocideTreat (LE *a_field, double a_user, int a_days)
	Apply Biocide to a_field. More...

virtual bool	OrganicInsecticide (LE *a_field, double a_user, int a_days)
	Biocide applied on a_field. More...

virtual bool	OrganicHerbicide (LE *a_field, double a_user, int a_days)
	Biocide applied on a_field. More...

virtual bool	OrganicFungicide (LE *a_field, double a_user, int a_days)
	Biocide applied on a_field. More...

virtual bool	Pheromone (LE *a_field, double a_user, int a_days)
	Pheromone applied on a_field - same as with org. pesticides for now. More...

virtual bool	ProductApplication (LE *a_field, double a_user, int a_days, double a_applicationrate, PlantProtectionProducts a_ppp, bool a_isgranularpesticide=false, int a_orcharddrifttype=0)
	Apply test pesticide to a_field. More...

virtual bool	ProductApplication_DateLimited (LE *a_field, double, int, double a_applicationrate, PlantProtectionProducts a_ppp, bool a_isgranularpesticide=false)
	Special pesticide trial functionality. More...

virtual bool	Molluscicide (LE *a_field, double a_user, int a_days)
	Apply molluscicide to a_field. More...

virtual bool	RowCultivation (LE *a_field, double a_user, int a_days)
	Carry out a harrowing between crop rows on a_field. More...

virtual bool	Strigling (LE *a_field, double a_user, int a_days)
	Carry out a mechanical weeding on a_field. More...

virtual bool	StriglingSow (LE *a_field, double a_user, int a_days, double a_seed_coating_amount=-1, PlantProtectionProducts a_ppp=ppp_foobar)
	Carry out a mechanical weeding followed by sowing on a_field. More...

virtual bool	StriglingHill (LE *a_field, double a_user, int a_days)
	Carry out a mechanical weeding on a_field followed by hilling up (probably on potatoes) More...

virtual bool	HillingUp (LE *a_field, double a_user, int a_days)
	Do hilling up on a_field, probably of potatoes. More...

virtual bool	Water (LE *a_field, double a_user, int a_days)
	Carry out a watering on a_field. More...

virtual bool	Swathing (LE *a_field, double a_user, int a_days)
	Cut the crop on a_field and leave it lying (probably rape) More...

virtual bool	Harvest (LE *a_field, double a_user, int a_days)
	Carry out a harvest on a_field. More...

virtual bool	HarvestLong (LE *a_field, double a_user, int a_days)
	Carry out a harvest on a_field (only differs in the DoIt chance cf harvest) More...

virtual bool	HarvestBushFruit (LE *a_field, double a_user, int a_days)
	Harvest bush fruit on a_field - no tramlines since fruits are picked by hand, the bush stays on field with same vegetation height, thus suspects same % insects. More...

virtual bool	HarvestBF_Machine (LE *a_field, double a_user, int a_days)
	Harvest bush fruit on a_field - tramlines since fruits are picked by machine, the bush stays on field with same vegetation height, thus suspects same % insects. More...

virtual bool	CattleOut (LE *a_field, double a_user, int a_days)
	Start a grazing event on a_field today. More...

virtual bool	CattleOut (LE *a_field, double a_user, int a_days, bool a_should_eat)
	Start an intensive grazing event on a_field today. More...

virtual bool	CattleOutLowGrazing (LE *a_field, double a_user, int a_days)
	Start a extensive grazing event on a_field today. More...

virtual bool	CattleIsOut (LE *a_field, double a_user, int a_days, int a_max)
	Generate a 'cattle_out' event for every day the cattle are on a_field. More...

virtual bool	CattleIsOut (LE *a_field, double a_user, int a_days, int a_max, bool a_should_eat)
	Generate a 'cattle_out' event for every day the cattle are on a_field. More...

virtual bool	CattleIsOutLow (LE *a_field, double a_user, int a_days, int a_max)
	Generate a 'cattle_out_low' event for every day the cattle are on a_field. More...

virtual bool	CattleIsOutLow2 (LE *a_field, double a_user, int a_days, int a_max, int a_max_days)
	Generate a 'cattle_out_low2' event for every day the cattle are on a_field, cattle is low grazing and can stay on the field till a_max date but no more days than defined by a_max_days a_days defines the number of days from the day the cattle is put on the field (set by a flag in the management plan) More...

virtual bool	PigsOut (LE *a_field, double a_user, int a_days)
	Generate a 'pigs_out' event for every day the cattle are on a_field. More...

virtual bool	PigsAreOut (LE *a_field, double a_user, int a_days)
	Start a pig grazing event on a_field today or soon. More...

virtual bool	PigsAreOutForced (LE *a_field, double a_user, int a_days)
	Start a pig grazing event on a_field today - no exceptions. More...

virtual bool	CutToHay (LE *a_field, double a_user, int a_days)
	Carry out hay cutting on a_field. More...

virtual bool	CutWeeds (LE *a_field, double a_user, int a_days)
	Carry out weed topping on a_field. More...

virtual bool	CutToSilage (LE *a_field, double a_user, int a_days)
	Cut vegetation for silage on a_field. More...

virtual bool	CutOrch (LE *a_field, double a_user, int a_days)
	Cut vegetation on orchard crop. //based on cut to silage - values from cutting function of orchard. More...

virtual bool	StrawChopping (LE *a_field, double a_user, int a_days)
	Carry out straw chopping on a_field. More...

virtual bool	HayTurning (LE *a_field, double a_user, int a_days)
	Carry out hay turning on a_field. More...

virtual bool	HayBailing (LE *a_field, double a_user, int a_days)
	Carry out hay bailing on a_field. More...

virtual bool	BurnStrawStubble (LE *a_field, double a_user, int a_days)
	Burn stubble on a_field. More...

virtual bool	BurnTop (LE *a_field, double a_user, int a_days)
	Burn tops of e.g. potatoes on a_field. More...

virtual bool	StubbleHarrowing (LE *a_field, double a_user, int a_days)
	Carry out stubble harrowing on a_field. More...

virtual bool	FP_NPKS (LE *a_field, double a_user, int a_days)
	Apply NPKS fertilizer, on a_field owned by an arable farmer. More...

virtual bool	FP_NPK (LE *a_field, double a_user, int a_days)
	Apply NPK fertilizer, on a_field owned by an arable farmer. More...

virtual bool	FP_NC (LE *a_field, double a_user, int a_days)
	Apply NC fertilizer, on a_field owned by an arable farmer. More...

virtual bool	FP_NK (LE *a_field, double a_user, int a_days)
	Apply NK fertilizer, on a_field owned by an arable farmer. More...

virtual bool	FP_NS (LE *a_field, double a_user, int a_days)
	Apply NS fertilizer, on a_field owned by an arable farmer. More...

virtual bool	FP_N (LE *a_field, double a_user, int a_days)
	Apply N fertilizer, on a_field owned by an arable farmer. More...

virtual bool	FP_PK (LE *a_field, double a_user, int a_days)
	Apply PK fertilizer, on a_field owned by an arable farmer. More...

virtual bool	FP_P (LE *a_field, double a_user, int a_days)
	Apply P fertilizer, on a_field owned by an arable farmer. More...

virtual bool	FP_K (LE *a_field, double a_user, int a_days)
	Apply K fertilizer, on a_field owned by an arable farmer. More...

virtual bool	FP_SK (LE *a_field, double a_user, int a_days)
	Apply SK fertilizer, on a_field owned by an arable farmer. More...

virtual bool	FP_LiquidNH3 (LE *a_field, double a_user, int a_days)
	Apply liquid ammonia fertilizer to a_field owned by an arable farmer. More...

virtual bool	FP_Slurry (LE *a_field, double a_user, int a_days)
	Apply slurry to a_field owned by an arable farmer. More...

virtual bool	FP_ManganeseSulphate (LE *a_field, double a_user, int a_days)
	Apply Manganse Sulphate to a_field owned by an arable farmer. More...

virtual bool	FP_Boron (LE *a_field, double a_user, int a_days)
	Apply soluble Boron to a_field owned by an arable farmer. More...

virtual bool	FP_AmmoniumSulphate (LE *a_field, double a_user, int a_days)
	Apply Ammonium Sulphate to a_field owned by an arable farmer. More...

virtual bool	FP_Manure (LE *a_field, double a_user, int a_days)
	Spread manure on a_field owned by an arable farmer. More...

virtual bool	FP_GreenManure (LE *a_field, double a_user, int a_days)
	Spread green manure on a_field owned by an arable farmer. More...

virtual bool	FP_Sludge (LE *a_field, double a_user, int a_days)
	Spread sewege on a_field owned by an arable farmer. More...

virtual bool	FP_RSM (LE *a_field, double a_user, int a_days)
	RSM (ammonium nitrate solution) applied on a_field owned by an arable farmer. More...

virtual bool	FP_Calcium (LE *a_field, double a_user, int a_days)
	Calcium applied on a_field owned by an arable farmer. More...

virtual bool	FA_NK (LE *a_field, double a_user, int a_days)
	Apply NK fertilizer, on a_field owned by an stock farmer. More...

virtual bool	FA_NPKS (LE *a_field, double a_user, int a_days)
	Apply NPKS fertilizer, on a_field owned by a stock farmer. More...

virtual bool	FA_NPK (LE *a_field, double a_user, int a_days)
	Apply NPK fertilizer to a_field owned by an stock farmer. More...

virtual bool	FA_PK (LE *a_field, double a_user, int a_days)
	Apply PK fertilizer to a_field owned by an stock farmer. More...

virtual bool	FA_P (LE *a_field, double a_user, int a_days)
	Apply P fertilizer, on a_field owned by stock farmer. More...

virtual bool	FA_K (LE *a_field, double a_user, int a_days)
	Apply K fertilizer, on a_field owned by stock farmer. More...

virtual bool	FA_SK (LE *a_field, double a_user, int a_days)
	Apply SK fertilizer, on a_field owned by an stock farmer. More...

virtual bool	FA_Slurry (LE *a_field, double a_user, int a_days)
	Spready slurry on a_field owned by an stock farmer. More...

virtual bool	FA_ManganeseSulphate (LE *a_field, double a_user, int a_days)
	Apply manganese sulphate to a_field owned by an stock farmer. More...

virtual bool	FA_AmmoniumSulphate (LE *a_field, double a_user, int a_days)
	Apply ammonium sulphate to a_field owned by an stock farmer. More...

virtual bool	FA_Manure (LE *a_field, double a_user, int a_days)
	Spread manure on a_field owned by an stock farmer. More...

virtual bool	FA_GreenManure (LE *a_field, double a_user, int a_days)
	Spread green manure on a_field owned by an stock farmer. More...

virtual bool	FA_Sludge (LE *a_field, double a_user, int a_days)
	Spread sewege sludge on a_field owned by an stock farmer. More...

virtual bool	FA_RSM (LE *a_field, double a_user, int a_days)
	RSM (ammonium nitrate solution) applied on a_field owned by a stock farmer. More...

virtual bool	FA_Calcium (LE *a_field, double a_user, int a_days)
	Calcium applied on a_field owned by a stock farmer. More...

virtual bool	BedForming (LE *a_field, double a_user, int a_days)
	Do bed forming up on a_field, probably of carrots. More...

virtual bool	ShallowHarrow (LE *a_field, double a_user, int a_days)
	Carry out a shallow harrow event on a_field, e.g., after grass cutting event. More...

virtual bool	HeavyCultivatorAggregate (LE *a_field, double a_user, int a_days)
	Carry out a heavy cultivation event on a_field. This is non-inversion type of cultivation which can be done after fertilizers application on spring for a spring crop. More...

virtual bool	FlowerCutting (LE *a_field, double a_user, int a_days)
	Flower cutting applied on a_field. More...

virtual bool	BulbHarvest (LE *a_field, double a_user, int a_days)
	Carry out a bulb harvest on a_field. More...

virtual bool	StrawCovering (LE *a_field, double a_user, int a_days)
	Straw covering applied on a_field. More...

virtual bool	StrawRemoval (LE *a_field, double a_user, int a_days)
	Straw covering applied on a_field. More...

virtual bool	IrrigationStart (LE *a_field, double a_user, int a_days)
	Start a irrigation event on a_field today. More...

virtual bool	Irrigation (LE *a_field, double a_user, int a_days, int a_max)
	Generate an 'irrigation' event with a frequency defined by a_freq in the irrigation period on a_field. More...

virtual bool	Pruning (LE *a_field, double a_user, int a_days)
	Pruning applied on a_field - details needs to be added (e.g., impact on biomass, influence/impacts in species code)! More...

virtual bool	Shredding (LE *a_field, double a_user, int a_days)
	Shredding (destruction of the pruning residues with a shredders using hammer mower) applied on a_field. More...

virtual bool	LeafThinning (LE *a_field, double a_user, int a_days)
	LeafThinning (leaf removal to increase areation and sun exposure of fruits, e.g., grapes) applied on a_field. More...

virtual bool	GreenHarvest (LE *a_field, double a_user, int a_days)
	GreenHarvest (remove of excess production that may affect the desired quality of the fruits, e.g., grapes) applied on a_field. More...

virtual bool	FruitHarvest (LE *a_field, double a_user, int a_days)
	FruitHarvest (harvest of the mature fruits, e.g., grapes) applied on a_field. More...

virtual bool	Suckering (LE *a_field, double a_user, int a_days)

virtual bool	Mowing (LE *a_field, double a_user, int a_days)
	Physical/mechanical weed control in the between-row area using a rotary mower cutter. More...

virtual bool	FiberCovering (LE *a_field, double a_user, int a_days)
	Fiber covering applied on a_field. More...

virtual bool	FiberRemoval (LE *a_field, double a_user, int a_days)
	Fiber covering removed from a_field. More...

virtual bool	FP_Cu (LE *a_field, double a_user, int a_days)
	Apply Cu fertilizer, on a_field owned by plant farmer (orchard) More...

virtual bool	FA_N (LE *a_field, double a_user, int a_days)
	Apply N fertilizer, on a_field owned by a stock farmer. More...

virtual bool	FA_Cu (LE *a_field, double a_user, int a_days)
	Apply Cu fertilizer, on a_field owned by stock farmer (orchard) More...

virtual bool	FA_Boron (LE *a_field, double a_user, int a_days)
	Apply soluble Boron to a_field owned by a stock farmer. More...

virtual bool	FA_PKS (LE *a_field, double a_user, int a_days)
	Apply PKS fertilizer to a_field owned by an stock farmer. More...

virtual bool	FP_PKS (LE *a_field, double a_user, int a_days)
	Apply PKS fertilizer to a_field owned by an arable farmer. More...

virtual bool	HarvestShoots (LE *a_field, double a_user, int a_days)
	HarvestShoots applied on a_field (e.g. asparagus) - details needs to be added (e.g., impact on biomass, influence/impacts in species code)! More...

virtual bool	ManualWeeding (LE *a_field, double a_user, int a_days)
	Manual weeding on a_field - no tramlines since weeding by hand, the bush stays on field with same vegetation height, thus suspects same % insects. More...

void	AddNewEvent (TTypesOfVegetation a_event, long a_date, LE *a_field, int a_todo, long a_num, bool a_lock, int a_start, bool a_first_year, TTypesOfVegetation a_crop, FarmManagementCategory a_fmc, bool a_forcespring, bool a_forcespringOK)
	Adds an event to the event queue for a farm. More...

bool	DoIt (double a_probability)
	Return chance out of 0 to 100. More...

bool	DoIt_prob (double a_probability)
	Return chance out of 0 to 1. More...

TTypesOfFarm	GetType (void)

string	GetRotFilename (void)

int	GetArea (void)
	Returns the area of arable fields owned by that farm. More...

int	GetTotalArea (void)
	Returns the area of all fields owned by that farm. More...

double	GetAreaDouble (void)
	Returns the area of arable fields owned by that farm. More...

bool	IsStockFarmer (void)

virtual void	MakeStockFarmer (void)

double	GetIntensity (void)

void	SetIntensity (double a_intensity)

APoint	GetCentroids ()

TTypesOfVegetation	GetPreviousTov (int a_index)

TTypesOfVegetation	GetCrop (int a_index)

TTypesOfVegetation	GetNextCrop (int a_index)

int	GetNoCrops ()

void	AddHunter (Hunter *a_hunter)

void	RemoveHunter (Hunter *a_hunter)

int	GetNextCropStartDate (LE *a_field, TTypesOfVegetation &a_curr_veg)
	Returns the start date of the next crop in the rotation. More...

Public Attributes
string	m_rotfilename

Protected Member Functions
int	GetFirstDate (TTypesOfVegetation a_tov)
	Gets the start date for a crop type. More...

int	GetForceSpringOK (TTypesOfVegetation a_tov)
	Gets the start date for a crop type. More...

virtual int	GetFirstCropIndex (TTypesOfLandscapeElement a_type)
	Gets the first crop for the farm. More...

virtual int	GetNextCropIndex (int a_rot_index)
	Returns the next crop in the rotation. More...

virtual void	HandleEvents (void)
	If there are events to carry out do this, and perhaps start a new crop. More...

bool	LeSwitch (FarmEvent *ev)
	Call do function for any crop with an outstanding event. Signal if the crop has terminated. More...

void	CheckRotationManagementLoop (FarmEvent *ev)

void	ReadRotation (std::string fname)
	Reads a rotation file into the rotation. More...

void	AssignPermanentCrop (TTypesOfVegetation tov, int pct)
	Used to assign a permanent crop to an otherwise rotational field polygon. More...

int	InvIntPartition (vector< tpct > *items, int target)
	Finds all possible sums of the integers in the items array. More...

Protected Attributes
FarmManager *	m_OurManager
	Pointer to the FarmManager. More...

Farmer *	m_OurFarmer

LowPriority< FarmEvent * >	m_queue

vector< LE * >	m_fields

vector< TTypesOfVegetation >	m_rotation

vector< PermCropData >	m_PermCrops

TTypesOfFarm	m_farmtype

HunterList	m_HuntersList
	A list of hunters allocated to this farm. More...

bool	m_stockfarmer

int	m_farm_num

int	m_rotation_sync_index

double	m_intensity
	indicates the farm intensity - 1 = normal, otherwise linear scale More...

int	m_farm_centroidx
	Farm's centroid, value x. Equal to the average of the x centroid values of all farm's fields. More...

int	m_farm_centroidy
	Farm's centroid, value y. Equal to the average of the y centroid values of all farm's fields. More...

TTypesOfFarm	m_FarmType
	The farms farm type - see TTypesOfFarm enum for types - note the use of UserDefined farms. More...

Detailed Description

The base class for all farm types.

Constructor & Destructor Documentation

◆ Farm()

Farm::Farm ( FarmManager * a_manager )

Farm constructor - creates an instance of each possible crop type.

 {
     m_OurManager = a_manager;
     m_rotation_sync_index = -1;
     // Defaults that need to be overridden when necessary
     m_FarmType = tof_Foobar;
     m_stockfarmer = false;
     m_intensity = 0.0; // Unless changed
     m_HuntersList.resize(0); // Set the number of hunters to zero at the start.
     m_OurFarmer = new Farmer(0,0,a_manager->GetLandscape(), a_manager->GetFarmerList(), this);
 }

References FarmManager::GetFarmerList(), FarmManager::GetLandscape(), and tof_Foobar.

◆ ~Farm()

Farm::~Farm ( void )

virtual

Farm destructor - deletes all crop instances and empties event queues.

                 {
  
     delete m_OurFarmer;
  
     LowPriPair < FarmEvent * > pair;
  
     while (!m_queue.Empty()) {
         pair = m_queue.Bottom();
         m_queue.Pop();
         delete pair.m_element;
     }
 }

References LowPriPair< ELEMTYPE >::m_element.

Member Function Documentation

◆ AddField()

void Farm::AddField ( LE * a_newfield )

Adds a field to a farm.

                                      {
   int i = (int) m_fields.size();
  
   m_fields.resize( i + 1 );
   m_fields[ i ] = a_newfield;
   // Must set the rot index to something other than -1, but identify it as not usefully set as yet.
     TTypesOfLandscapeElement ele = a_newfield->GetElementType();
     switch (ele) {
         case tole_PermPastureLowYield:
         case tole_YoungForest:
         case tole_PermPasture:
         case tole_PermPastureTussocky:
         case tole_PermanentSetaside:
         case tole_Orchard:
         case tole_BushFruit:
         case tole_OBushFruit:
         case tole_OOrchard:
         case tole_PlantNursery:
         case tole_OliveGrove:
         case tole_WoodyEnergyCrop:
         case tole_PermPasturePigs:
         case tole_OPermPasturePigs:
         case tole_OPermPasture:
         case tole_OPermPastureLowYield:
         case tole_ChristmasTrees:
         case tole_OChristmasTrees:
         case    tole_SolarPanel:
         case    tole_EnergyCrop:
         case    tole_OEnergyCrop:
         case    tole_FarmForest:
         case    tole_OFarmForest:
         case    tole_FarmYoungForest:
         case    tole_OFarmYoungForest:
         case    tole_AlmondPlantation:
         case    tole_WalnutPlantation:
         case    tole_FarmBufferZone:
         case    tole_NaturalFarmGrass:
         case    tole_GreenFallow:
         case    tole_FarmFeedingGround:
         case    tole_FlowersPerm:
         case    tole_PermPastureTussockyWet:
         case    tole_AsparagusPerm:
         case    tole_MushroomPerm:
         case    tole_OtherPermCrop:
         case    tole_OAsparagusPerm:
             m_fields[i]->SetRotIndex(-2);
             break;
         default:
             m_fields[ i ]->SetRotIndex(-1);
     }
 }

References tole_AlmondPlantation, tole_AsparagusPerm, tole_BushFruit, tole_ChristmasTrees, tole_EnergyCrop, tole_FarmBufferZone, tole_FarmFeedingGround, tole_FarmForest, tole_FarmYoungForest, tole_FlowersPerm, tole_GreenFallow, tole_MushroomPerm, tole_NaturalFarmGrass, tole_OAsparagusPerm, tole_OBushFruit, tole_OChristmasTrees, tole_OEnergyCrop, tole_OFarmForest, tole_OFarmYoungForest, tole_OliveGrove, tole_OOrchard, tole_OPermPasture, tole_OPermPastureLowYield, tole_OPermPasturePigs, tole_Orchard, tole_OtherPermCrop, tole_PermanentSetaside, tole_PermPasture, tole_PermPastureLowYield, tole_PermPasturePigs, tole_PermPastureTussocky, tole_PermPastureTussockyWet, tole_PlantNursery, tole_SolarPanel, tole_WalnutPlantation, tole_WoodyEnergyCrop, and tole_YoungForest.

◆ AddHunter()

void Farm::AddHunter ( Hunter * a_hunter )

inline

                                      {
         m_HuntersList.push_back(a_hunter);
     }

References m_HuntersList.

◆ AddNewEvent()

void Farm::AddNewEvent	(	TTypesOfVegetation	a_event,
		long	a_date,
		LE *	a_field,
		int	a_todo,
		long	a_num,
		bool	a_lock,
		int	a_start,
		bool	a_first_year,
		TTypesOfVegetation	a_crop,
		FarmManagementCategory	a_fmc,
		bool	a_forcespring,
		bool	a_forcespringOK
	)

Adds an event to the event queue for a farm.

                                                                                                                                        {
     FarmEvent* ev = new FarmEvent(a_event, a_field, a_todo, a_run, a_lock, a_start, a_first_year, a_crop, a_forcespring, a_forcespringOK);
     m_queue.Push(ev, a_date);
 }

Referenced by BroadBeans::Do(), DK_OLegume_Peas_CC::Do(), DK_OLegume_Beans_CC::Do(), DK_SpringOats_CC::Do(), DK_OWinterRye_CC::Do(), DK_OLegume_Whole_CC::Do(), DK_OSpringBarley_CC::Do(), NLMaizeSpring::Do(), NLMaize::Do(), DK_OSpringOats_CC::Do(), DK_SpringBarley_CC::Do(), BEWinterBarleyCC::Do(), BEWinterWheatCC::Do(), DK_WinterRye_CC::Do(), NLWinterWheat::Do(), PTCabbage_Hort::Do(), DK_WinterWheat_CC::Do(), PTMaize_Hort::Do(), DK_OWinterWheat_CC::Do(), and Crop::SimpleEvent_().

◆ Assign_rotation()

void Farm::Assign_rotation ( vector< TTypesOfVegetation > a_new_rotation )

                                                                    {
  
     m_rotation.clear();
     m_rotation = a_new_rotation;
  
 }

◆ AssignPermanentCrop()

void Farm::AssignPermanentCrop	(	TTypesOfVegetation	tov,
		int	pct
	)

protected

Used to assign a permanent crop to an otherwise rotational field polygon.

                                                                   {
     // Assumes that m_fields has all the fields already in it, and those that are occupied by permanent tole types
     // are denoted by -2 or -4 in rotindex, -1 is unassigned - can't use enum because positive values have other meanings
     
     // Here we can save some time if we have to allocate all the fields to one permanent crop
     if (a_pct == 100)
     {
         for (auto cfi = m_fields.begin(); cfi != m_fields.end(); ++cfi)
         {
             // Set the field as non-rotating
             (*cfi)->SetRotIndex(-4);
             // Assign the crop, and weeds are assumed to be undefined
             (*cfi)->SetVegType(a_tov, tov_Undefined);
         }
         return;
     }
  
     tpct a_tpct;
     // create a copy of the field vector and call it fields_cpy
     vector<LE*> fields_cpy;
     fields_cpy.resize(m_fields.size());
     copy(m_fields.begin(), m_fields.end(), fields_cpy.begin());
     vector<tpct> pcts;
     double area = 0.0;
  
     
     // First get the areas of all fields and then convert these to percentages
     int sz = (int) fields_cpy.size();
     // loop through the fields vector and remove any fields already assigned to permanent crops
     for (int i = sz - 1; i >= 0; i--) {
         if (fields_cpy[i]->GetRotIndex() < -1) {
             fields_cpy.erase(fields_cpy.begin() + i);
         }
     }
     // sum up the area
     for (auto cfi = fields_cpy.begin(); cfi != fields_cpy.end(); ++cfi) area += (*cfi)->GetArea();
     
     // Here we can take action if we only have a single field 
     int fnos = (int) fields_cpy.size();
     if (fnos<1) return; // No fields to allocate, jump out
     else if (fnos==1) {
         // Use the pct as the chance that our single field is assigned
         if (g_random_fnc(100)>=a_pct) return;
         else {
             // Add field by default
             fields_cpy[0]->SetRotIndex(-4);
             // Assign the crop
             fields_cpy[0]->SetVegType(a_tov, tov_Undefined);
             return;
         }
     }
     // By here we have more than one field to potentially allocate to
     for (int i=0; i<fnos; i++) {
         a_tpct.pct = (int) floor(0.5+((fields_cpy[i]->GetArea()/area)*100));
         a_tpct.index = i;
         pcts.push_back(a_tpct);
     }
     // We need to look for combinations of fields that are close to our target.
     // First we can sort the array and ignore any that are greater than pct
     sort (pcts.begin(), pcts.end(), CompPcts); // results in ordering on increasing pct
     // now remove all those with pct>target+10% to save loads of time in the inverse integer partition
     int index=-1;
     int ind=0;
     int apct=a_pct+10; // Lets assume we have a tolerance of 10%
     while ((index==-1) && (ind< (int)pcts.size())) {
         if (pcts[ind++].pct>apct) index=ind;
     }
     if (index!=-1) pcts.erase(pcts.begin()+index,pcts.end());
     // Now find the best combination of fields to get close to our target & set them
     int bits = InvIntPartition(&pcts,a_pct);
     int mask=1;
     ind = 0;
     int used=0;
     //double pctused = 0.0;
     double check = 0.0;
     for (int h=0; h< (int)pcts.size(); h++) check+=fields_cpy[pcts[h].index]->GetArea();
     while (bits>0) {
         if ((bits & mask) > 0) {
             // Set the field as non-rotating
             fields_cpy[pcts[ind].index]->SetRotIndex(-4);
             // Assign the crop
             fields_cpy[pcts[ind].index]->SetVegType(a_tov, tov_Undefined);
             used += (int) fields_cpy[pcts[ind].index]->GetArea();
             //pctused = used/area;
             bits -= mask;
         }
         mask = mask << 1;
         ind++;
     }
 }

References CompPcts(), g_random_fnc(), GetArea(), tpct::index, InvIntPartition(), m_fields, tpct::pct, and tov_Undefined.

◆ AutumnHarrow()

bool Farm::AutumnHarrow	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a harrow event in the autumn on a_field.

carries out standard setting of data and deals with possible unsprayed margins, returns a pointer to UM or nullptr

 {
   if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
       SetFunctionData(a_field, 0.1, 0.0,  0,autumn_harrow);
       return true;
   }
   return false;
 }

References autumn_harrow, DO_IT_PROB, g_weather, and Weather::Raining().

Referenced by WinterRapeStrigling::Do(), DK_OLegume::Do(), OWinterBarleyExt::Do(), OWinterBarley::Do(), OWinterRye::Do(), DE_OWinterWheat::Do(), OTriticale::Do(), DK_OWinterBarley::Do(), UKBeans::Do(), DK_OSugarBeet::Do(), DK_OFodderBeet::Do(), DE_OWinterRape::Do(), OWinterWheat::Do(), OWinterWheatUndersown::Do(), OWinterWheatUndersownExt::Do(), Triticale::Do(), UKBeet::Do(), OWinterRape::Do(), UKSpringBarley::Do(), UKWinterBarley::Do(), DK_OWinterRape::Do(), DE_OCarrots::Do(), DK_WinterBarley::Do(), DKOBroadBeans_test::Do(), UKWinterWheat::Do(), WinterRyeStrigling::Do(), PLCarrots::Do(), UKWinterRape::Do(), WinterRye::Do(), DK_Cabbages::Do(), PTBeans::Do(), PTTurnipGrazed::Do(), DK_WinterWheat::Do(), DK_WinterWheat_CC::Do(), PTOtherDryBeans::Do(), PTHorticulture::Do(), PLFodderLucerne1::Do(), DK_Potato::Do(), DK_OBushFruit_Perm2::Do(), PTOats::Do(), DE_HerbsPerennial_1year::Do(), DE_OHerbsPerennial_1year::Do(), WinterWheatStrigling::Do(), WinterWheatStriglingSingle::Do(), WinterWheatStriglingCulm::Do(), PLBeans::Do(), PTWinterBarley::Do(), PTWinterRye::Do(), PTWinterWheat::Do(), DK_WinterRape::Do(), PTTriticale::Do(), PTGrassGrazed::Do(), PTYellowLupin::Do(), WinterRape::Do(), WinterBarleyStrigling::Do(), DK_PotatoSeed::Do(), DK_PotatoIndustry::Do(), PTRyegrass::Do(), WinterBarley::Do(), PLWinterRye::Do(), DK_OBushFruit_Perm1::Do(), FR_Sorghum::Do(), FR_Maize::Do(), DK_OWinterWheat_CC::Do(), FR_Maize_Silage::Do(), PLMaizeSilage::Do(), PLSpringBarley::Do(), DK_OWinterWheat::Do(), PLMaize::Do(), FR_WinterTriticale::Do(), FI_OWinterRye::Do(), PLWinterTriticale::Do(), FR_Sunflower::Do(), DK_OWinterFodderGrass::Do(), DE_OTriticale::Do(), DE_OWinterRye::Do(), FI_OWinterWheat::Do(), PLWinterBarley::Do(), PLWinterWheat::Do(), PLBeet::Do(), DK_OWinterCloverGrassGrazedSown::Do(), PLWinterWheatLate::Do(), PLSpringWheat::Do(), PLPotatoes::Do(), PLWinterRape::Do(), DE_GrasslandSilageAnnual::Do(), FR_WinterBarley::Do(), FI_WinterWheat::Do(), DK_BushFruit_Perm2::Do(), IRWinterBarley::Do(), IRWinterOats::Do(), FI_WinterRye::Do(), DE_Triticale::Do(), FR_WinterWheat::Do(), IRWinterWheat::Do(), FR_WinterRape::Do(), DE_WinterRape::Do(), WinterWheat::Do(), DE_Potatoes::Do(), DE_PotatoesIndustry::Do(), DK_OChristmasTrees_Perm::Do(), and DK_ChristmasTrees_Perm::Do().

◆ AutumnPlough()

bool Farm::AutumnPlough	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a ploughing event in the autumn on a_field.

 {
     // LE is a pointer to the field element
     // a_user is a pointer to the farm
     // a_days is the end of the operation time - today
     // if a_days <0 then the time to do it is passed
     // the line below reads 'plough if last day possible OR if not raining and pass a probability test
     if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         // Set the data for this, in this case 90% insect mortality and remove all veg, not tramline open time, the treatment is autumn plough
         SetFunctionData(a_field, 0.1, 0.0, 0, autumn_plough);
         return true;      // completed
     }
     return false;       // not completed
 }

References autumn_plough, DO_IT_PROB, g_weather, and Weather::Raining().

◆ AutumnRoll()

bool Farm::AutumnRoll	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a roll event in the autumn on a_field.

 {
   if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
     SetFunctionData(a_field, 0.9, 1.0, 0, autumn_roll);
     return true;
   }
   return false;
 }

References autumn_roll, DO_IT_PROB, g_weather, and Weather::Raining().

Referenced by OTriticale::Do(), DK_SpringWheat::Do(), Triticale::Do(), DK_WinterFodderGrass::Do(), DK_WinterCloverGrassGrazedSown::Do(), DK_WinterBarley::Do(), DK_WinterRye::Do(), DK_WinterRye_CC::Do(), WinterRyeStrigling::Do(), WinterRye::Do(), DK_WinterWheat::Do(), DK_WinterWheat_CC::Do(), WinterWheatStriglingSingle::Do(), WinterWheatStrigling::Do(), WinterWheatStriglingCulm::Do(), PTGrassGrazed::Do(), PLWinterRye::Do(), PLWinterTriticale::Do(), PTCloverGrassGrazed1::Do(), PLWinterBarley::Do(), PLWinterWheat::Do(), PLWinterWheatLate::Do(), DE_WinterBarley::Do(), PLWinterRape::Do(), IRWinterOats::Do(), IRWinterBarley::Do(), DE_WinterWheatLate::Do(), IRWinterWheat::Do(), DE_WinterRape::Do(), and WinterWheat::Do().

◆ AutumnSow()

bool Farm::AutumnSow	(	LE *	a_field,
		double	a_user,
		int	a_days,
		double	a_seed_coating_amount = `-1`,
		PlantProtectionProducts	a_ppp = `ppp_foobar`
	)

virtual

Carry out a sowing event in the autumn on a_field.

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         LE* um = SetFunctionData(a_field, 1.0, 0.0, 0, autumn_sow);
         a_field->SetGrowthPhase(sow); // as with AutumnSow treatment
         a_field->SetLastSownVeg(a_field->GetVegType()); // as with AutumnSow treatment
         //start the flowering period.
         if(a_field->GetPollenNectarCurveRef()<0){
             a_field->CalculateFlowerResourceForCropSow(a_field->GetVegType());
         }
         // Apply seed coating if turned on 
         if (a_seed_coating_amount > 0) {
             g_pest->DailyQueueAddSeedCoating(a_field, a_seed_coating_amount/10000, a_ppp); // Application rate is changed from g/ha to g/m2
         }
         if (um != nullptr) {
             um->SetGrowthPhase(sow);
             um->SetLastSownVeg(a_field->GetVegType());
             //start the flowering period.
             if(um->GetPollenNectarCurveRef()<0){
                 um->CalculateFlowerResourceForCropSow(um->GetVegType());
             }
             // Apply seed coating if turned on 
             if (a_seed_coating_amount > 0) {
                 g_pest->DailyQueueAddSeedCoating(um, a_seed_coating_amount/10000, a_ppp); // Application rate is changed from g/ha to g/m2
             }
         }
         return true;
     }
     return false;
 }

References autumn_sow, LE::CalculateFlowerResourceForCropSow(), Pesticide::DailyQueueAddSeedCoating(), DO_IT_PROB, g_pest, g_weather, LE::GetPollenNectarCurveRef(), Weather::Raining(), LE::SetGrowthPhase(), LE::SetLastSownVeg(), and sow.

◆ AutumnSowWithFerti()

bool Farm::AutumnSowWithFerti	(	LE *	a_field,
		double	a_user,
		int	a_days,
		double	a_seed_coating_amount = `-1`,
		PlantProtectionProducts	a_ppp = `ppp_foobar`
	)

virtual

Carry out a sowing event with start fertilizer in the autumn on a_field.

 {
     FarmToDo treatment = autumn_sow_with_ferti;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         LE* um = SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
         a_field->SetGrowthPhase(sow);
         a_field->SetLastSownVeg(a_field->GetVegType());
         //start the flowering period.
         if(a_field->GetPollenNectarCurveRef()<0){
             a_field->CalculateFlowerResourceForCropSow(a_field->GetVegType());
         }
         // Apply seed coating if turned on 
         if (a_seed_coating_amount > 0) {
             g_pest->DailyQueueAddSeedCoating(a_field, a_seed_coating_amount/10000, a_ppp); // Application rate is changed from g/ha to g/m2
         }
         if (um != nullptr)
         {
             um->SetGrowthPhase(sow);
             um->SetLastSownVeg(um->GetVegType());
             //start the flowering period.
             if(um->GetPollenNectarCurveRef()<0){
                 um->CalculateFlowerResourceForCropSow(um->GetVegType());
             }
             // Apply seed coating if turned on 
             if (a_seed_coating_amount > 0) {
                 g_pest->DailyQueueAddSeedCoating(um, a_seed_coating_amount/10000, a_ppp); // Application rate is changed from g/ha to g/m2
             }
         }
         return true;
     }
     return false;
 }

References autumn_sow_with_ferti, LE::CalculateFlowerResourceForCropSow(), Pesticide::DailyQueueAddSeedCoating(), DO_IT_PROB, g_pest, g_weather, LE::GetPollenNectarCurveRef(), Weather::Raining(), LE::SetGrowthPhase(), LE::SetLastSownVeg(), and sow.

Referenced by SE_WinterRape_Seed::Do(), and SE_WinterWheat::Do().

◆ BedForming()

bool Farm::BedForming	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Do bed forming up on a_field, probably of carrots.

 {
     FarmToDo treatment = bed_forming;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 0.9, 0.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References bed_forming, DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, and Weather::Raining().

Referenced by NLCarrotsSpring::Do(), DE_OCarrots::Do(), DK_OCarrots::Do(), NLCarrots::Do(), DK_Carrots_Spring::Do(), PLCarrots::Do(), DK_Carrots::Do(), UKPotatoes::Do(), PTPotatoes::Do(), NLPotatoesSpring::Do(), NLPotatoes::Do(), NLTulips::Do(), and DE_Carrots::Do().

◆ BiocideTreat()

bool Farm::BiocideTreat	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply Biocide to a_field.

 {
     constexpr FarmToDo treatment = biocide;
     if ((0 >= a_days) || ((g_weather->GetWind() < cfg_pest_max_wind.value()) && (!g_weather->Raining()) && DoIt(DO_IT_PROB))) {
         a_field->Trace(treatment);
         a_field->SetLastTreatment(treatment);
         if (l_farm_insecticide_kills.value()) {
             a_field->Insecticide(1-(0.64*(1-cfg_biocide_reduction_val.value())));
         }
         a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References biocide, cfg_biocide_reduction_val, cfg_pest_max_wind, DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, Weather::GetWind(), LE::Insecticide(), l_farm_insecticide_kills, Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), CfgFloat::value(), and CfgBool::value().

Referenced by FI_SugarBeet::Do(), FI_Potato_North::Do(), FI_StarchPotato_North::Do(), FI_PotatoIndustry_North::Do(), FI_Potato_South::Do(), FI_PotatoIndustry_South::Do(), FI_StarchPotato_South::Do(), BEWinterWheatCC::Do(), BEWinterWheat::Do(), NLWinterWheat::Do(), DK_WinterWheat::Do(), DK_WinterWheat_CC::Do(), DK_Potato::Do(), DK_WinterRape::Do(), BEPotatoesSpring::Do(), DK_PotatoSeed::Do(), DK_PotatoIndustry::Do(), NLPotatoesSpring::Do(), BEPotatoes::Do(), FR_Maize::Do(), FR_Maize_Silage::Do(), PLMaizeSilage::Do(), NLPotatoes::Do(), PLMaize::Do(), FI_SpringRape::Do(), PLWinterWheat::Do(), FI_SpringWheat::Do(), PLWinterWheatLate::Do(), PLPotatoes::Do(), PLWinterRape::Do(), FI_WinterWheat::Do(), DE_WinterWheatLate::Do(), DE_WinterWheat::Do(), FR_WinterWheat::Do(), FR_WinterRape::Do(), FR_Potatoes::Do(), DE_WinterRape::Do(), DE_Potatoes::Do(), and DE_PotatoesIndustry::Do().

◆ BulbHarvest()

bool Farm::BulbHarvest	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a bulb harvest on a_field.

 {
     FarmToDo treatment = bulb_harvest;
     //5 days good weather before
     if ((0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(), 5) < 0.1) && DoIt(DO_IT_PROB))) {
         LE* um = SetFunctionData(a_field, 0.3, 0.0, EL_TRAMLINE_DECAYTIME, treatment);
         double insects = a_field->GetInsectPop();
         a_field->SetGrowthPhase(harvest1);
         double biomassBefore = a_field->GetVegBiomass();
         a_field->RecalculateBugsNStuff();
         double reduc = a_field->GetVegBiomass() / biomassBefore;
         if (reduc > 0 && reduc < 1) g_pest->ReducePlantPesticide(a_field->GetMinX(), a_field->GetMaxX(), a_field->GetMinY(), a_field->GetMaxY(), a_field->GetMapIndex(), reduc, true);
         a_field->ResetDigestibility();
         a_field->PollenNectarReset();
         if (um != nullptr) {
             um->SetGrowthPhase(harvest1);
             double biomassBefore = um->GetVegBiomass();
             um->RecalculateBugsNStuff();
             double reduc = um->GetVegBiomass() / biomassBefore;
             if (reduc > 0 && reduc < 1) g_pest->ReducePlantPesticide(um->GetMinX(), um->GetMaxX(), um->GetMinY(), um->GetMapIndex(), reduc, true);
             um->ResetDigestibility();
             um->PollenNectarReset();
         }
         return true;
     }
     return false;
 }

References bulb_harvest, Calendar::Date(), DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_date, g_pest, g_weather, LE::GetInsectPop(), LE::GetMapIndex(), LE::GetMaxX(), LE::GetMaxY(), LE::GetMinX(), LE::GetMinY(), Weather::GetRainPeriod(), LE::GetVegBiomass(), harvest1, LE::PollenNectarReset(), LE::RecalculateBugsNStuff(), Pesticide::ReducePlantPesticide(), LE::ResetDigestibility(), and LE::SetGrowthPhase().

Referenced by NLTulips::Do().

◆ BurnStrawStubble()

bool Farm::BurnStrawStubble	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Burn stubble on a_field.

 {
     FarmToDo treatment = burn_straw_stubble;
     if ((0 >= a_days) && (g_weather->GetRainPeriod(g_date->Date(), 3) > 0.1))
     {
         return true;
     }
     if ((0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(), 3) < 0.1)
         && DoIt(DO_IT_PROB)))
     {
         SetFunctionData(a_field, 0.4, 0.2, 0, treatment);
         return true;
     }
     return false;
 }

References burn_straw_stubble, Calendar::Date(), DO_IT_PROB, g_date, g_weather, and Weather::GetRainPeriod().

Referenced by OSeedGrass1::Do(), OSeedGrass2::Do(), SeedGrass1::Do(), SeedGrass2::Do(), SpringBarleySeed::Do(), DE_OCarrots::Do(), DK_OCarrots::Do(), DK_SeedGrassRye_Spring::Do(), and DK_SeedGrassFescue_Spring::Do().

◆ BurnTop()

bool Farm::BurnTop	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Burn tops of e.g. potatoes on a_field.

 {
     FarmToDo treatment = burn_top;
     if ((0 >= a_days) && (g_weather->GetRainPeriod(g_date->Date(), 3) > 0.1))
     {
         return true;
     }
     if ((0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(), 3) < 0.1)
         && DoIt(DO_IT_PROB)))
     {
         SetFunctionData(a_field, 0.4, 0.2, 0, treatment);
         return true;
     }
     return false;
 }

References burn_top, Calendar::Date(), DO_IT_PROB, g_date, g_weather, and Weather::GetRainPeriod().

Referenced by DK_OPotato::Do(), DK_OPotatoSeed::Do(), and DK_OPotatoIndustry::Do().

◆ CalculateTreatmentCosts()

void Farm::CalculateTreatmentCosts	(	FarmToDo	a_treatment,
		LE *	a_field
	)

 {
  
     if (cfg_UseSocioEconomicFarm.value()) {
         FarmFuncsCostBenefits FFCB = m_OurManager->Get_FarmFuncsCB(a_treatment);
         double area = a_field->GetArea();
         double total_economic_cost_of_the_treatment = FFCB.EconomicCost * area;
         double total_labour_cost_of_the_treatment = FFCB.LabourCost * area;
         m_OurFarmer->AddCost(total_economic_cost_of_the_treatment);
         m_OurFarmer->AddLabourCost(total_labour_cost_of_the_treatment);
         m_OurFarmer->ChangeRiskScore(FFCB.RiskAvoidance);
         m_OurFarmer->ChangeEnvironmentScore(FFCB.EnvImpact * area);
         a_field->AddManagementActionDone(FFCB.ManagementCategory);
     }

References LE::AddManagementActionDone(), cfg_UseSocioEconomicFarm, FarmFuncsCostBenefits::EconomicCost, FarmFuncsCostBenefits::EnvImpact, FarmManager::Get_FarmFuncsCB(), LE::GetArea(), FarmFuncsCostBenefits::LabourCost, m_OurFarmer, m_OurManager, FarmFuncsCostBenefits::ManagementCategory, FarmFuncsCostBenefits::RiskAvoidance, and CfgBool::value().

◆ CattleIsOut() [1/2]

bool Farm::CattleIsOut	(	LE *	a_field,
		double	a_user,
		int	a_days,
		int	a_max
	)

virtual

Generate a 'cattle_out' event for every day the cattle are on a_field.

This is the main grazing method and as such is called by all grazed field management plans each day the cattle are out.

 {
     FarmToDo treatment = cattle_out;
     double biomass = a_field->GetVegBiomass();
     if (biomass > 100.0)
     {
         a_field->SetLastTreatment(treatment);
         a_field->Trace(treatment);
         // Reduce the vegetation because of grazing
         //double h=a_field->GetVegHeight();
         //double reduc = 1-(l_farm_cattle_veg_reduce.value()*((h-15)/15));
         //a_field->ReduceVeg_Extended( reduc );
         a_field->GrazeVegetation(l_farm_cattle_veg_reduce.value(), false);
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1)
         {
             // Must have an unsprayed margin so need to pass the information on to it
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->SetLastTreatment(treatment);
             um->GrazeVegetation(l_farm_cattle_veg_reduce.value(), false);
         }
     }
     int d1 = g_date->DayInYear(10, 9);
     if (d1 > a_max) d1 = a_max;
     if ((((g_date->DayInYear() > d1) && (10 >= a_days)) && DoIt(10)) || (0 >= a_days))
     {
         a_field->ToggleCattleGrazing();
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1) {
             // Must have an unsprayed margin so need to pass the information on to it
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->ToggleCattleGrazing();
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References cattle_out, Calendar::DayInYear(), g_date, g_landscape_ptr, LE::GetUnsprayedMarginPolyRef(), LE::GetVegBiomass(), LE::GrazeVegetation(), l_farm_cattle_veg_reduce, LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::ToggleCattleGrazing(), and CfgFloat::value().

◆ CattleIsOut() [2/2]

bool Farm::CattleIsOut	(	LE *	a_field,
		double	a_user,
		int	a_days,
		int	a_max,
		bool	a_should_eat
	)

virtual

Generate a 'cattle_out' event for every day the cattle are on a_field.

This is the main grazing method and as such is called by all grazed field management plans each day the cattle are out.

 {
  
     FarmToDo treatment = cattle_out;
     if (a_should_eat) {
         a_field->SetLastTreatment(treatment);
         a_field->Trace(treatment);
         a_field->GrazeVegetationHeight(cfg_farm_cattle_reduce_height.value(a_field->GetCattleGrazing()-1));
         a_field->SetGrowthPhase(harvest2);
     
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1)
         {
             // Must have an unsprayed margin so need to pass the information on to it
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->SetLastTreatment(treatment);
             um->GrazeVegetationHeight(cfg_farm_cattle_reduce_height.value(a_field->GetCattleGrazing()-1));
             um->SetGrowthPhase(harvest2);
         }
     }
     int d1 = g_date->DayInYear(10, 9);
     if (d1 > a_max) d1 = a_max;
     if ((((g_date->DayInYear() > d1) && (10 >= a_days)) && DoIt(10)) || (0 >= a_days))
     {
         a_field->ToggleCattleGrazing();
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1) {
             // Must have an unsprayed margin so need to pass the information on to it
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->ToggleCattleGrazing();
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References cattle_out, cfg_farm_cattle_reduce_height, Calendar::DayInYear(), g_date, g_landscape_ptr, LE::GetCattleGrazing(), LE::GetUnsprayedMarginPolyRef(), LE::GrazeVegetationHeight(), harvest2, LE::SetGrowthPhase(), LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::ToggleCattleGrazing(), and CfgArray_Double::value().

◆ CattleIsOutLow()

bool Farm::CattleIsOutLow	(	LE *	a_field,
		double	a_user,
		int	a_days,
		int	a_max
	)

virtual

Generate a 'cattle_out_low' event for every day the cattle are on a_field.

 {
     FarmToDo treatment = cattle_out_low;
     // Generate a 'cattle_in_out' event for every day the cattle is on the
     // field.
     double biomass = a_field->GetVegBiomass();
     if (biomass > 100.0)
     {
         a_field->SetLastTreatment(treatment);
         a_field->Trace(treatment);
         // Reduce the vegetation because of grazing
         //double h=a_field->GetVegHeight();
         //double reduc = 1-(l_farm_cattle_veg_reduce2.value()*((h-15)/15));
         //a_field->ReduceVeg_Extended( reduc );
         a_field->GrazeVegetation(l_farm_cattle_veg_reduce2.value(), false);
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1)
         {
             // Must have an unsprayed margin so need to pass the information on to it
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->SetLastTreatment(treatment);
             um->GrazeVegetation(l_farm_cattle_veg_reduce2.value(), false);
         }
     }
     int d1 = g_date->DayInYear(10, 9);
     if (d1 > a_max) d1 = a_max;
     if ((((g_date->DayInYear() > d1) && (10 >= a_days)) && DoIt(10)) || (0 >= a_days))
     {
         a_field->ToggleCattleGrazing();
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1) {
             // Must have an unsprayed margin so need to pass the information on to it
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->ToggleCattleGrazing();
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References cattle_out_low, Calendar::DayInYear(), g_date, g_landscape_ptr, LE::GetUnsprayedMarginPolyRef(), LE::GetVegBiomass(), LE::GrazeVegetation(), l_farm_cattle_veg_reduce2, LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::ToggleCattleGrazing(), and CfgFloat::value().

Referenced by PermanentGrassTussocky::Do(), OPermanentGrassGrazed::Do(), OBarleyPeaCloverGrass::Do(), and DE_OPermanentGrassGrazed::Do().

◆ CattleIsOutLow2()

bool Farm::CattleIsOutLow2	(	LE *	a_field,
		double	a_user,
		int	a_days,
		int	a_max,
		int	a_max_days
	)

virtual

Generate a 'cattle_out_low2' event for every day the cattle are on a_field, cattle is low grazing and can stay on the field till a_max date but no more days than defined by a_max_days a_days defines the number of days from the day the cattle is put on the field (set by a flag in the management plan)

 {
     FarmToDo treatment = cattle_out_low;
     // Generate a 'cattle_in_out' event for every day the cattle is on the
     // field.
     double biomass = a_field->GetVegBiomass();
     if (biomass > 100.0)
     {
         a_field->SetLastTreatment(treatment);
         a_field->Trace(treatment);
         // Reduce the vegetation because of grazing
         //double h=a_field->GetVegHeight();
         //double reduc = 1-(l_farm_cattle_veg_reduce2.value()*((h-15)/15));
         //a_field->ReduceVeg_Extended( reduc );
         a_field->GrazeVegetation(l_farm_cattle_veg_reduce2.value(), false);
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1)
         {
             // Must have an unsprayed margin so need to pass the information on to it
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->SetLastTreatment(treatment);
             um->GrazeVegetation(l_farm_cattle_veg_reduce2.value(), false);
         }
     }
     if ((g_date->DayInYear() > a_max) || (a_max_days < a_days))
     {
         a_field->ToggleCattleGrazing();
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1) {
             // Must have an unsprayed margin so need to pass the information on to it
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->ToggleCattleGrazing();
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

Referenced by PTTurnipGrazed::Do(), PTShrubPastures::Do(), PTCloverGrassGrazed2::Do(), PTFodderMix::Do(), PTGrassGrazed::Do(), PTYellowLupin::Do(), PTCloverGrassGrazed1::Do(), and PTPermanentGrassGrazed::Do().

◆ CattleOut() [1/2]

bool Farm::CattleOut	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Start a grazing event on a_field today.

This is the main initiate grazing method and as such is called by all grazed field management plans at the moment cattle are put out.

 {
     FarmToDo treatment = cattle_out;
     if ((0 >= a_days) || DoIt(DO_IT_PROB))
     {
         a_field->ToggleCattleGrazing();
         a_field->Trace(treatment);
         a_field->SetLastTreatment(treatment);
         // Reduce the vegetation because of grazing
         //double h=a_field->GetVegHeight();
         //double reduc = 1-(l_farm_cattle_veg_reduce.value()*((h-15)/15));
         //a_field->ReduceVeg_Extended( reduc );
         a_field->GrazeVegetation(l_farm_cattle_veg_reduce.value(), false);
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1)
         {
             // Must have an unsprayed margin so need to pass the information on to it
             // This happens if all arable fields are given unsprayed margins - they have no effect on grass unless it is sprayed with pesticides
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->ToggleCattleGrazing();
             um->SetLastTreatment(treatment);
             um->GrazeVegetation(l_farm_cattle_veg_reduce.value(), false);
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References cattle_out, DO_IT_PROB, g_landscape_ptr, LE::GetUnsprayedMarginPolyRef(), LE::GrazeVegetation(), l_farm_cattle_veg_reduce, LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::ToggleCattleGrazing(), and CfgFloat::value().

◆ CattleOut() [2/2]

bool Farm::CattleOut	(	LE *	a_field,
		double	a_user,
		int	a_days,
		bool	a_should_eat
	)

virtual

Start an intensive grazing event on a_field today.

This is the main initiate grazing method and as such is called by all grazed field management plans at the moment cattle are put out.

 {
  
     FarmToDo treatment = cattle_out;
     if ((0 >= a_days) || DoIt(DO_IT_PROB))
     {
         a_field->ToggleCattleGrazing();
         if (a_should_eat){
             a_field->Trace(treatment);
             a_field->SetLastTreatment(treatment);
             a_field->GrazeVegetationHeight(cfg_farm_cattle_reduce_height.value(a_field->GetCattleGrazing()-1));
             int pref = a_field->GetUnsprayedMarginPolyRef();
             if (pref != -1)
             {
                 // Must have an unsprayed margin so need to pass the information on to it
                 //This happens if all arable fields are given unsprayed margins - they have no effect on grass unless it is sprayed with pesticides
                 LE* um = g_landscape_ptr->SupplyLEPointer(pref);
                 um->ToggleCattleGrazing();
                 um->SetLastTreatment(treatment);
                 um->GrazeVegetationHeight(cfg_farm_cattle_reduce_height.value(a_field->GetCattleGrazing()-1));
             }
             CalculateTreatmentCosts(treatment, a_field);
         }
         return true;
     }
     return false;
 }

References cattle_out, cfg_farm_cattle_reduce_height, DO_IT_PROB, g_landscape_ptr, LE::GetCattleGrazing(), LE::GetUnsprayedMarginPolyRef(), LE::GrazeVegetationHeight(), LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::ToggleCattleGrazing(), and CfgArray_Double::value().

◆ CattleOutLowGrazing()

bool Farm::CattleOutLowGrazing	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Start a extensive grazing event on a_field today.

 {
     FarmToDo treatment = cattle_out_low;
     if ((0 >= a_days) || DoIt(DO_IT_PROB)) {
         a_field->ToggleCattleGrazing();
         a_field->Trace(treatment);
         a_field->SetLastTreatment(treatment);
         // Reduce the vegetation because of grazing
         //double h=a_field->GetVegHeight();
         //double reduc = 1-(l_farm_cattle_veg_reduce.value()*((h-15)/15));
         //a_field->ReduceVeg_Extended( reduc );
         a_field->GrazeVegetation(l_farm_cattle_veg_reduce2.value(), false);
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1) {
             // Must have an unsprayed margin so need to pass the information on to it
                // This happens if all arable fields are given unsprayed margins - they have no effect on grass unless it is sprayed with pesticides
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->ToggleCattleGrazing();
             um->SetLastTreatment(treatment);
             um->GrazeVegetation(l_farm_cattle_veg_reduce2.value(), false);
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References cattle_out_low, DO_IT_PROB, g_landscape_ptr, LE::GetUnsprayedMarginPolyRef(), LE::GrazeVegetation(), l_farm_cattle_veg_reduce2, LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::ToggleCattleGrazing(), and CfgFloat::value().

Referenced by PermanentGrassTussocky::Do(), OPermanentGrassGrazed::Do(), OBarleyPeaCloverGrass::Do(), PTTurnipGrazed::Do(), DE_OPermanentGrassGrazed::Do(), PTShrubPastures::Do(), PTFodderMix::Do(), PTCloverGrassGrazed2::Do(), PTGrassGrazed::Do(), PTYellowLupin::Do(), PTCloverGrassGrazed1::Do(), and PTPermanentGrassGrazed::Do().

◆ Centroids()

void Farm::Centroids ( )

Finds farm's centroids - x and y.

Calculate a farm's centroid as an average of its fields' centroids.

For now we assume the farmer location is the same as the farm centroid.

                     {
  
     int sum_centroidx = 0;
     int sum_centroidy = 0;
     int no_fields = (int)m_fields.size();
     for (int i=0; i<no_fields; i++){
         sum_centroidx += m_fields[i]->GetCentroidX();
         sum_centroidy += m_fields[i]->GetCentroidY();
     }
     if (no_fields>0){
         m_farm_centroidx = sum_centroidx/no_fields;
         m_farm_centroidy = sum_centroidy/no_fields;
     }
     else{
         g_msg->Warn("Farm::Centroids", "Farm with no fields ("+ to_string(GetFarmNumber())+ ") is detected. Proceeding.");
         cout<<"Farm::Centroids: Farm with no fields ("<<GetFarmNumber() << ") is detected. Proceeding."<<endl;
         m_farm_centroidx = 0;
         m_farm_centroidy = 0;
     }
  
     m_OurFarmer->SetX(m_farm_centroidx);
     m_OurFarmer->SetY(m_farm_centroidy);
 }

References g_msg, GetFarmNumber(), m_farm_centroidx, m_farm_centroidy, m_fields, m_OurFarmer, and MapErrorMsg::Warn().

◆ CheckRotationManagementLoop()

void Farm::CheckRotationManagementLoop ( FarmEvent * ev )

protected

Rotation error check function

                                                        {
   if ( ev->m_field->GetMgtLoopDetectDate() == g_date->Date() ) {
     // The last crop managment plan stopped on the same day as
     // it was started.
  
     // Bump loop counter.
     ev->m_field->SetMgtLoopDetectCount( ev->m_field->GetMgtLoopDetectCount() + 1 );
  
     if ( ev->m_field->GetMgtLoopDetectCount() > ( long )( m_rotation.size() + 2 ) ) {
       // We have a loop.
       char errornum[ 20 ];
       sprintf( errornum, "%d", m_farmtype );
       g_msg->Warn( WARN_BUG, "Rotation management loop detected in farmtype ", errornum );
       exit( 1 );
     }
   } else {
     ev->m_field->SetMgtLoopDetectCount( 0 );
   }
 }

References Calendar::Date(), g_date, g_msg, FarmEvent::m_field, MapErrorMsg::Warn(), and WARN_BUG.

◆ CutOrch()

bool Farm::CutOrch	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Cut vegetation on orchard crop. //based on cut to silage - values from cutting function of orchard.

 {
     FarmToDo treatment = mow;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         LE* um = SetFunctionData(a_field, 0.4, 0.2, 0, treatment);
         a_field->SetMownDecay(12); // 12 days of not suitable
         a_field->SetVegParameters(l_el_o_cut_height.value(), l_el_o_cut_total.value(), l_el_o_cut_green.value(), 0); //is 0 ok for weed biomass
         if (um != nullptr) {
             um->SetVegParameters(l_el_o_cut_height.value(), l_el_o_cut_total.value(), l_el_o_cut_green.value(), 0);
             um->SetMownDecay(12); // 12 days of not suitable
         }
         return true;
     }
     return false;
 }

References DO_IT_PROB, g_weather, l_el_o_cut_green, l_el_o_cut_height, l_el_o_cut_total, mow, Weather::Raining(), LE::SetMownDecay(), LE::SetVegParameters(), and CfgFloat::value().

Referenced by OrchardCrop::Do(), BEOrchardCrop::Do(), NLOrchardCrop::Do(), DK_OBushFruit_Perm2::Do(), DK_OOrchCherry::Do(), DK_OOrchPear::Do(), DK_OOrchApple::Do(), DK_OOrchardCrop_Perm::Do(), PTVineyards::Do(), DK_BushFruit_Perm2::Do(), DK_OrchCherry::Do(), DK_OrchPear::Do(), DK_OrchOther::Do(), DK_OrchardCrop_Perm::Do(), DK_OrchApple::Do(), and ITOOrchard::Do().

◆ CutToHay()

bool Farm::CutToHay	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out hay cutting on a_field.

 {
     FarmToDo treatment = cut_to_hay;
     if ((0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(), 5) < 0.1)
         && DoIt(DO_IT_PROB)))
     {
         LE* um = SetFunctionData(a_field, 0.4, 0.2, 0, treatment);
         a_field->SetGrowthPhase(harvest1);
         a_field->SetVegHeight(10);
         if (um != nullptr) {
             um->SetGrowthPhase(harvest1);
             um->SetVegHeight(10);
         }
         return true;
     }
     return false;
 }

References cut_to_hay, Calendar::Date(), DO_IT_PROB, g_date, g_weather, Weather::GetRainPeriod(), harvest1, LE::SetGrowthPhase(), and LE::SetVegHeight().

Referenced by PermanentSetAside::Do(), PermanentGrassLowYield::Do(), DK_OGrassLowYield_Perm::Do(), OPermanentGrassGrazed::Do(), DK_GrassLowYield_Perm::Do(), PermanentGrassGrazed::Do(), DK_OptimalFlowerMix3::Do(), DK_OCerealLegume_Whole::Do(), DK_OCerealLegume::Do(), SetAside::Do(), PTSetAside::Do(), DK_OGrassGrazed_Perm::Do(), DK_GrassGrazed_Perm::Do(), DK_OSeedGrassRye_Spring::Do(), DK_SetAside::Do(), DK_OSetAside_SummerMow::Do(), DK_OSetAside::Do(), DK_SetAside_SummerMow::Do(), PTRyegrass::Do(), FI_FeedingGround::Do(), and DK_SeedGrassFescue_Spring::Do().

◆ CutToSilage()

bool Farm::CutToSilage	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Cut vegetation for silage on a_field.

 {
     FarmToDo treatment = cut_to_silage;
     if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
     LE* um = SetFunctionData(a_field, 0.4, 0.2, 0, treatment);
     a_field->SetVegHeight( 10 );
     a_field->SetGrowthPhase(harvest1);
     a_field->ResetDigestibility();
     if (um != nullptr) {
         um->SetVegHeight(10);
         um->SetGrowthPhase(harvest1);
         um->ResetDigestibility();
     }
     return true;
   }
   return false;
 }

References cut_to_silage, DO_IT_PROB, g_weather, harvest1, Weather::Raining(), LE::ResetDigestibility(), LE::SetGrowthPhase(), and LE::SetVegHeight().

Referenced by OSBarleySilage::Do(), OBarleyPeaCloverGrass::Do(), PLFodderLucerne2::Do(), DK_WinterFodderGrass::Do(), NLGrassGrazedExtensive2::Do(), DK_SpringFodderGrass::Do(), NLPermanentGrassGrazedExtensive::Do(), DK_WinterCloverGrassGrazedSown::Do(), SetAside::Do(), NLGrassGrazedExtensive1Spring::Do(), NLGrassGrazedExtensiveLast::Do(), NLGrassGrazedExtensive1::Do(), DE_OPermanentGrassLowYield::Do(), DE_PermanentGrassLowYield::Do(), DE_PermanentGrassGrazed::Do(), PLFodderLucerne1::Do(), UKPermanentGrass::Do(), FR_Grassland_Perm::Do(), FI_GreenFallow_1year::Do(), UKTempGrass::Do(), DE_GreenFallow_1year::Do(), DE_OGreenFallow_1year::Do(), DE_OPermanentGrassGrazed::Do(), FI_NaturalGrassland_Perm::Do(), DK_CloverGrassGrazed1::Do(), NLGrassGrazed2::Do(), NLPermanentGrassGrazed::Do(), NLGrassGrazed1Spring::Do(), NLGrassGrazedLast::Do(), FI_GreenFallow_Perm::Do(), DE_OGrasslandSilageAnnual::Do(), FI_BufferZone::Do(), FI_BufferZone_Perm::Do(), PTMaize_Hort::Do(), PTMaize::Do(), ITGrassland::Do(), PTFodderMix::Do(), FI_NaturalGrassland::Do(), NLGrassGrazed1::Do(), FI_GrasslandPasturePerennial1::Do(), FI_GrasslandSilagePerennial1::Do(), FI_GrasslandSilagePerennial2::Do(), DK_OSpringFodderGrass::Do(), DK_OCloverGrassGrazed3::Do(), DK_OCloverGrassGrazed1::Do(), DK_OCloverGrassGrazed2::Do(), DK_OWinterFodderGrass::Do(), DK_CloverGrassGrazed3::Do(), DK_OWinterCloverGrassGrazedSown::Do(), DK_CloverGrassGrazed2::Do(), DE_GrasslandSilageAnnual::Do(), FR_Grassland::Do(), IRGrassland_no_reseed::Do(), and IRGrassland_reseed::Do().

◆ CutWeeds()

bool Farm::CutWeeds	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out weed topping on a_field.

 {
     FarmToDo treatment = cut_weeds;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB)))
     {
         SetFunctionData(a_field, 0.8, 0.8, 0, treatment);
         return true;
     }
     return false;
 }

References cut_weeds, DO_IT_PROB, g_weather, and Weather::Raining().

Referenced by PermanentGrassLowYield::Do(), DK_OGrassLowYield_Perm::Do(), OPermanentGrassGrazed::Do(), DK_GrassLowYield_Perm::Do(), PermanentGrassGrazed::Do(), DE_PermanentGrassGrazed::Do(), PTOliveGroveTraditional::Do(), DE_HerbsPerennial_after1year::Do(), DE_OHerbsPerennial_after1year::Do(), DE_HerbsPerennial_1year::Do(), and DE_OHerbsPerennial_1year::Do().

◆ DeepPlough()

bool Farm::DeepPlough	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a deep ploughing event on a_field.

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 0.1, 0.0,  0,deep_ploughing);
     return true;
   }
   return false;
 }

References deep_ploughing, DO_IT_PROB, g_weather, and Weather::Raining().

Referenced by WinterRapeStrigling::Do(), DE_OWinterWheat::Do(), OWinterWheatUndersown::Do(), OWinterWheat::Do(), OWinterWheatUndersownExt::Do(), DE_OCarrots::Do(), DK_OEnergyCrop_Perm::Do(), DK_OCarrots::Do(), DK_EnergyCrop_Perm::Do(), DK_Carrots_Spring::Do(), DK_Carrots::Do(), NLWinterWheat::Do(), SpringRape::Do(), WinterWheatStrigling::Do(), WinterWheatStriglingCulm::Do(), WinterWheatStriglingSingle::Do(), WinterRape::Do(), DK_OOrchCherry::Do(), DK_OOrchPear::Do(), DE_OTriticale::Do(), DE_OWinterRye::Do(), DK_OOrchApple::Do(), DE_OWinterBarley::Do(), DK_OOrchOther::Do(), DK_OOrchardCrop_Perm::Do(), DE_Triticale::Do(), FR_Potatoes::Do(), WinterWheat::Do(), DK_OrchCherry::Do(), DK_OrchPear::Do(), DK_OrchApple::Do(), DK_OrchOther::Do(), DK_OrchardCrop_Perm::Do(), DK_OChristmasTrees_Perm::Do(), and DK_ChristmasTrees_Perm::Do().

◆ DoIt()

bool Farm::DoIt ( double a_probability )

Return chance out of 0 to 100.

                                       {
   return (g_rand_uni_fnc() < (a_probability/100.0));
 }

References g_rand_uni_fnc().

◆ DoIt_prob()

bool Farm::DoIt_prob ( double a_probability )

Return chance out of 0 to 1.

                                          {
     return (g_rand_uni_fnc() < a_probability);
 }

References g_rand_uni_fnc().

◆ FA_AmmoniumSulphate()

bool Farm::FA_AmmoniumSulphate	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply ammonium sulphate to a_field owned by an stock farmer.

 {
     FarmToDo treatment = fa_ammoniumsulphate;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_ammoniumsulphate, g_weather, and Weather::Raining().

Referenced by UKMaize::Do(), DK_SpringOats::Do(), DK_SpringOats_CC::Do(), DK_SpringWheat::Do(), NLMaizeSpring::Do(), UKBeet::Do(), NLBeetSpring::Do(), NLMaize::Do(), UKSpringBarley::Do(), UKWinterBarley::Do(), NLCarrotsSpring::Do(), DK_OWinterRape::Do(), NLBeet::Do(), NLCarrots::Do(), NLCabbageSpring::Do(), NLSpringBarleySpring::Do(), DK_WinterBarley::Do(), NLCabbage::Do(), UKWinterWheat::Do(), WinterRyeStrigling::Do(), PLCarrots::Do(), UKWinterRape::Do(), WinterRye::Do(), NLSpringBarley::Do(), NLWinterWheat::Do(), PLSpringBarleySpr::Do(), DK_WinterWheat::Do(), DK_WinterWheat_CC::Do(), UKPotatoes::Do(), PLBeetSpr::Do(), PLBeans::Do(), DK_WinterRape::Do(), DE_Maize::Do(), DE_MaizeSilage::Do(), NLPotatoesSpring::Do(), DE_SpringBarley::Do(), PLWinterRye::Do(), PLSpringBarley::Do(), NLPotatoes::Do(), PLMaize::Do(), PLMaizeSilage::Do(), NLTulips::Do(), PLWinterTriticale::Do(), DE_WinterRye::Do(), PLBeet::Do(), PLWinterBarley::Do(), PLWinterWheat::Do(), DE_Carrots::Do(), PLWinterWheatLate::Do(), PLSpringWheat::Do(), PLPotatoes::Do(), DE_Oats::Do(), DE_Cabbage::Do(), DE_WinterBarley::Do(), DK_SeedGrassRye_Spring::Do(), DE_SpringRye::Do(), PLWinterRape::Do(), IRSpringOats::Do(), IRWinterOats::Do(), IRWinterBarley::Do(), IRSpringBarley::Do(), DE_Triticale::Do(), DE_WinterWheat::Do(), DE_WinterWheatLate::Do(), IRSpringWheat::Do(), IRWinterWheat::Do(), DE_WinterRape::Do(), DE_Orchard::Do(), DK_SeedGrassFescue_Spring::Do(), DE_SugarBeet::Do(), DE_Potatoes::Do(), and DE_PotatoesIndustry::Do().

◆ FA_Boron()

bool Farm::FA_Boron	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply soluble Boron to a_field owned by a stock farmer.

 {
     FarmToDo treatment = fa_boron;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_boron, g_weather, and Weather::Raining().

Referenced by DE_OWinterRape::Do(), DE_OSugarBeet::Do(), DE_OPotatoes::Do(), DE_OCarrots::Do(), DK_OCarrots::Do(), DK_Carrots_Spring::Do(), DK_Carrots::Do(), DK_WinterRape::Do(), DK_OOrchPear::Do(), DK_OOrchardCrop_Perm::Do(), DK_OOrchApple::Do(), DK_OOrchOther::Do(), DK_OrchPear::Do(), DK_OrchOther::Do(), DK_OrchApple::Do(), and DK_OrchardCrop_Perm::Do().

◆ FA_Calcium()

bool Farm::FA_Calcium	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Calcium applied on a_field owned by a stock farmer.

 {
     FarmToDo treatment = fa_calcium;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_calcium, g_weather, and Weather::Raining().

Referenced by DK_WinterBarley::Do(), DK_WinterRye::Do(), DK_WinterRye_CC::Do(), PLCarrots::Do(), PLSpringBarleySpr::Do(), DK_OPotatoSeed::Do(), DK_OPotato::Do(), DK_OPotatoIndustry::Do(), DK_WinterWheat::Do(), DK_WinterWheat_CC::Do(), PTOats::Do(), PLBeetSpr::Do(), PLBeans::Do(), PTWinterWheat::Do(), PTWinterBarley::Do(), PTWinterRye::Do(), PTFodderMix::Do(), PTTriticale::Do(), PTRyegrass::Do(), PLWinterRye::Do(), PLMaizeSilage::Do(), PLSpringBarley::Do(), PLMaize::Do(), PLWinterTriticale::Do(), PTCloverGrassGrazed1::Do(), PLBeet::Do(), PLWinterBarley::Do(), PLWinterWheat::Do(), PLSpringWheat::Do(), PLWinterWheatLate::Do(), PTPermanentGrassGrazed::Do(), PLPotatoes::Do(), PLWinterRape::Do(), DE_SugarBeet::Do(), DE_Potatoes::Do(), DE_PotatoesIndustry::Do(), DE_OOrchard::Do(), DK_OChristmasTrees_Perm::Do(), and DK_ChristmasTrees_Perm::Do().

◆ FA_Cu()

bool Farm::FA_Cu	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply Cu fertilizer, on a_field owned by stock farmer (orchard)

 {
     FarmToDo treatment = fa_cu;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, fa_cu, g_weather, and Weather::Raining().

Referenced by DK_OOrchApple::Do(), DK_OOrchardCrop_Perm::Do(), DK_OOrchOther::Do(), DK_OrchApple::Do(), DK_OrchardCrop_Perm::Do(), and DK_OrchOther::Do().

◆ FA_GreenManure()

bool Farm::FA_GreenManure	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Spread green manure on a_field owned by an stock farmer.

 {
     FarmToDo treatment = fa_greenmanure;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_greenmanure, g_weather, and Weather::Raining().

◆ FA_K()

bool Farm::FA_K	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply K fertilizer, on a_field owned by stock farmer.

 {
     FarmToDo treatment = fa_k;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_k, g_weather, and Weather::Raining().

Referenced by DE_WinterWheatLate::Do(), and DE_WinterRape::Do().

◆ FA_ManganeseSulphate()

bool Farm::FA_ManganeseSulphate	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply manganese sulphate to a_field owned by an stock farmer.

 {
     FarmToDo treatment = fa_manganesesulphate;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_manganesesulphate, g_weather, and Weather::Raining().

Referenced by DE_OWinterRape::Do(), DE_OSugarBeet::Do(), DE_OPotatoes::Do(), NLCabbageSpring::Do(), DK_WinterBarley::Do(), NLCabbage::Do(), DK_WinterRye::Do(), DK_WinterRye_CC::Do(), UKWinterWheat::Do(), PLSpringBarleySpr::Do(), DK_WinterWheat_CC::Do(), DK_WinterWheat::Do(), DK_Potato::Do(), UKPotatoes::Do(), PLBeetSpr::Do(), PLBeans::Do(), DK_PotatoSeed::Do(), DK_PotatoIndustry::Do(), NLPotatoesSpring::Do(), PLWinterRye::Do(), NLPotatoes::Do(), PLMaize::Do(), PLMaizeSilage::Do(), PLSpringBarley::Do(), PLWinterTriticale::Do(), PLBeet::Do(), PLWinterWheat::Do(), PLWinterBarley::Do(), PLWinterWheatLate::Do(), PLSpringWheat::Do(), PLPotatoes::Do(), DE_Cabbage::Do(), PLWinterRape::Do(), DE_WinterRape::Do(), DE_SugarBeet::Do(), DE_Potatoes::Do(), and DE_PotatoesIndustry::Do().

◆ FA_Manure()

bool Farm::FA_Manure	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Spread manure on a_field owned by an stock farmer.

 {
     FarmToDo treatment = fa_manure;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_manure, g_weather, and Weather::Raining().

Referenced by WinterRapeStrigling::Do(), OSBarleySilage::Do(), NLCatchCropPea::Do(), OBarleyPeaCloverGrass::Do(), OMaizeSilage::Do(), OWinterBarleyExt::Do(), OWinterBarley::Do(), OWinterRye::Do(), DE_OSpringRye::Do(), DE_OOats::Do(), DE_OMaizeSilage::Do(), OOats::Do(), DE_OWinterWheat::Do(), OTriticale::Do(), DE_OMaize::Do(), Maize::Do(), DK_OCerealLegume_Whole::Do(), MaizeStrigling::Do(), MaizeSilage::Do(), OSpringBarleyExt::Do(), Oats::Do(), DK_Legume_Whole::Do(), DK_OSugarBeet::Do(), DK_OCerealLegume::Do(), OSpringBarley::Do(), SpringBarleyCloverGrassStrigling::Do(), FieldPeas::Do(), FieldPeasSilage::Do(), FieldPeasStrigling::Do(), DK_OFodderBeet::Do(), OPotatoes::Do(), DE_OWinterRape::Do(), OWinterWheat::Do(), OWinterWheatUndersown::Do(), OWinterWheatUndersownExt::Do(), SpringBarleyCloverGrass::Do(), OFodderBeet::Do(), OWinterRape::Do(), Triticale::Do(), DE_OSugarBeet::Do(), DE_OPotatoes::Do(), SpringBarleyPeaCloverGrassStrigling::Do(), DE_OCarrots::Do(), DK_OCarrots::Do(), FodderBeet::Do(), SpringBarleySKManagement::Do(), WinterRyeStrigling::Do(), SpringBarleySilage::Do(), DK_OGrassGrazed_Perm::Do(), SpringBarleyStriglingCulm::Do(), DK_GrassGrazed_Perm::Do(), SpringBarleyStrigling::Do(), SpringBarleyStriglingSingle::Do(), WinterRye::Do(), SpringBarleyPTreatment::Do(), DK_OMixedVeg::Do(), DE_PermanentGrassGrazed::Do(), PTCabbage::Do(), PTCabbage_Hort::Do(), SpringBarley::Do(), PTHorticulture::Do(), PTPotatoes::Do(), SpringRape::Do(), DK_OBushFruit_Perm2::Do(), WinterWheatStriglingSingle::Do(), WinterWheatStrigling::Do(), WinterWheatStriglingCulm::Do(), WinterRape::Do(), WinterBarleyStrigling::Do(), DE_OAsparagusEstablishedPlantation::Do(), WinterBarley::Do(), DK_OOrchCherry::Do(), DK_OSpringFodderGrass::Do(), DE_AsparagusEstablishedPlantation::Do(), DK_OCloverGrassGrazed3::Do(), DK_OCloverGrassGrazed1::Do(), DK_OCloverGrassGrazed2::Do(), NLTulips::Do(), DK_OOrchPear::Do(), DK_OWinterFodderGrass::Do(), DE_OTriticale::Do(), DE_OWinterRye::Do(), DK_OOrchApple::Do(), DK_OOrchardCrop_Perm::Do(), DE_OWinterBarley::Do(), DK_OOrchOther::Do(), DK_OWinterCloverGrassGrazedSown::Do(), DE_Triticale::Do(), DE_Orchard::Do(), WinterWheat::Do(), DK_OrchCherry::Do(), DK_OrchPear::Do(), DK_OrchardCrop_Perm::Do(), DK_OrchOther::Do(), DK_OrchApple::Do(), DE_OOrchard::Do(), DK_OChristmasTrees_Perm::Do(), and DK_ChristmasTrees_Perm::Do().

◆ FA_N()

bool Farm::FA_N	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply N fertilizer, on a_field owned by a stock farmer.

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, fa_n);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_n, g_weather, and Weather::Raining().

Referenced by DE_HerbsPerennial_after1year::Do(), DE_HerbsPerennial_1year::Do(), DE_OHerbsPerennial_after1year::Do(), DE_OHerbsPerennial_1year::Do(), DE_OAsparagusEstablishedPlantation::Do(), DE_AsparagusEstablishedPlantation::Do(), and DK_BushFruit_Perm1::Do().

◆ FA_NK()

bool Farm::FA_NK	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply NK fertilizer, on a_field owned by an stock farmer.

 {
  
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, fa_nk);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_nk, g_weather, and Weather::Raining().

Referenced by DK_OBushFruit_Perm1::Do().

◆ FA_NPK()

bool Farm::FA_NPK	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply NPK fertilizer to a_field owned by an stock farmer.

 {
     FarmToDo treatment = fa_npk;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_npk, g_weather, and Weather::Raining().

◆ FA_NPKS()

bool Farm::FA_NPKS	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply NPKS fertilizer, on a_field owned by a stock farmer.

 {
     FarmToDo treatment = fa_npks;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_npks, g_weather, and Weather::Raining().

Referenced by DK_OVegSeeds::Do(), DK_SpringBarleyCloverGrass::Do(), DK_SpringBarley_CC::Do(), DK_SpringBarley::Do(), DK_VegSeeds::Do(), DK_MixedVeg::Do(), PLWinterRye::Do(), PLSpringBarley::Do(), PLWinterTriticale::Do(), PLWinterWheat::Do(), PLWinterBarley::Do(), PLWinterWheatLate::Do(), PLSpringWheat::Do(), PLPotatoes::Do(), PLWinterRape::Do(), IRGrassland_no_reseed::Do(), IRGrassland_reseed::Do(), ITOrchard::Do(), and ITOOrchard::Do().

◆ FA_P()

bool Farm::FA_P	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply P fertilizer, on a_field owned by stock farmer.

 {
     FarmToDo treatment = fa_p;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_p, g_weather, and Weather::Raining().

Referenced by DE_WinterWheatLate::Do().

◆ FA_PK()

bool Farm::FA_PK	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply PK fertilizer to a_field owned by an stock farmer.

 {
     FarmToDo treatment = fa_pk;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_pk, g_weather, and Weather::Raining().

Referenced by UKBeans::Do(), PLFodderLucerne2::Do(), DK_WinterRye_CC::Do(), DK_WinterRye::Do(), PLCarrots::Do(), NLWinterWheat::Do(), PLFodderLucerne1::Do(), DE_HerbsPerennial_after1year::Do(), DE_HerbsPerennial_1year::Do(), DE_OHerbsPerennial_after1year::Do(), PLBeetSpr::Do(), PLBeans::Do(), DE_OHerbsPerennial_1year::Do(), DE_OAsparagusEstablishedPlantation::Do(), PLWinterRye::Do(), DE_SpringBarley::Do(), DE_AsparagusEstablishedPlantation::Do(), PLMaize::Do(), PLMaizeSilage::Do(), NLTulips::Do(), PLWinterTriticale::Do(), DE_WinterRye::Do(), PLWinterWheat::Do(), PLBeet::Do(), PLWinterBarley::Do(), PLSpringWheat::Do(), PLWinterWheatLate::Do(), PLPotatoes::Do(), DK_BushFruit_Perm1::Do(), DE_WinterBarley::Do(), DE_GrasslandSilageAnnual::Do(), DK_BushFruit_Perm2::Do(), IRWinterOats::Do(), IRWinterBarley::Do(), DE_WinterWheat::Do(), DE_Triticale::Do(), FR_WinterRape::Do(), IRWinterWheat::Do(), DE_Orchard::Do(), DE_SugarBeet::Do(), DE_Potatoes::Do(), and DE_PotatoesIndustry::Do().

◆ FA_PKS()

bool Farm::FA_PKS	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply PKS fertilizer to a_field owned by an stock farmer.

 {
     FarmToDo treatment = fa_pks;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_pks, g_weather, and Weather::Raining().

Referenced by DE_OPeas::Do(), and DE_OLegume::Do().

◆ FA_RSM()

bool Farm::FA_RSM	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

RSM (ammonium nitrate solution) applied on a_field owned by a stock farmer.

 {
     FarmToDo treatment = fa_rsm;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_rsm, g_weather, and Weather::Raining().

Referenced by PLSpringBarleySpr::Do(), PLWinterRye::Do(), PLMaize::Do(), PLMaizeSilage::Do(), PLSpringBarley::Do(), PLWinterTriticale::Do(), PLWinterWheat::Do(), PLWinterBarley::Do(), PLSpringWheat::Do(), PLWinterWheatLate::Do(), and PLWinterRape::Do().

◆ FA_SK()

bool Farm::FA_SK	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply SK fertilizer, on a_field owned by an stock farmer.

 {
     FarmToDo treatment = fa_sk;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_sk, g_weather, and Weather::Raining().

Referenced by DK_Legume_Peas::Do(), DK_OLegume_Peas_CC::Do(), DK_OLegume_Beans::Do(), DK_OLegume_Beans_CC::Do(), DK_OLentils::Do(), DK_OLegume_Peas::Do(), DK_OLupines::Do(), DK_Legume_Beans::Do(), DK_OLegume_Whole::Do(), DK_OLegume_Whole_CC::Do(), DK_OLegumeCloverGrass_Whole::Do(), DK_OSpringFodderGrass::Do(), DE_Peas::Do(), DE_Legumes::Do(), DK_OWinterFodderGrass::Do(), and DK_OWinterCloverGrassGrazedSown::Do().

◆ FA_Sludge()

bool Farm::FA_Sludge	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Spread sewege sludge on a_field owned by an stock farmer.

 {
     FarmToDo treatment = fa_sludge;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_sludge, g_weather, and Weather::Raining().

Referenced by WinterRyeStrigling::Do(), and WinterRye::Do().

◆ FA_Slurry()

bool Farm::FA_Slurry	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Spready slurry on a_field owned by an stock farmer.

 {
     FarmToDo treatment = fa_slurry;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_slurry, g_weather, and Weather::Raining().

◆ FarmActions()

void Farm::FarmActions ( void )

virtual

FarmActions() will use the global date to manage all queued field events.

Starts the main management loop for the farm and performs some error checking.

The main crop management events are done in HandleEvents by the crop management method within CropManagement. This calls all the fields and actions any events on the queue. Subsequently there are some checks for runaway or stuck management codes The FarmerBehaviour section allows for implementation of Farmer behaviour - it implements the Step code of the animals populations approach to allow for complex behaviours to be added.

                              {
   HandleEvents();
   for ( unsigned int i = 0; i < m_fields.size(); i++ ) {
     // Check for infinite loop in management plan.
     int count = m_fields[ i ]->GetVegStore();
     if ( count >= 0 )
       m_fields[ i ]->SetVegStore( ++count );
     if ( count > 800 ) {
       // More than two years where nothing happened.
       // Raise 'Merry Christmas'!
       char error_num[ 20 ];
       sprintf( error_num, "%d", m_fields[ i ]->GetVegType() );
       g_msg->Warn( WARN_BUG, "I the Farm Manager caught infinite loop in tov type:", error_num );
       sprintf( error_num, "%d", m_fields[ i ]->m_tried_to_do );
       g_msg->Warn( WARN_BUG, "It was last seen trying to perform action # ""(or thereabouts):", error_num );
       exit( 1 );
     }
   }
 }

References count, g_msg, MapErrorMsg::Warn(), and WARN_BUG.

◆ FarmerActions()

bool Farm::FarmerActions ( void )

The starting point for farmer behaviour not part of crop management e.g. decision making.

Call farmer behaviour each day.

This is called each day and call the farmer Step method to exhibit behaviour. This is a simplified form of the animal behaviour but could be expanded by adding BeginStep and EndStep. When a farmer is done for the day GetStepDone returns true.

                          {
     m_OurFarmer->Step();
     return m_OurFarmer->GetStepDone();
 }

◆ FiberCovering()

bool Farm::FiberCovering	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Fiber covering applied on a_field.

 {
     FarmToDo treatment = fiber_covering;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, fiber_covering, g_weather, and Weather::Raining().

Referenced by DK_MixedVeg::Do(), and DK_BushFruit_Perm1::Do().

◆ FiberRemoval()

bool Farm::FiberRemoval	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Fiber covering removed from a_field.

 {
     FarmToDo treatment = fiber_removal;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, fiber_removal, g_weather, and Weather::Raining().

Referenced by DK_MixedVeg::Do(), and DK_BushFruit_Perm1::Do().

◆ FlowerCutting()

bool Farm::FlowerCutting	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Flower cutting applied on a_field.

 {
     FarmToDo treatment = flower_cutting;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         LE* um = SetFunctionData(a_field, 0.5, 0.8, EL_TRAMLINE_DECAYTIME, treatment);
         a_field->SetVegHeight(35);
         if (um != nullptr) {
             um->SetVegHeight(35);
         }
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, flower_cutting, g_weather, Weather::Raining(), and LE::SetVegHeight().

Referenced by NLTulips::Do().

◆ FP_AmmoniumSulphate()

bool Farm::FP_AmmoniumSulphate	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply Ammonium Sulphate to a_field owned by an arable farmer.

 {
     FarmToDo treatment = fp_ammoniumsulphate;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_ammoniumsulphate, g_weather, and Weather::Raining().

Referenced by UKMaize::Do(), DK_SpringOats::Do(), DK_SpringOats_CC::Do(), DK_SpringWheat::Do(), NLMaizeSpring::Do(), UKBeet::Do(), NLBeetSpring::Do(), NLMaize::Do(), UKSpringBarley::Do(), UKWinterBarley::Do(), DK_OWinterRape::Do(), NLCarrotsSpring::Do(), NLBeet::Do(), NLCarrots::Do(), NLCabbageSpring::Do(), DK_WinterBarley::Do(), NLSpringBarleySpring::Do(), NLCabbage::Do(), UKWinterWheat::Do(), PLCarrots::Do(), UKWinterRape::Do(), NLSpringBarley::Do(), PLSpringBarleySpr::Do(), NLWinterWheat::Do(), DK_WinterWheat::Do(), DK_WinterWheat_CC::Do(), UKPotatoes::Do(), PLBeetSpr::Do(), PLBeans::Do(), DK_WinterRape::Do(), DE_Maize::Do(), DE_MaizeSilage::Do(), NLPotatoesSpring::Do(), PLWinterRye::Do(), DE_SpringBarley::Do(), NLPotatoes::Do(), PLMaize::Do(), PLMaizeSilage::Do(), PLSpringBarley::Do(), FR_WinterTriticale::Do(), NLTulips::Do(), PLWinterTriticale::Do(), DE_WinterRye::Do(), PLWinterBarley::Do(), PLWinterWheat::Do(), PLBeet::Do(), PLSpringWheat::Do(), PLWinterWheatLate::Do(), DE_Carrots::Do(), PLPotatoes::Do(), FR_SpringWheat::Do(), DE_Cabbage::Do(), DE_Oats::Do(), DE_WinterBarley::Do(), DK_SeedGrassRye_Spring::Do(), DE_SpringRye::Do(), PLWinterRape::Do(), FI_WinterWheat::Do(), FR_WinterBarley::Do(), IRWinterOats::Do(), IRSpringOats::Do(), IRSpringBarley::Do(), IRWinterBarley::Do(), IRSpringWheat::Do(), DE_WinterWheatLate::Do(), DE_Triticale::Do(), DE_WinterWheat::Do(), FI_WinterRye::Do(), FR_WinterWheat::Do(), IRWinterWheat::Do(), FR_Potatoes::Do(), FR_WinterRape::Do(), DE_WinterRape::Do(), DE_Orchard::Do(), DK_SeedGrassFescue_Spring::Do(), DE_SugarBeet::Do(), DE_Potatoes::Do(), and DE_PotatoesIndustry::Do().

◆ FP_Boron()

bool Farm::FP_Boron	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply soluble Boron to a_field owned by an arable farmer.

 {
     FarmToDo treatment = fp_boron;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_boron, g_weather, and Weather::Raining().

◆ FP_Calcium()

bool Farm::FP_Calcium	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Calcium applied on a_field owned by an arable farmer.

 {
     FarmToDo treatment = fp_calcium;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_calcium, g_weather, and Weather::Raining().

Referenced by DK_WinterBarley::Do(), DK_WinterRye::Do(), DK_WinterRye_CC::Do(), PLCarrots::Do(), PLSpringBarleySpr::Do(), DK_OPotatoSeed::Do(), DK_OPotato::Do(), DK_OPotatoIndustry::Do(), DK_WinterWheat::Do(), DK_WinterWheat_CC::Do(), PTOats::Do(), PLBeetSpr::Do(), PLBeans::Do(), PTWinterBarley::Do(), PTWinterWheat::Do(), PTWinterRye::Do(), PTFodderMix::Do(), PTTriticale::Do(), PTRyegrass::Do(), PLWinterRye::Do(), FR_Maize_Silage::Do(), PLMaize::Do(), PLMaizeSilage::Do(), PLSpringBarley::Do(), FR_Sunflower::Do(), PLWinterTriticale::Do(), PTCloverGrassGrazed1::Do(), PLWinterWheat::Do(), PLBeet::Do(), PLWinterBarley::Do(), PLWinterWheatLate::Do(), PLSpringWheat::Do(), PTPermanentGrassGrazed::Do(), PLPotatoes::Do(), PLWinterRape::Do(), FR_WinterRape::Do(), DE_SugarBeet::Do(), DE_Potatoes::Do(), DE_PotatoesIndustry::Do(), DE_OOrchard::Do(), DK_OChristmasTrees_Perm::Do(), and DK_ChristmasTrees_Perm::Do().

◆ FP_Cu()

bool Farm::FP_Cu	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply Cu fertilizer, on a_field owned by plant farmer (orchard)

 {
     FarmToDo treatment = fp_cu;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, fp_cu, g_weather, and Weather::Raining().

Referenced by DK_OOrchApple::Do(), DK_OOrchardCrop_Perm::Do(), DK_OOrchOther::Do(), DK_OrchApple::Do(), DK_OrchardCrop_Perm::Do(), and DK_OrchOther::Do().

◆ FP_GreenManure()

bool Farm::FP_GreenManure	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Spread green manure on a_field owned by an arable farmer.

 {
     FarmToDo treatment = fp_greenmanure;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_greenmanure, g_weather, and Weather::Raining().

◆ FP_K()

bool Farm::FP_K	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply K fertilizer, on a_field owned by an arable farmer.

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, fp_k);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_k, g_weather, and Weather::Raining().

Referenced by DE_WinterWheatLate::Do(), and DE_WinterRape::Do().

◆ FP_LiquidNH3()

bool Farm::FP_LiquidNH3	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply liquid ammonia fertilizer to a_field owned by an arable farmer.

 {
     FarmToDo treatment = fp_liquidNH3;
   if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
       SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
       return true;
   }
   return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_liquidNH3, g_weather, and Weather::Raining().

Referenced by SpringBarleySeed::Do(), SpringBarleySKManagement::Do(), SpringBarleySilage::Do(), SpringBarleySpr::Do(), SpringBarleyPTreatment::Do(), SpringBarleyStriglingSingle::Do(), SpringBarleyStriglingCulm::Do(), SpringBarleyStrigling::Do(), and SpringBarley::Do().

◆ FP_ManganeseSulphate()

bool Farm::FP_ManganeseSulphate	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply Manganse Sulphate to a_field owned by an arable farmer.

 {
     FarmToDo treatment = fp_manganesesulphate;
   if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
       SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
       return true;
   }
   return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_manganesesulphate, g_weather, and Weather::Raining().

Referenced by DE_OWinterRape::Do(), DE_OSugarBeet::Do(), DK_OVegSeeds::Do(), DE_OPotatoes::Do(), NLCabbageSpring::Do(), DK_WinterBarley::Do(), DK_VegSeeds::Do(), DK_WinterRye_CC::Do(), NLCabbage::Do(), DK_WinterRye::Do(), UKWinterWheat::Do(), WinterRyeStrigling::Do(), WinterRye::Do(), PLSpringBarleySpr::Do(), DK_WinterWheat::Do(), DK_WinterWheat_CC::Do(), UKPotatoes::Do(), DK_Potato::Do(), PLBeetSpr::Do(), WinterWheatStriglingSingle::Do(), PLBeans::Do(), WinterWheatStrigling::Do(), WinterWheatStriglingCulm::Do(), WinterBarleyStrigling::Do(), DK_PotatoSeed::Do(), DK_PotatoIndustry::Do(), WinterBarley::Do(), NLPotatoesSpring::Do(), PLWinterRye::Do(), PLMaizeSilage::Do(), PLMaize::Do(), PLSpringBarley::Do(), NLPotatoes::Do(), PLWinterTriticale::Do(), PLWinterBarley::Do(), PLWinterWheat::Do(), PLBeet::Do(), PLSpringWheat::Do(), PLWinterWheatLate::Do(), PLPotatoes::Do(), DE_Cabbage::Do(), PLWinterRape::Do(), DE_WinterRape::Do(), WinterWheat::Do(), DE_SugarBeet::Do(), DE_Potatoes::Do(), and DE_PotatoesIndustry::Do().

◆ FP_Manure()

bool Farm::FP_Manure	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Spread manure on a_field owned by an arable farmer.

 {
     FarmToDo treatment = fp_manure;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_manure, g_weather, and Weather::Raining().

Referenced by NLCatchCropPea::Do(), OWinterBarleyExt::Do(), OWinterBarley::Do(), OWinterRye::Do(), DE_OMaizeSilage::Do(), DE_OMaize::Do(), DK_OCerealLegume_Whole::Do(), DE_OWinterWheat::Do(), OSpringBarleyExt::Do(), DK_Legume_Whole::Do(), DK_OSugarBeet::Do(), DK_OCerealLegume::Do(), OSpringBarley::Do(), FieldPeas::Do(), FieldPeasSilage::Do(), FieldPeasStrigling::Do(), DK_OFodderBeet::Do(), OPotatoes::Do(), DE_OWinterRape::Do(), OWinterWheat::Do(), OWinterWheatUndersown::Do(), OWinterWheatUndersownExt::Do(), OWinterRape::Do(), DE_OSugarBeet::Do(), DE_OPotatoes::Do(), DE_OCarrots::Do(), DK_OCarrots::Do(), DK_OGrassGrazed_Perm::Do(), DK_Cabbages::Do(), DK_GrassGrazed_Perm::Do(), DK_OMixedVeg::Do(), PTCabbage::Do(), PTCabbage_Hort::Do(), DE_PermanentGrassGrazed::Do(), PTHorticulture::Do(), PTPotatoes::Do(), DK_OBushFruit_Perm2::Do(), FR_SpringBarley::Do(), DE_OAsparagusEstablishedPlantation::Do(), FR_SpringOats::Do(), DK_OOrchCherry::Do(), DK_OSpringFodderGrass::Do(), DE_AsparagusEstablishedPlantation::Do(), FR_Maize::Do(), FR_Maize_Silage::Do(), DK_OCloverGrassGrazed3::Do(), DK_OCloverGrassGrazed1::Do(), DK_OCloverGrassGrazed2::Do(), NLTulips::Do(), SE_SpringBarley::Do(), FR_Sunflower::Do(), DE_OWinterRye::Do(), DK_OOrchPear::Do(), DE_OTriticale::Do(), DK_OWinterFodderGrass::Do(), DK_OWinterCloverGrassGrazedSown::Do(), DK_OOrchardCrop_Perm::Do(), DK_OOrchOther::Do(), DE_OWinterBarley::Do(), DK_OOrchApple::Do(), FR_SpringWheat::Do(), DE_Triticale::Do(), FR_Potatoes::Do(), DE_Orchard::Do(), DK_OrchCherry::Do(), DK_OrchPear::Do(), DK_OrchOther::Do(), DK_OrchApple::Do(), DK_OrchardCrop_Perm::Do(), DE_OOrchard::Do(), DK_OChristmasTrees_Perm::Do(), and DK_ChristmasTrees_Perm::Do().

◆ FP_N()

bool Farm::FP_N	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply N fertilizer, on a_field owned by an arable farmer.

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, fp_n);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_n, g_weather, and Weather::Raining().

Referenced by FR_Grassland_Perm::Do(), DE_HerbsPerennial_after1year::Do(), DE_HerbsPerennial_1year::Do(), DE_OHerbsPerennial_after1year::Do(), DE_OHerbsPerennial_1year::Do(), DE_OAsparagusEstablishedPlantation::Do(), DE_AsparagusEstablishedPlantation::Do(), FR_Maize::Do(), FR_Maize_Silage::Do(), FR_Sunflower::Do(), DK_BushFruit_Perm1::Do(), FR_Grassland::Do(), and FR_WinterRape::Do().

◆ FP_NC()

bool Farm::FP_NC	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply NC fertilizer, on a_field owned by an arable farmer.

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, fp_nc);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_nc, g_weather, and Weather::Raining().

Referenced by FR_SpringWheat::Do(), and SE_WinterWheat::Do().

◆ FP_NK()

bool Farm::FP_NK	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply NK fertilizer, on a_field owned by an arable farmer.

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, fp_nk);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_nk, g_weather, and Weather::Raining().

Referenced by FI_OCaraway2::Do(), FI_Caraway2::Do(), and DK_OBushFruit_Perm1::Do().

◆ FP_NPK()

bool Farm::FP_NPK	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply NPK fertilizer, on a_field owned by an arable farmer.

 {
     FarmToDo treatment = fp_npk;
   if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
       SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
       return true;
   }
   return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_npk, g_weather, and Weather::Raining().

◆ FP_NPKS()

bool Farm::FP_NPKS	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply NPKS fertilizer, on a_field owned by an arable farmer.

 {
     FarmToDo treatment = fp_npks;
   if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
       SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
       return true;
   }
   return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_npks, g_weather, and Weather::Raining().

Referenced by WinterRapeStrigling::Do(), DK_CerealLegume_Whole::Do(), DK_CerealLegume::Do(), FI_OPotato_South::Do(), FI_OPotatoIndustry_North::Do(), FI_OPotatoIndustry_South::Do(), FI_OStarchPotato_North::Do(), FI_OStarchPotato_South::Do(), DK_SpringBarley_Green::Do(), FI_OPotato_North::Do(), DK_SpringBarleySilage::Do(), FI_SugarBeet::Do(), FI_Potato_North::Do(), FI_StarchPotato_North::Do(), FI_PotatoIndustry_North::Do(), FI_PotatoIndustry_South::Do(), FI_Potato_South::Do(), FI_StarchPotato_South::Do(), DK_SpringBarleyCloverGrass::Do(), DK_OVegSeeds::Do(), DK_SpringBarley::Do(), DK_SpringBarley_CC::Do(), DK_VegSeeds::Do(), SpringRape::Do(), DK_MixedVeg::Do(), FI_OSpringBarley_Malt::Do(), WinterRape::Do(), FI_OFabaBean::Do(), FR_SpringBarley::Do(), FI_OSpringOats::Do(), FI_OSpringRape::Do(), FI_OSpringWheat::Do(), FI_GrasslandPasturePerennial1::Do(), FI_GrasslandSilagePerennial1::Do(), FI_OTurnipRape::Do(), FR_SpringOats::Do(), FI_OSpringBarley_Fodder::Do(), PLWinterRye::Do(), FI_TurnipRape::Do(), FR_Maize_Silage::Do(), FI_FabaBean::Do(), PLSpringBarley::Do(), FI_SpringRape::Do(), FI_OWinterRye::Do(), FI_SpringBarley_Malt::Do(), PLWinterTriticale::Do(), FI_OWinterWheat::Do(), FI_SprSpringBarley_Fodder::Do(), PLWinterWheat::Do(), FI_SpringWheat::Do(), PLWinterBarley::Do(), PLWinterWheatLate::Do(), PLSpringWheat::Do(), FI_SpringOats::Do(), FI_SpringBarley_Fodder::Do(), PLPotatoes::Do(), PLWinterRape::Do(), FI_WinterWheat::Do(), FI_WinterRye::Do(), IRGrassland_no_reseed::Do(), IRGrassland_reseed::Do(), ITOrchard::Do(), and ITOOrchard::Do().

◆ FP_NS()

bool Farm::FP_NS	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply NS fertilizer, on a_field owned by an arable farmer.

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, fp_ns);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_ns, g_weather, and Weather::Raining().

Referenced by SE_SpringBarley::Do(), SE_WinterRape_Seed::Do(), and SE_WinterWheat::Do().

◆ FP_P()

bool Farm::FP_P	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply P fertilizer, on a_field owned by an arable farmer.

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, fp_p);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_p, g_weather, and Weather::Raining().

Referenced by FR_Sunflower::Do(), DE_WinterWheatLate::Do(), and FR_WinterRape::Do().

◆ FP_PK()

bool Farm::FP_PK	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply PK fertilizer, on a_field owned by an arable farmer.

 {
     FarmToDo treatment = fp_pk;
   if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
       SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
       return true;
   }
   return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_pk, g_weather, and Weather::Raining().

◆ FP_PKS()

bool Farm::FP_PKS	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply PKS fertilizer to a_field owned by an arable farmer.

 {
     FarmToDo treatment = fp_pks;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_pks, g_weather, and Weather::Raining().

Referenced by DE_OPeas::Do(), and DE_OLegume::Do().

◆ FP_RSM()

bool Farm::FP_RSM	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

RSM (ammonium nitrate solution) applied on a_field owned by an arable farmer.

 {
     FarmToDo treatment = fp_rsm;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_rsm, g_weather, and Weather::Raining().

◆ FP_SK()

bool Farm::FP_SK	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply SK fertilizer, on a_field owned by an arable farmer.

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, fp_sk);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_sk, g_weather, and Weather::Raining().

Referenced by DK_OLegume::Do(), DK_Legume_Peas::Do(), DK_OLegume_Peas_CC::Do(), DK_OLegume_Peas::Do(), DK_OLegume_Beans::Do(), DK_OLentils::Do(), DK_OLegume_Beans_CC::Do(), DK_OLupines::Do(), DK_Legume_Beans::Do(), DK_OLegume_Whole::Do(), DK_OLegume_Whole_CC::Do(), DK_OLegumeCloverGrass_Whole::Do(), DK_OSpringFodderGrass::Do(), DE_Peas::Do(), DE_Legumes::Do(), DK_OWinterFodderGrass::Do(), and DK_OWinterCloverGrassGrazedSown::Do().

◆ FP_Sludge()

bool Farm::FP_Sludge	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Spread sewege on a_field owned by an arable farmer.

 {
     FarmToDo treatment = fp_sludge;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_sludge, g_weather, and Weather::Raining().

Referenced by WinterBarleyStrigling::Do(), and WinterBarley::Do().

◆ FP_Slurry()

bool Farm::FP_Slurry	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply slurry to a_field owned by an arable farmer.

 {
     FarmToDo treatment = fp_slurry;
   if ( (0 >= a_days) || ((g_weather->GetTemp()>0)&&
                                  !g_weather->Raining() && DoIt(DO_IT_PROB)))
 {
       SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
       return true;
   }
   return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_slurry, g_weather, Weather::GetTemp(), and Weather::Raining().

Referenced by UKMaize::Do(), WinterRapeStrigling::Do(), NLCatchCropPea::Do(), BECatchPeaCrop::Do(), OCarrots::Do(), FI_OPotato_North::Do(), FI_OPotato_South::Do(), FI_OPotatoIndustry_North::Do(), OWinterBarleyExt::Do(), FI_OPotatoIndustry_South::Do(), FI_OStarchPotato_North::Do(), FI_OStarchPotato_South::Do(), OWinterBarley::Do(), DK_MaizeSilage::Do(), DK_OSpringBarleyCloverGrass::Do(), OWinterRye::Do(), DK_OWinterRye::Do(), FI_SugarBeet::Do(), DK_SpringOats::Do(), DK_SpringOats_CC::Do(), DE_OMaizeSilage::Do(), DK_OWinterRye_CC::Do(), DE_OMaize::Do(), DK_OSpringBarley_CC::Do(), DK_Maize::Do(), DK_OWinterBarley::Do(), BEMaizeSpring::Do(), DK_SpringWheat::Do(), OSpringBarleyExt::Do(), OSpringBarley::Do(), DK_OSpringBarley::Do(), OPotatoes::Do(), FI_Potato_North::Do(), FI_StarchPotato_North::Do(), OWinterWheat::Do(), OWinterWheatUndersown::Do(), OWinterWheatUndersownExt::Do(), FI_PotatoIndustry_North::Do(), FI_Potato_South::Do(), PTOliveGroveTradOrganic::Do(), FI_PotatoIndustry_South::Do(), FI_StarchPotato_South::Do(), OWinterRape::Do(), DK_OSpringOats::Do(), DK_OSpringWheat::Do(), DE_OCabbages::Do(), DK_SpringBarleyCloverGrass::Do(), NLMaize::Do(), Carrots::Do(), UKSpringBarley::Do(), UKWinterBarley::Do(), DK_WinterFodderGrass::Do(), DK_OSpringOats_CC::Do(), DK_OWinterRape::Do(), DK_SpringBarley::Do(), DK_SpringBarley_CC::Do(), DK_OMaize::Do(), DK_OMaizeSilage::Do(), DE_OPotatoes::Do(), DK_SpringFodderGrass::Do(), NLGrassGrazedExtensive2::Do(), DK_WinterCloverGrassGrazedSown::Do(), NLPermanentGrassGrazedExtensive::Do(), DK_OSpringBarleySilage::Do(), NLGrassGrazedExtensive1Spring::Do(), NLGrassGrazedExtensiveLast::Do(), DK_WinterBarley::Do(), NLCabbage::Do(), NLGrassGrazedExtensive1::Do(), DK_WinterRye::Do(), DK_WinterRye_CC::Do(), UKWinterWheat::Do(), TestCrop::Do(), UKWinterRape::Do(), NLSpringBarley::Do(), NLWinterWheat::Do(), DK_OMixedVeg::Do(), DK_WinterWheat::Do(), DK_WinterWheat_CC::Do(), DE_PermanentGrassGrazed::Do(), PLFodderLucerne1::Do(), UKPermanentGrass::Do(), FR_Grassland_Perm::Do(), UKPotatoes::Do(), UKTempGrass::Do(), SpringRape::Do(), DK_OBushFruit_Perm2::Do(), PTOats::Do(), NLGrassGrazed2::Do(), NLPermanentGrassGrazed::Do(), WinterWheatStrigling::Do(), WinterWheatStriglingCulm::Do(), WinterWheatStriglingSingle::Do(), NLGrassGrazed1Spring::Do(), NLGrassGrazedLast::Do(), PLBeans::Do(), PTWinterBarley::Do(), PTWinterWheat::Do(), PTWinterRye::Do(), DE_OGrasslandSilageAnnual::Do(), PTTriticale::Do(), DK_WinterRape::Do(), PTYellowLupin::Do(), WinterRape::Do(), NLGrassGrazed1::Do(), DE_Maize::Do(), OSpringBarleyPigs::Do(), FI_OSpringRape::Do(), FI_OTurnipRape::Do(), DE_MaizeSilage::Do(), PTRyegrass::Do(), PLWinterRye::Do(), DK_OWinterWheat_CC::Do(), NLPotatoes::Do(), PLMaize::Do(), DK_OWinterWheat::Do(), PLMaizeSilage::Do(), PLSpringBarley::Do(), FI_SpringRape::Do(), FI_OWinterRye::Do(), PTCloverGrassGrazed1::Do(), PLWinterTriticale::Do(), SE_SpringBarley::Do(), FI_OWinterWheat::Do(), PLBeet::Do(), PLWinterBarley::Do(), PLWinterWheat::Do(), PLWinterWheatLate::Do(), PLSpringWheat::Do(), PLPotatoes::Do(), PTPermanentGrassGrazed::Do(), DE_Oats::Do(), SE_WinterWheat::Do(), DE_Cabbage::Do(), DE_SpringRye::Do(), PLWinterRape::Do(), FI_WinterWheat::Do(), DE_GrasslandSilageAnnual::Do(), FR_Grassland::Do(), IRWinterBarley::Do(), IRWinterOats::Do(), IRSpringOats::Do(), IRSpringBarley::Do(), IRSpringWheat::Do(), FI_WinterRye::Do(), FR_WinterRape::Do(), IRWinterWheat::Do(), WinterWheat::Do(), DE_SugarBeet::Do(), IRGrassland_no_reseed::Do(), DE_Potatoes::Do(), DE_PotatoesIndustry::Do(), and IRGrassland_reseed::Do().

◆ FruitHarvest()

bool Farm::FruitHarvest	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

FruitHarvest (harvest of the mature fruits, e.g., grapes) applied on a_field.

details needs to be added (e.g., impact on biomass, influence/impacts in species code)!

 {
  
     FarmToDo treatment = harvest;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, g_weather, harvest, and Weather::Raining().

Referenced by DE_OBushFruitPerm::Do(), DK_OMaize::Do(), PTOliveGroveTraditional::Do(), DE_BushFruitPerm::Do(), DK_OOrchCherry::Do(), DK_OOrchPear::Do(), DK_OOrchOther::Do(), DK_OOrchApple::Do(), DK_OOrchardCrop_Perm::Do(), PTVineyards::Do(), DE_Orchard::Do(), DK_OrchCherry::Do(), DK_OrchPear::Do(), DK_OrchApple::Do(), DK_OrchOther::Do(), DK_OrchardCrop_Perm::Do(), DE_OOrchard::Do(), ITOrchard::Do(), and ITOOrchard::Do().

◆ FungicideTreat()

bool Farm::FungicideTreat	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply fungicide to a_field.

 {
     FarmToDo treatment = fungicide_treat;
     if (0 >= a_days)
     {
         if ((!a_field->GetSignal() & LE_SIG_NO_FUNGICIDE))
         {
             a_field->Trace(treatment);
             a_field->SetLastTreatment(treatment);
             a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
             g_landscape_ptr->CheckForPesticideRecord(a_field, fungicide);
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     else if ((g_weather->GetWind() < cfg_pest_max_wind.value()) &&
         (!g_weather->Raining()) && DoIt(DO_IT_PROB)) {
         if (!(a_field->GetSignal() & LE_SIG_NO_FUNGICIDE)) {
             a_field->Trace(treatment);
             a_field->SetLastTreatment(treatment);
             a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
             g_landscape_ptr->CheckForPesticideRecord(a_field, fungicide);
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References cfg_pest_max_wind, Landscape::CheckForPesticideRecord(), DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fungicide, fungicide_treat, g_landscape_ptr, g_weather, Weather::GetWind(), LE_SIG_NO_FUNGICIDE, Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), and CfgFloat::value().

◆ GetArea()

int Farm::GetArea ( void )

Returns the area of arable fields owned by that farm.

                   {
     int area = 0;
     for (unsigned int i = 0; i < m_fields.size(); i++) {
         if (m_fields[i]->GetElementType() == tole_Field) area += (int)m_fields[i]->GetArea();
     }
     return area;
 }

References tole_Field.

Referenced by AssignPermanentCrop().

◆ GetAreaDouble()

double Farm::GetAreaDouble ( void )

Returns the area of arable fields owned by that farm.

                            {
     double area = 0;
     for ( unsigned int i = 0; i < m_fields.size(); i++ ) {
         if (m_fields[i]->GetElementType()==tole_Field) area += m_fields[i]->GetArea();
     }
     return area;
 }

References tole_Field.

◆ GetAreaOpenFields()

int Farm::GetAreaOpenFields ( int a_openness )

Returns the area of the fields above an openness of a_openness.

Returns the area of fields owned by that farm with an openness above a_openness

 {
     int area = 0;
     for (unsigned int i = 0; i < m_fields.size(); i++) {
         if (m_fields[i]->GetOpenness() > a_openness) area += int(m_fields[i]->GetArea());
     }
     return area;
 }

◆ GetCentroids()

APoint Farm::GetCentroids ( )

inline

965 { APoint pt; pt.m_x = m_farm_centroidx; pt.m_y = m_farm_centroidy; return pt; }

References m_farm_centroidx, m_farm_centroidy, APoint::m_x, and APoint::m_y.

◆ GetCrop()

TTypesOfVegetation Farm::GetCrop ( int a_index )

inline

                                             {
         return m_rotation[a_index];
     }

References m_rotation.

◆ GetFarmer()

Farmer* Farm::GetFarmer ( )

inline

Returns the pointer to this farm's farmer.

817 { return m_OurFarmer; }

References m_OurFarmer.

Referenced by TestCrop::Do().

◆ GetFarmManager()

FarmManager* Farm::GetFarmManager ( )

inline

780 { return m_OurManager; }

References m_OurManager.

◆ GetFarmNumber()

int Farm::GetFarmNumber ( void )

inline

775 { return m_farm_num; }

References m_farm_num.

Referenced by Landscape::AddBeetleBankIfPossible(), Landscape::BorderAdd(), Centroids(), and InvIntPartition().

◆ GetFarmType()

TTypesOfFarm Farm::GetFarmType ( )

inline

Returns the farm type.

791 { return m_FarmType; }

References m_FarmType.

◆ GetFirstCropIndex()

int Farm::GetFirstCropIndex ( TTypesOfLandscapeElement a_type )

protectedvirtual

Gets the first crop for the farm.

This method also synchronises farm rotations either within or between farms if needed. This is useful to try simple what if scenarios.

                                                         {
   // If g_farm_fixed_rotation, then determine the first
   // crop number in the rotation rotation number.
   if ( g_farm_fixed_rotation_enable.value() ) {
  
     if ( !g_farm_fixed_rotation_farms_async.value() ) {
       // We are running all the farms synchronized, so
       // simply set the first crop to run on all farm fields.
       return 0;
     }
  
     // Each farm runs its fields sync'ed but independently from
     // the other farmers.
  
     // Determine if this farm has selected its own start index
     // and set it if not. m_rotation_sync_index is initialized
     // to -1 by the Farm::Farm() constructor.
     if ( -1 == m_rotation_sync_index ) {
       m_rotation_sync_index = g_random_fnc(int(m_rotation.size()));
     }
     // Return farm localized rotation index.
     return m_rotation_sync_index;
   }
  
   // Not synchronised, but we want to follow our rotation sequence, so check
   // if we have started this process, if not set the sync value.
   // afterwards just increment this.
   if ( -1 == m_rotation_sync_index ) {
       if (int(m_rotation.size()) > 0) m_rotation_sync_index = g_random_fnc(int(m_rotation.size())); else  m_rotation_sync_index = 0;
   }
   else m_rotation_sync_index = (int) ((m_rotation_sync_index+1) % m_rotation.size());
   return m_rotation_sync_index;
 }

References g_farm_fixed_rotation_enable, g_farm_fixed_rotation_farms_async, g_random_fnc(), and CfgBool::value().

◆ GetFirstDate()

int Farm::GetFirstDate ( TTypesOfVegetation a_tov )

protected

Gets the start date for a crop type.

                                                 {
  
     vector<Crop*>* crops_mgt_plans = m_OurManager->GetCropMgtPlans();
     for (unsigned int i = 0; i < crops_mgt_plans->size(); i++)
     {
         if (a_tov2 == (*crops_mgt_plans)[i]->m_tov)
             return (*crops_mgt_plans)[i]->GetFirstDate();
     }
  
     return 0;
 }

◆ GetForceSpringOK()

int Farm::GetForceSpringOK ( TTypesOfVegetation a_tov )

protected

Gets the start date for a crop type.

                                                    {
  
     vector<Crop*>* crops_mgt_plans = m_OurManager->GetCropMgtPlans();
     for (unsigned int i = 0; i < crops_mgt_plans->size(); i++)
     {
         if (a_tov == (*crops_mgt_plans)[i]->m_tov)
             return (*crops_mgt_plans)[i]->GetForceSpringOK();
     }
     return 0;
 }

◆ GetIntensity()

double Farm::GetIntensity ( void )

inline

963 { return m_intensity; }

References m_intensity.

Referenced by Landscape::SupplyFarmIntensity().

◆ GetMaxOpenness()

int Farm::GetMaxOpenness ( )

inline

Returns the maximum openness score of the fields.

     {
         int op = 0;
         for (int i = 0; i < m_fields.size(); i++)
         {
             int openness = m_fields[i]->GetOpenness();
             if (openness > op) op = openness;
         }
         return op;
     }

References m_fields.

◆ GetNextCrop()

TTypesOfVegetation Farm::GetNextCrop ( int a_index )

inline

                                                 {
         int ind = a_index + 1;
         if (ind >= (int)m_rotation.size()) ind = ind - (int)m_rotation.size();
         return m_rotation[ind];
     }

References m_rotation.

◆ GetNextCropIndex()

int Farm::GetNextCropIndex ( int a_rot_index )

protectedvirtual

Returns the next crop in the rotation.

Also provides the possibility of over-riding rotations using configuration settings

                                             {
   if ( !g_farm_enable_crop_rotation.value() ) {
     // Rotation not enabled.
     return a_rot_index;
   }
  
   if ( a_rot_index == -1 )
     return -1;
  
   if ( ( unsigned int ) ( ++a_rot_index ) == m_rotation.size() ) //AM comm: the last crop was the last element of the vector  - so go back to the element zero; otherwise just add 1 to the index
     a_rot_index = 0;
  
   return a_rot_index;
 }

References g_farm_enable_crop_rotation, and CfgBool::value().

◆ GetNextCropStartDate()

int Farm::GetNextCropStartDate	(	LE *	a_field,
		TTypesOfVegetation &	a_curr_veg
	)

Returns the start date of the next crop in the rotation.

                                                                               {
   TTypesOfVegetation l_tov2;
  
   if ( a_field->GetRotIndex() < 0 || g_farm_fixed_crop_enable.value() //|| g_farm_test_crop.value()
                                                                       ) {
     l_tov2 = a_curr_veg; // don't do it if no rotation
   } else {
     l_tov2 = m_rotation[ GetNextCropIndex( a_field->GetRotIndex() ) ];
   }
   a_curr_veg = l_tov2;
   return GetFirstDate( l_tov2 );
 }

References g_farm_fixed_crop_enable, LE::GetRotIndex(), and CfgBool::value().

Referenced by BroadBeans::Do(), DK_OLegume_Peas_CC::Do(), DK_OLegume_Beans_CC::Do(), DK_SpringOats_CC::Do(), DK_OWinterRye_CC::Do(), DK_OLegume_Whole_CC::Do(), DK_OSpringBarley_CC::Do(), NLMaizeSpring::Do(), NLMaize::Do(), DK_OSpringOats_CC::Do(), DK_SpringBarley_CC::Do(), BEWinterBarleyCC::Do(), BEWinterWheatCC::Do(), DK_WinterRye_CC::Do(), NLWinterWheat::Do(), DK_WinterWheat_CC::Do(), PTCabbage_Hort::Do(), PTMaize_Hort::Do(), and DK_OWinterWheat_CC::Do().

◆ GetNoCrops()

int Farm::GetNoCrops ( )

inline

                      {
         return (int)m_rotation.size();
     }

References m_rotation.

◆ GetNoFields()

int Farm::GetNoFields ( )

inline

Returns the number of the fields owned.

797 { return (int)m_fields.size(); }

References m_fields.

◆ GetNoOpenFields()

int Farm::GetNoOpenFields ( int a_openness )

Returns the number of the fields above an openness of a_openness.

Returns the number of fields owned by that farm with an openness above a_openness

 {
     int num = 0;
     for (unsigned int i = 0; i < m_fields.size(); i++) {
         if (m_fields[i]->GetOpenness() > a_openness) num++;
     }
     return num;
 }

◆ GetPreviousTov()

TTypesOfVegetation Farm::GetPreviousTov ( int a_index )

inline

                                                    {
         int ind = a_index - 1;
         if (ind < 0) ind = (int)m_rotation.size() - 1;
         return m_rotation[ind];
     }

References m_rotation.

Referenced by UKMaize::Do(), BEOrchardCrop::Do(), BEMaizeSpring::Do(), UKBeans::Do(), BEBeetSpring::Do(), UKBeet::Do(), BEMaize::Do(), PLFodderLucerne2::Do(), UKSpringBarley::Do(), UKWinterBarley::Do(), BEBeet::Do(), BEWinterBarley::Do(), BEWinterBarleyCC::Do(), BEWinterWheat::Do(), BEWinterWheatCC::Do(), DK_Carrots_Spring::Do(), UKWinterWheat::Do(), PLCarrots::Do(), BEGrassGrazed1Spring::Do(), TestCrop::Do(), UKWinterRape::Do(), BEGrassGrazed2::Do(), BEGrassGrazedLast::Do(), BEGrassGrazed1::Do(), PLFodderLucerne1::Do(), FR_Grassland_Perm::Do(), UKPotatoes::Do(), UKPermanentGrass::Do(), FI_GreenFallow_1year::Do(), UKTempGrass::Do(), FI_NaturalGrassland_Perm::Do(), PLBeetSpr::Do(), FI_GreenFallow_Perm::Do(), PLBeans::Do(), FI_BufferZone_Perm::Do(), FI_BufferZone::Do(), ITGrassland::Do(), FI_NaturalGrassland::Do(), FI_OSpringBarley_Malt::Do(), BEPotatoesSpring::Do(), FI_OCaraway1::Do(), FI_OFabaBean::Do(), FI_OSpringOats::Do(), FI_OSpringRape::Do(), FI_OSpringWheat::Do(), FI_OTurnipRape::Do(), FR_SpringOats::Do(), FI_OSpringBarley_Fodder::Do(), FI_FeedingGround::Do(), PLWinterRye::Do(), FR_Sorghum::Do(), BEPotatoes::Do(), PLMaizeSilage::Do(), PLMaize::Do(), PLSpringBarley::Do(), FI_OWinterRye::Do(), PLWinterTriticale::Do(), SE_SpringBarley::Do(), FI_OWinterWheat::Do(), PLWinterWheat::Do(), PLBeet::Do(), PLWinterBarley::Do(), PLSpringWheat::Do(), PLWinterWheatLate::Do(), SE_WinterRape_Seed::Do(), PLPotatoes::Do(), SE_WinterWheat::Do(), PLWinterRape::Do(), IRWinterBarley::Do(), IRSpringOats::Do(), IRSpringBarley::Do(), IRWinterOats::Do(), IRSpringWheat::Do(), IRWinterWheat::Do(), WinterWheat::Do(), IRGrassland_no_reseed::Do(), IRGrassland_reseed::Do(), ITOrchard::Do(), ITOOrchard::Do(), and Field::GetPreviousTov().

◆ GetRotFilename()

string Farm::GetRotFilename ( void )

inline

957 { return m_rotfilename; }

References m_rotfilename.

◆ GetTotalArea()

int Farm::GetTotalArea ( void )

Returns the area of all fields owned by that farm.

                        {
     int area = 0;
     for (unsigned int i = 0; i < m_fields.size(); i++) 
     {
         area += (int)m_fields[i]->GetArea();
     }
     return area;
 }

◆ GetType()

TTypesOfFarm Farm::GetType ( void )

inline

956 { return m_farmtype; }

References m_farmtype.

Referenced by PermanentSetAside::Do(), OrchardCrop::Do(), PermanentGrassTussocky::Do(), UKMaize::Do(), DK_GrassTussocky_Perm::Do(), OSeedGrass1::Do(), OSeedGrass2::Do(), BroadBeans::Do(), PermanentGrassLowYield::Do(), YoungForestCrop::Do(), SeedGrass1::Do(), PermanentGrassGrazed::Do(), FI_OPotatoIndustry_North::Do(), FI_OPotatoIndustry_South::Do(), FI_OPotato_South::Do(), FI_OStarchPotato_North::Do(), FI_OStarchPotato_South::Do(), FI_OPotato_North::Do(), BEOrchardCrop::Do(), SeedGrass2::Do(), FI_SugarBeet::Do(), Maize::Do(), MaizeSilage::Do(), OTriticale::Do(), Oats::Do(), BEMaizeSpring::Do(), UKBeans::Do(), DummyCropPestTesting::Do(), FI_Potato_North::Do(), FieldPeas::Do(), FieldPeasSilage::Do(), FI_StarchPotato_North::Do(), OFodderBeet::Do(), FI_PotatoIndustry_North::Do(), BEBeetSpring::Do(), PLFodderLucerne2::Do(), BEMaize::Do(), Triticale::Do(), UKBeet::Do(), Carrots::Do(), UKSpringBarley::Do(), UKWinterBarley::Do(), BEBeet::Do(), SetAside::Do(), BEWinterBarley::Do(), PotatoesIndustry::Do(), BEWinterBarleyCC::Do(), SugarBeet::Do(), NorwegianPotatoes::Do(), DKOBroadBeans_test::Do(), Potatoes::Do(), FodderBeet::Do(), BEWinterWheat::Do(), BEWinterWheatCC::Do(), DK_Carrots_Spring::Do(), PLCarrots::Do(), SpringBarleySilage::Do(), SpringBarleySpr::Do(), UKWinterWheat::Do(), BEGrassGrazed1Spring::Do(), TestCrop::Do(), UKWinterRape::Do(), WinterRye::Do(), BEGrassGrazed2::Do(), PLSpringBarleySpr::Do(), BEGrassGrazedLast::Do(), BEGrassGrazed1::Do(), SpringBarley::Do(), PLFodderLucerne1::Do(), FR_Grassland_Perm::Do(), UKPotatoes::Do(), UKPermanentGrass::Do(), UKTempGrass::Do(), FI_GreenFallow_1year::Do(), FI_NaturalGrassland_Perm::Do(), SpringRape::Do(), PLBeetSpr::Do(), FI_GreenFallow_Perm::Do(), PLBeans::Do(), FI_BufferZone::Do(), FI_BufferZone_Perm::Do(), ITGrassland::Do(), FI_OSpringBarley_Malt::Do(), FI_NaturalGrassland::Do(), BEPotatoesSpring::Do(), WinterRape::Do(), FI_OCaraway1::Do(), FI_OFabaBean::Do(), FI_OSpringRape::Do(), FI_OSpringWheat::Do(), FI_OSpringOats::Do(), FI_OTurnipRape::Do(), FR_SpringOats::Do(), FI_OSpringBarley_Fodder::Do(), WinterBarley::Do(), PLWinterRye::Do(), FI_FeedingGround::Do(), BEPotatoes::Do(), FR_Sorghum::Do(), PLMaize::Do(), PLSpringBarley::Do(), PLMaizeSilage::Do(), FI_OWinterRye::Do(), PLWinterTriticale::Do(), SE_SpringBarley::Do(), FI_OWinterWheat::Do(), FI_SprSpringBarley_Fodder::Do(), PLWinterWheat::Do(), PLBeet::Do(), PLWinterBarley::Do(), PLSpringWheat::Do(), PLWinterWheatLate::Do(), PLPotatoes::Do(), SE_WinterRape_Seed::Do(), SE_WinterWheat::Do(), PLWinterRape::Do(), IRWinterBarley::Do(), IRSpringOats::Do(), IRWinterOats::Do(), IRSpringBarley::Do(), IRSpringWheat::Do(), IRWinterWheat::Do(), WinterWheat::Do(), IRGrassland_no_reseed::Do(), IRGrassland_reseed::Do(), ITOrchard::Do(), and ITOOrchard::Do().

◆ GetValidCoords()

APoint Farm::GetValidCoords ( )

inline

Returns the valid coordinates of the first field owned by a farm.

803 { APoint pt; pt.m_x = m_fields[0]->GetValidX(); pt.m_y = m_fields[0]->GetValidY(); return pt; }

References m_fields, APoint::m_x, and APoint::m_y.

◆ GreenHarvest()

bool Farm::GreenHarvest	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

GreenHarvest (remove of excess production that may affect the desired quality of the fruits, e.g., grapes) applied on a_field.

details needs to be added (e.g., impact on biomass, influence/impacts in species code)!

 {
  
     FarmToDo treatment = green_harvest;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, g_weather, green_harvest, and Weather::Raining().

Referenced by DE_HerbsPerennial_after1year::Do(), DE_HerbsPerennial_1year::Do(), DE_OHerbsPerennial_after1year::Do(), DE_OHerbsPerennial_1year::Do(), and PTVineyards::Do().

◆ GrowthRegulator()

bool Farm::GrowthRegulator	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply growth regulator to a_field.

 {
     FarmToDo treatment = growth_regulator;
     if (0 >= a_days)
     {
  
         if ((!g_weather->Raining()) && (g_weather->GetWind() < cfg_pest_max_wind.value()) && (!(a_field->GetSignal() & LE_SIG_NO_GROWTH_REG))) {
             a_field->Trace(treatment);
             a_field->SetLastTreatment(treatment);
             a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     else if ((g_weather->GetWind() < cfg_pest_max_wind.value()) &&
         (!g_weather->Raining()) && DoIt(DO_IT_PROB)) {
         if (!(a_field->GetSignal() & LE_SIG_NO_GROWTH_REG)) {
             a_field->Trace(treatment);
             a_field->SetLastTreatment(treatment);
             a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References cfg_pest_max_wind, DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, Weather::GetWind(), growth_regulator, LE_SIG_NO_GROWTH_REG, Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), and CfgFloat::value().

◆ HandleEvents()

void Farm::HandleEvents ( void )

protectedvirtual

If there are events to carry out do this, and perhaps start a new crop.

Call the management plan for the current crop and it this return done=true starts the next management.

Sets the new index to the rotation.

Save the new veg type as the LE vegetation type

Save the crop veg type as the Field vegetation type

                             {
     if (m_queue.Empty())
         return;
  
     LowPriPair < FarmEvent* > pair = m_queue.Bottom();
     FarmEvent* ev = pair.m_element;
     while (pair.m_pri <= g_date->Date()) {
         m_queue.Pop();
         if (LeSwitch(ev)) {
             // This crop management plan has terminated.
 #ifdef __CALCULATE_MANAGEMENT_NORMS
             m_OurManager->AddToManagementStats(ev);
 #endif
             // If the farmer is simulated in detail he may need to know how he did relative to norms for this crop, so transfer this information now before its lost.
             if (cfg_UseSocioEconomicFarm.value()) m_OurFarmer->CheckManagementImpacts(ev);
  
             // First check for an infinite loop in the rotation scheme,
             // ie. a scenario where all crops decide not to run given
             // the date.
             CheckRotationManagementLoop(ev);
  
             // Outdate any remaining events for this field.
             ev->m_field->BumpRunNum();
  
             // Crop treatment done, select and initiate new crop if in rotation.
             TTypesOfVegetation new_veg = ev->m_field->GetVegType();
  
             if (ev->m_field->GetRotIndex() >= 0) {
                 int new_index = GetNextCropIndex(ev->m_field->GetRotIndex());
                 new_veg = m_rotation[new_index];
                 // Running in fixed crop mode?
                 if (g_farm_fixed_crop_enable.value()) {
                     new_veg = g_letype->TranslateVegTypes(g_farm_fixed_crop_type.value());
                 }
                 TTypesOfCrops new_crop = m_OurManager->GetCropTypeFromPlan(new_veg);
                 ev->m_field->SetRotIndex(new_index);
                 ev->m_field->SetVegType(new_veg, tov_Undefined);
                 ev->m_field->SetPollenNectarType(new_veg);
                 if(new_crop == toc_OCloverGrassGrazed1 
                     || new_crop == toc_CloverGrassGrazed1 
                     || new_crop == toc_GrazingPigs 
                     || new_crop == toc_OGrazingPigs 
                     || new_crop == toc_OCloverGrassSilage1
                     || new_crop == toc_OSetAside
                     || new_crop == toc_SetAside){ // we need to set it to force growth for first year crops
                     ev->m_field->ForceGrowthInitialiseForFirstYearCrop();
                     if (ev->m_field->GetUnsprayedMarginPolyRef() != -1){
                         LE * um = g_landscape_ptr->SupplyLEPointer(ev->m_field->GetUnsprayedMarginPolyRef());
                         um->ForceGrowthInitialiseForFirstYearCrop();
                     }
                 }
                 else{
                     ev->m_field->SetVegHeight(10);
                     ev->m_field->ResetDigestibility();
                     if (ev->m_field->GetUnsprayedMarginPolyRef() != -1){
                         LE * um = g_landscape_ptr->SupplyLEPointer(ev->m_field->GetUnsprayedMarginPolyRef());
                         um->SetVegHeight(10);
                         um->ResetDigestibility();
                     }
                 }
                 if (ev->m_field->GetUnsprayedMarginPolyRef() != -1)
                 {
                     LE * um = g_landscape_ptr->SupplyLEPointer(ev->m_field->GetUnsprayedMarginPolyRef());
                     um->SetVegType(new_veg, tov_Undefined);
                     um->SetPollenNectarType(new_veg);
                 }
                 /* Recalculate the attributes */
                 ev->m_field->GetLandscape()->Set_TOV_Att(ev->m_field);
                 ev->m_field->SetCropType(m_OurManager->GetCropTypeFromPlan(new_veg));
             }
             // Reset the event list for this field.
             ev->m_field->ResetTrace();
             // Reset event timeout counter.
             ev->m_field->SetVegStore(0);
  
             // The next bit simply determines the start date of the next crop in
             // the rotation and passes this to the start crop event.
             // The crop is responsible for raising an error if the next crop is
             // not possible or otherwise handling the problem
  
             // 19/5-2003: Note: This code was moved out into a dedicated
             // method of the Farm class, GetNextCropStartDate(), as precisely
             // the same piece of code needs to be run during initialization of
             // farm management.
             TTypesOfVegetation l_tov = new_veg;
             int l_nextcropstartdate = GetNextCropStartDate(ev->m_field, l_tov);
             bool forcespringOK = GetForceSpringOK(l_tov);
             // Create 'start' event for today and put it on the queue. 
             AddNewEvent(new_veg, g_date->Date(), ev->m_field, PROG_START, ev->m_field->GetRunNum(), false, l_nextcropstartdate, false, l_tov, fmc_Others, ev->m_forcespring, forcespringOK);
             // Set starting date for rotation mgmt loop detection. 
             ev->m_field->SetMgtLoopDetectDate(g_date->Date());
             // Now reset the random slope factor for the field growth
             ev->m_field->SetVegGrowthScalerRand();
         }
  
         delete ev;
  
         if (m_queue.Empty())
             return;
         pair = m_queue.Bottom();
         ev = pair.m_element;
  
     }
 }

References cfg_UseSocioEconomicFarm, Calendar::Date(), fmc_Others, LE::ForceGrowthInitialiseForFirstYearCrop(), g_date, g_farm_fixed_crop_enable, g_farm_fixed_crop_type, g_landscape_ptr, g_letype, LE::GetRotIndex(), LE::GetUnsprayedMarginPolyRef(), LowPriPair< ELEMTYPE >::m_element, FarmEvent::m_field, FarmEvent::m_forcespring, LowPriPair< ELEMTYPE >::m_pri, PROG_START, LE::ResetDigestibility(), LE::SetPollenNectarType(), LE::SetRotIndex(), LE::SetVegGrowthScalerRand(), LE::SetVegHeight(), LE::SetVegStore(), LE::SetVegType(), Landscape::SupplyLEPointer(), toc_CloverGrassGrazed1, toc_GrazingPigs, toc_OCloverGrassGrazed1, toc_OCloverGrassSilage1, toc_OGrazingPigs, toc_OSetAside, toc_SetAside, tov_Undefined, LE_TypeClass::TranslateVegTypes(), CfgInt::value(), and CfgBool::value().

◆ Harvest()

bool Farm::Harvest	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a harvest on a_field.

 {
     FarmToDo treatment = harvest;
     //5 days good weather before
     if ((0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(), 5) < 0.1) && DoIt(DO_IT_PROB))) {
         LE* um = SetFunctionData(a_field, 0.4, 1.0, 0, treatment);
         float biomassBefore = a_field->GetVegBiomass();
         a_field->SetGrowthPhase(harvest1);
         // Here we have to do a little skip to avoid too low insect populations after harvest, but a correct veg biomass
         double insects = a_field->GetInsectPop();
         a_field->RecalculateBugsNStuff();
         float reduc = a_field->GetVegBiomass() / biomassBefore;
         if (reduc > 0 && reduc < 1) g_pest->ReducePlantPesticide(a_field->GetMinX(), a_field->GetMaxX(), a_field->GetMinY(), a_field->GetMaxY(), a_field->GetMapIndex(), reduc, true);
         //else (cout << "Before: " << biomassBefore << ", after: " << a_field->GetVegBiomass());
         a_field->ResetDigestibility();
         a_field->SetInsectPop(insects);
         a_field->PollenNectarReset();
         // Are we a cereal crop? If so we need to have some spilled grain
         double someseed = 0.0;
         double somemaize = 0.0;
         if (dynamic_cast<VegElement*>(a_field)->IsMatureCereal()) {
             someseed = m_OurManager->GetSpilledGrain();
             a_field->SetStubble(true);
         }
         else if (dynamic_cast<VegElement*>(a_field)->IsMaize()) {
             // Maize in stubble
             a_field->SetStubble(true);
             somemaize = m_OurManager->GetSpilledMaize();
         }
         a_field->SetBirdSeed(someseed);
         a_field->SetBirdMaize(somemaize);
         if (um != nullptr) {
             um->SetGrowthPhase(harvest1);
             double biomassBefore = um->GetVegBiomass();
             um->RecalculateBugsNStuff();
             double reduc = um->GetVegBiomass() / biomassBefore;
             if (reduc > 0 && reduc < 1) g_pest->ReducePlantPesticide(um->GetMinX(), um->GetMaxX(), um->GetMinY(), um->GetMapIndex(), reduc, true);
             um->ResetDigestibility();
             um->SetInsectPop(insects);
             um->SetBirdSeed(someseed);
             um->SetBirdMaize(somemaize);
             um->PollenNectarReset();
  
             if ((somemaize > 0) || (someseed > 0)) um->SetStubble(true);
         }
         // Calculate economics
         if (m_OurManager->GetUseSocioEconomicFarmers()) Harvested(a_field->GetCropType(), a_field->GetVegBiomass() * a_field->GetArea());
         return true;
     }
     return false;
 }

References Calendar::Date(), DO_IT_PROB, g_date, g_pest, g_weather, LE::GetArea(), LE::GetInsectPop(), LE::GetMapIndex(), LE::GetMaxX(), LE::GetMaxY(), LE::GetMinX(), LE::GetMinY(), Weather::GetRainPeriod(), LE::GetVegBiomass(), harvest, harvest1, LE::PollenNectarReset(), LE::RecalculateBugsNStuff(), Pesticide::ReducePlantPesticide(), LE::ResetDigestibility(), LE::SetBirdMaize(), LE::SetBirdSeed(), LE::SetGrowthPhase(), LE::SetInsectPop(), and LE::SetStubble().

Referenced by UKMaize::Do(), GenericCatchCrop::Do(), NorwegianOats::Do(), WinterRapeStrigling::Do(), NorwegianSpringBarley::Do(), OSeedGrass1::Do(), BroadBeans::Do(), OSeedGrass2::Do(), OFieldPeas::Do(), OFieldPeasSilage::Do(), OCarrots::Do(), DE_OPeas::Do(), DK_OLegume::Do(), SeedGrass1::Do(), DK_CerealLegume::Do(), DK_CerealLegume_Whole::Do(), OBarleyPeaCloverGrass::Do(), OMaizeSilage::Do(), DE_OLegume::Do(), DK_SpringBarley_Green::Do(), DK_Legume_Peas::Do(), OWinterBarleyExt::Do(), DK_OLegume_Peas_CC::Do(), DK_OLentils::Do(), DK_SpringBarleySilage::Do(), OWinterBarley::Do(), DK_OLegume_Beans::Do(), DK_OLegume_Peas::Do(), SeedGrass2::Do(), DK_OLegume_Beans_CC::Do(), DK_OLupines::Do(), DK_OSpringBarleyCloverGrass::Do(), DK_MaizeSilage::Do(), OWinterRye::Do(), DE_OSpringRye::Do(), DK_OWinterRye::Do(), OOats::Do(), DK_Legume_Beans::Do(), DK_SpringOats::Do(), DK_SpringOats_CC::Do(), DE_OMaizeSilage::Do(), DE_OOats::Do(), DK_OLegume_Whole_CC::Do(), DK_OLegumeCloverGrass_Whole::Do(), DK_OSpringBarley_CC::Do(), Maize::Do(), MaizeSilage::Do(), MaizeStrigling::Do(), DE_OWinterWheat::Do(), DK_OWinterRye_CC::Do(), OTriticale::Do(), DE_OMaize::Do(), DK_OCerealLegume_Whole::Do(), DK_OLegume_Whole::Do(), DK_OWinterBarley::Do(), NLMaizeSpring::Do(), Oats::Do(), OSpringBarleyExt::Do(), DK_SpringWheat::Do(), DK_Maize::Do(), UKBeans::Do(), DK_OSpringBarley::Do(), OSpringBarley::Do(), DK_Legume_Whole::Do(), DK_OCerealLegume::Do(), SpringBarleySeed::Do(), FieldPeas::Do(), FieldPeasSilage::Do(), FieldPeasStrigling::Do(), OPotatoes::Do(), SpringBarleyCloverGrassStrigling::Do(), DE_OWinterRape::Do(), OWinterWheat::Do(), OWinterWheatUndersown::Do(), OWinterWheatUndersownExt::Do(), OFodderBeet::Do(), SpringBarleyCloverGrass::Do(), UKBeet::Do(), DK_OSpringOats::Do(), DK_OSpringWheat::Do(), Triticale::Do(), OWinterRape::Do(), PTOliveGroveTradOrganic::Do(), DE_OCabbages::Do(), DE_OSugarBeet::Do(), DK_OVegSeeds::Do(), NLBeetSpring::Do(), Carrots::Do(), NLMaize::Do(), DK_SpringBarleyCloverGrass::Do(), UKSpringBarley::Do(), UKWinterBarley::Do(), DK_OSpringOats_CC::Do(), DK_WinterFodderGrass::Do(), DK_OMaizeSilage::Do(), DE_OPotatoes::Do(), DK_OWinterRape::Do(), NLCarrotsSpring::Do(), DK_SpringBarley::Do(), DK_SpringBarley_CC::Do(), SpringBarleyPeaCloverGrassStrigling::Do(), DK_OSpringBarleySilage::Do(), NLBeet::Do(), DK_SpringFodderGrass::Do(), DE_OCarrots::Do(), DK_WinterCloverGrassGrazedSown::Do(), DK_OCabbages::Do(), DK_OEnergyCrop_Perm::Do(), NLCarrots::Do(), DK_OCarrots::Do(), NLCabbageSpring::Do(), NLSpringBarleySpring::Do(), DK_WinterBarley::Do(), PotatoesIndustry::Do(), FodderBeet::Do(), NorwegianPotatoes::Do(), DKOBroadBeans_test::Do(), Potatoes::Do(), PTOliveGroveIntensive::Do(), DK_EnergyCrop_Perm::Do(), DK_VegSeeds::Do(), DK_Carrots_Spring::Do(), NLCabbage::Do(), DK_WinterRye::Do(), DK_WinterRye_CC::Do(), SpringBarleySKManagement::Do(), UKWinterWheat::Do(), DK_Carrots::Do(), WinterRyeStrigling::Do(), PLCarrots::Do(), SpringBarleySilage::Do(), SpringBarleySpr::Do(), UKWinterRape::Do(), DK_Cabbages::Do(), NLSpringBarley::Do(), WinterRye::Do(), SpringBarleyPTreatment::Do(), SpringBarleyStrigling::Do(), SpringBarleyStriglingSingle::Do(), SpringBarleyStriglingCulm::Do(), DK_OMixedVeg::Do(), NLWinterWheat::Do(), PLSpringBarleySpr::Do(), PTBeans::Do(), PTOliveGroveSuperIntensive::Do(), PTCabbage::Do(), DK_WinterWheat::Do(), DK_WinterWheat_CC::Do(), PTCabbage_Hort::Do(), FI_OCaraway2::Do(), PTOtherDryBeans::Do(), SpringBarley::Do(), PTHorticulture::Do(), UKPotatoes::Do(), PTPotatoes::Do(), DK_OSeedGrassRye_Spring::Do(), SpringRape::Do(), FI_Caraway2::Do(), PTOats::Do(), DK_MixedVeg::Do(), PLBeetSpr::Do(), DK_CloverGrassGrazed1::Do(), WinterWheatStriglingCulm::Do(), WinterWheatStriglingSingle::Do(), WinterWheatStrigling::Do(), PLBeans::Do(), PTMaize_Hort::Do(), PTWinterWheat::Do(), PTMaize::Do(), PTWinterBarley::Do(), PTWinterRye::Do(), PTFodderMix::Do(), DK_WinterRape::Do(), PTCloverGrassGrazed2::Do(), FI_OSpringBarley_Malt::Do(), PTTriticale::Do(), WinterBarleyStrigling::Do(), WinterRape::Do(), PTGrassGrazed::Do(), PTSorghum::Do(), FI_OFabaBean::Do(), FI_OCaraway1::Do(), DE_Maize::Do(), FI_OSpringOats::Do(), FR_SpringBarley::Do(), DE_MaizeSilage::Do(), OSpringBarleyPigs::Do(), FI_OSpringWheat::Do(), FI_GrasslandSilagePerennial1::Do(), FI_OTurnipRape::Do(), FI_GrasslandPasturePerennial1::Do(), FI_OSpringRape::Do(), FR_SpringOats::Do(), WinterBarley::Do(), PTRyegrass::Do(), FI_OSpringBarley_Fodder::Do(), NLPotatoesSpring::Do(), DE_SpringBarley::Do(), PLWinterRye::Do(), FR_Sorghum::Do(), FI_TurnipRape::Do(), FI_GrasslandSilageAnnual::Do(), FR_Maize::Do(), DK_OWinterWheat_CC::Do(), FR_Maize_Silage::Do(), PLMaizeSilage::Do(), FI_FabaBean::Do(), PLSpringBarley::Do(), NLPotatoes::Do(), PLMaize::Do(), DK_OWinterWheat::Do(), FI_OWinterRye::Do(), FR_WinterTriticale::Do(), FI_SpringRape::Do(), FR_Sunflower::Do(), FI_Caraway1::Do(), DE_Peas::Do(), SE_SpringBarley::Do(), FI_SpringBarley_Malt::Do(), DE_Legumes::Do(), PLWinterTriticale::Do(), PTCloverGrassGrazed1::Do(), DE_WinterRye::Do(), DE_OTriticale::Do(), FI_OWinterWheat::Do(), DE_OWinterRye::Do(), PLWinterBarley::Do(), PLWinterWheat::Do(), FI_SprSpringBarley_Fodder::Do(), DK_CloverGrassGrazed3::Do(), FI_SpringWheat::Do(), PLBeet::Do(), DE_OWinterBarley::Do(), DK_CloverGrassGrazed2::Do(), DE_Carrots::Do(), FI_SpringOats::Do(), PLSpringWheat::Do(), PLWinterWheatLate::Do(), FI_SpringBarley_Fodder::Do(), PLPotatoes::Do(), SE_WinterRape_Seed::Do(), SE_WinterWheat::Do(), DE_WinterBarley::Do(), DE_Cabbage::Do(), DE_Oats::Do(), FR_SpringWheat::Do(), DK_SeedGrassRye_Spring::Do(), DE_SpringRye::Do(), PLWinterRape::Do(), FR_WinterBarley::Do(), FI_WinterWheat::Do(), IRSpringBarley::Do(), IRWinterBarley::Do(), IRSpringOats::Do(), IRWinterOats::Do(), DE_WinterWheatLate::Do(), FR_WinterWheat::Do(), FI_WinterRye::Do(), IRSpringWheat::Do(), DE_Triticale::Do(), DE_WinterWheat::Do(), IRWinterWheat::Do(), FR_Potatoes::Do(), FR_WinterRape::Do(), DE_WinterRape::Do(), DK_SeedGrassFescue_Spring::Do(), WinterWheat::Do(), DE_SugarBeet::Do(), DE_Potatoes::Do(), DE_PotatoesIndustry::Do(), DK_OChristmasTrees_Perm::Do(), and DK_ChristmasTrees_Perm::Do().

◆ HarvestBF_Machine()

bool Farm::HarvestBF_Machine	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Harvest bush fruit on a_field - tramlines since fruits are picked by machine, the bush stays on field with same vegetation height, thus suspects same % insects.

 {
     FarmToDo treatment = harvest_bushfruit;
     if ((0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(), 5) < 0.1)
         && DoIt(DO_IT_PROB)))
     {
         LE* um = SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         a_field->SetGrowthPhase(harvest1);
         if (um != nullptr) {
             um->SetGrowthPhase(harvest1);
         }
         return true;
     }
     return false;
 }

References Calendar::Date(), DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_date, g_weather, Weather::GetRainPeriod(), harvest1, harvest_bushfruit, and LE::SetGrowthPhase().

Referenced by DK_OBushFruit_Perm2::Do(), DK_OBushFruit_Perm1::Do(), and DK_BushFruit_Perm2::Do().

◆ HarvestBushFruit()

bool Farm::HarvestBushFruit	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Harvest bush fruit on a_field - no tramlines since fruits are picked by hand, the bush stays on field with same vegetation height, thus suspects same % insects.

 {
     FarmToDo treatment = harvest_bushfruit;
     if ((0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(), 5) < 0.1)
         && DoIt(DO_IT_PROB)))
     {
         LE* um = SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
         a_field->SetGrowthPhase(harvest1);
         if (um != nullptr) {
             um->SetGrowthPhase(harvest1);
         }
         return true;
     }
     return false;
 }

References Calendar::Date(), DO_IT_PROB, g_date, g_weather, Weather::GetRainPeriod(), harvest1, harvest_bushfruit, and LE::SetGrowthPhase().

Referenced by DK_BushFruit_Perm1::Do().

◆ Harvested()

void Farm::Harvested	(	TTypesOfCrops	a_toc,
		double	a_yield
	)

virtual

Records harvest results.

 {
     // We need to look up the return on a_yield of a_tov
     // Then tell the farmer that he earned this money
     // In this case there is no change to risk or environmental impact
     m_OurFarmer->AddProfit(m_OurManager->GetIncome(a_toc) * a_yield);
 }

References FarmManager::GetIncome(), m_OurFarmer, and m_OurManager.

◆ HarvestLong()

bool Farm::HarvestLong	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a harvest on a_field (only differs in the DoIt chance cf harvest)

 {
     FarmToDo treatment = harvest;
     //5 days good weather before
     if ((0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(), 5)<0.1) && DoIt(DO_IT_PROB_LONG))
         ) {
         LE* um = SetFunctionData(a_field, 0.4, 1.0, 0, treatment);
         a_field->SetGrowthPhase(harvest1);
         // Here we have to do a little skip to avoid too low insect populations after harvest, but a correct veg biomass
         double insects = a_field->GetInsectPop();
         double biomassBefore = a_field->GetVegBiomass();
         a_field->RecalculateBugsNStuff();
         a_field->ResetDigestibility();
         double reduc = a_field->GetVegBiomass() / biomassBefore;
         if (reduc > 0 && reduc < 1) g_pest->ReducePlantPesticide(a_field->GetMinX(), a_field->GetMaxX(), a_field->GetMinY(), a_field->GetMaxY(), a_field->GetMapIndex(), reduc, true);      a_field->ResetDigestibility();
         a_field->SetInsectPop(insects);
         // Are we a cereal crop? If so we need to have some spilled grain
         double someseed = 0.0;
         double somemaize = 0.0;
         if (dynamic_cast<VegElement*>(a_field)->IsMatureCereal()) {
             someseed = m_OurManager->GetSpilledGrain();
             a_field->SetStubble(true);
         }
         else if (dynamic_cast<VegElement*>(a_field)->IsMaize()) {
             // Maize in stubble
             a_field->SetStubble(true);
             somemaize = m_OurManager->GetSpilledMaize();
         }
         a_field->SetBirdSeed(someseed);
         a_field->SetBirdMaize(somemaize);
         if (um != nullptr) {
             um->SetGrowthPhase(harvest1);
             double biomassBefore = um->GetVegBiomass();
             um->RecalculateBugsNStuff();
             um->ResetDigestibility();
             double reduc = um->GetVegBiomass() / biomassBefore;
             if (reduc > 0 && reduc < 1) g_pest->ReducePlantPesticide(um->GetMinX(), um->GetMaxX(), um->GetMinY(), um->GetMapIndex(), reduc, true);          um->ResetDigestibility();
             um->SetInsectPop(insects);
             um->SetBirdSeed(someseed);
             um->SetBirdMaize(somemaize);
             if ((somemaize > 0) || (someseed > 0)) um->SetStubble(true);
         }
         // Calculate economics
         if (m_OurManager->GetUseSocioEconomicFarmers()) Harvested(a_field->GetCropType(), a_field->GetVegBiomass() * a_field->GetArea());
         return true;
     }
     return false;
 }

References Calendar::Date(), DO_IT_PROB_LONG, g_date, g_pest, g_weather, LE::GetArea(), LE::GetInsectPop(), LE::GetMapIndex(), LE::GetMaxX(), LE::GetMaxY(), LE::GetMinX(), LE::GetMinY(), Weather::GetRainPeriod(), LE::GetVegBiomass(), harvest, harvest1, LE::RecalculateBugsNStuff(), Pesticide::ReducePlantPesticide(), LE::ResetDigestibility(), LE::SetBirdMaize(), LE::SetBirdSeed(), LE::SetGrowthPhase(), LE::SetInsectPop(), and LE::SetStubble().

Referenced by FI_OPotato_North::Do(), FI_OStarchPotato_South::Do(), FI_OPotato_South::Do(), FI_OPotatoIndustry_North::Do(), FI_OPotatoIndustry_South::Do(), FI_OStarchPotato_North::Do(), DK_FodderBeet::Do(), DK_SugarBeet::Do(), FI_SugarBeet::Do(), DK_OSugarBeet::Do(), FI_Potato_North::Do(), DK_OFodderBeet::Do(), FI_StarchPotato_North::Do(), FI_PotatoIndustry_North::Do(), FI_Potato_South::Do(), FI_StarchPotato_South::Do(), FI_PotatoIndustry_South::Do(), SugarBeet::Do(), DK_OPotato::Do(), DK_OPotatoIndustry::Do(), DK_OPotatoSeed::Do(), DK_Potato::Do(), DK_PotatoSeed::Do(), and DK_PotatoIndustry::Do().

◆ HarvestShoots()

bool Farm::HarvestShoots	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

HarvestShoots applied on a_field (e.g. asparagus) - details needs to be added (e.g., impact on biomass, influence/impacts in species code)!

 {
     FarmToDo treatment = harvestshoots;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, g_weather, harvestshoots, and Weather::Raining().

Referenced by DE_OAsparagusEstablishedPlantation::Do(), and DE_AsparagusEstablishedPlantation::Do().

◆ HayBailing()

bool Farm::HayBailing	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out hay bailing on a_field.

 {
     FarmToDo treatment = hay_bailing;
   if ( (0 >= a_days) ||
        ((g_weather->GetRainPeriod(g_date->Date(),5)<0.1) && DoIt(DO_IT_PROB))
   ) {
       SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
       return true;
   }
   return false;
 }

References Calendar::Date(), DO_IT_PROB, g_date, g_weather, Weather::GetRainPeriod(), and hay_bailing.

◆ HayTurning()

bool Farm::HayTurning	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out hay turning on a_field.

 {
     FarmToDo treatment = hay_turning;
   if ( (0 >= a_days) ||
        ((g_weather->GetRainPeriod(g_date->Date(),5)<0.1) && DoIt(DO_IT_PROB))
   ) {
       SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
       return true;
   }
   return false;
 }

References Calendar::Date(), DO_IT_PROB, g_date, g_weather, Weather::GetRainPeriod(), and hay_turning.

Referenced by OSeedGrass1::Do(), OSeedGrass2::Do(), PermanentGrassLowYield::Do(), DK_OGrassLowYield_Perm::Do(), OPermanentGrassGrazed::Do(), SeedGrass1::Do(), DK_GrassLowYield_Perm::Do(), PermanentGrassGrazed::Do(), SeedGrass2::Do(), OWinterRye::Do(), DE_OWinterWheat::Do(), OTriticale::Do(), OWinterWheat::Do(), OWinterWheatUndersown::Do(), OWinterWheatUndersownExt::Do(), Triticale::Do(), WinterRyeStrigling::Do(), WinterRye::Do(), WinterWheatStriglingSingle::Do(), WinterWheatStrigling::Do(), WinterWheatStriglingCulm::Do(), WinterBarleyStrigling::Do(), WinterBarley::Do(), PTRyegrass::Do(), DE_OWinterRye::Do(), DE_OTriticale::Do(), DE_OWinterBarley::Do(), and WinterWheat::Do().

◆ HeavyCultivatorAggregate()

bool Farm::HeavyCultivatorAggregate	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a heavy cultivation event on a_field. This is non-inversion type of cultivation which can be done after fertilizers application on spring for a spring crop.

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 0.1, 0.0,  0,heavy_cultivator_aggregate);
         return true;      // completed
     }
     return false;       // not completed
 }

References DO_IT_PROB, g_weather, heavy_cultivator_aggregate, and Weather::Raining().

Referenced by PLSpringBarleySpr::Do(), PLFodderLucerne1::Do(), PLBeetSpr::Do(), PLBeans::Do(), PLSpringBarley::Do(), PLMaizeSilage::Do(), PLMaize::Do(), PLBeet::Do(), PLSpringWheat::Do(), DE_GrasslandSilageAnnual::Do(), and DE_SugarBeet::Do().

◆ Herbicide()

void Farm::Herbicide ( int a_area )

virtual

Records the costs of herbicide treatment, and associated score change.

 {
     // We need to look up the return on cost of applying the insecticide to a_tov
     // Then tell the farmer that he spent this money
     // In this case there is a change to risk or environmental impact
     /*
     m_OurFarmer->AddCost(m_HerbicideCost);
     m_OurFarmer->ChangeRiskScore(m_HerbiicideRiskChange);
     m_OurFarmer->ChangeEnvironmentScore(m_EnvironmentalRiskChange);
     */
 }

◆ HerbicideTreat()

bool Farm::HerbicideTreat	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply herbicide to a_field.

Pesticide and similar in this next section

 {
     FarmToDo treatment = herbicide_treat;
     if (0 >= a_days) // Must do this
     {
         if (((a_field->GetSignal() & LE_SIG_NO_HERBICIDE) == 0))
         {
             a_field->Trace(treatment);
             a_field->SetLastTreatment(treatment);
             if (l_farm_herbicide_kills.value())
             {
                 a_field->ReduceWeedBiomass(0.05);
             }
             a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
             a_field->SetHerbicideDelay(EL_HERBICIDE_DELAYTIME);
             g_landscape_ptr->CheckForPesticideRecord(a_field, herbicide);
  
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     else if ((g_weather->GetWind() < cfg_pest_max_wind.value()) && (!g_weather->Raining()) && DoIt(DO_IT_PROB))
     {
         if (!(a_field->GetSignal() & LE_SIG_NO_HERBICIDE))
         {
             a_field->Trace(treatment);
             a_field->SetLastTreatment(treatment);
             if (l_farm_herbicide_kills.value())
             {
                 a_field->ReduceWeedBiomass(0.05);
             }
             a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
             a_field->SetHerbicideDelay(EL_HERBICIDE_DELAYTIME);
             g_landscape_ptr->CheckForPesticideRecord(a_field, herbicide);
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References cfg_pest_max_wind, Landscape::CheckForPesticideRecord(), DO_IT_PROB, EL_HERBICIDE_DELAYTIME, EL_TRAMLINE_DECAYTIME, g_landscape_ptr, g_weather, Weather::GetWind(), herbicide, herbicide_treat, l_farm_herbicide_kills, LE_SIG_NO_HERBICIDE, Weather::Raining(), LE::ReduceWeedBiomass(), LE::SetHerbicideDelay(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), CfgFloat::value(), and CfgBool::value().

◆ HillingUp()

bool Farm::HillingUp	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Do hilling up on a_field, probably of potatoes.

 {
     FarmToDo treatment = hilling_up;
   if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
       SetFunctionData(a_field, 0.75, 0.25, EL_TRAMLINE_DECAYTIME, treatment);
       return true;
   }
   return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, hilling_up, and Weather::Raining().

Referenced by OPotatoes::Do(), DE_OCarrots::Do(), DK_OCarrots::Do(), PotatoesIndustry::Do(), NorwegianPotatoes::Do(), Potatoes::Do(), DK_Carrots_Spring::Do(), DK_Carrots::Do(), DK_OPotato::Do(), DK_OPotatoIndustry::Do(), DK_OPotatoSeed::Do(), UKPotatoes::Do(), DK_Potato::Do(), PTPotatoes::Do(), DK_PotatoSeed::Do(), DK_PotatoIndustry::Do(), DE_OAsparagusEstablishedPlantation::Do(), NLPotatoesSpring::Do(), DE_AsparagusEstablishedPlantation::Do(), NLPotatoes::Do(), PLPotatoes::Do(), DE_Potatoes::Do(), and DE_PotatoesIndustry::Do().

◆ InitiateManagement()

void Farm::InitiateManagement ( void )

virtual

Kicks off the farm's management.

Save the crop veg type as the Field vegetation type

Reimplemented in UserDefinedFarm.

                                     {
     for ( unsigned int i = 0; i < m_fields.size(); i++ ) {
         int rot_index =  m_fields[ i ]->GetRotIndex();
         TTypesOfVegetation new_veg = tov_Undefined;
         // If the field has been designated as non-rotating and therefore already has its veg type, then skip it.
         if ( rot_index < -1 ) {
             // Check for any type of permanent element type with management plan.
             TTypesOfLandscapeElement ele = m_fields[ i ]->GetElementType();
             switch (ele) {
                 case tole_AsparagusPerm:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DEAsparagusEstablishedPlantation;
                         m_fields[i]->SetCropType(toc_AsparagusEstablishedPlantation);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "NL")
                     {
                         new_veg = tov_DEAsparagusEstablishedPlantation; //EZ: DE management used for NL
                         m_fields[i]->SetCropType(toc_AsparagusEstablishedPlantation);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_AsparagusPerm! ", "");
                         exit(1);
                         break;
                     }
                 case tole_OAsparagusPerm:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DEOAsparagusEstablishedPlantation;
                         m_fields[i]->SetCropType(toc_OAsparagusEstablishedPlantation);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_OAsparagusPerm! ", "");
                         exit(1);
                         break;
                     }
                 case tole_BushFruit:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DKBushFruit_Perm1; //EZ: 2nd year of management used here /* \todo Should this be DEBushFruit indstead */
                         m_fields[i]->SetCropType(toc_BushFruit);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKBushFruit_Perm1; //LKM: all strawberry management in this code
                         m_fields[i]->SetCropType(toc_BushFruit);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "BE")
                     {
                         new_veg = tov_DKBushFruit_Perm1; //DK management used for BE
                         m_fields[i]->SetCropType(toc_BushFruit);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FI")
                     {
                         new_veg = tov_DKBushFruit_Perm1; //LKM: all strawberry management in this code
                         m_fields[i]->SetCropType(toc_BushFruit);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "NL")
                     {
                         new_veg = tov_DKBushFruit_Perm1; //DK management used for NL
                         m_fields[i]->SetCropType(toc_BushFruit);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "PL")
                     {
                         new_veg = tov_DKBushFruit_Perm1; //DK management used for PL
                         m_fields[i]->SetCropType(toc_BushFruit);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FR")
                     {
                         new_veg = tov_DKBushFruit_Perm1; //LKM: all strawberry management in this code /* \todo Could probably be removed if running FR landscapes (for now NL landscapes for FR crops) */
                         m_fields[i]->SetCropType(toc_BushFruit);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_BushFruit! ", "");
                         exit(1);
                         break;
                     }
                 case tole_OBushFruit:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DEOBushFruitPerm;
                         m_fields[i]->SetCropType(toc_OBushFruit);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKOBushFruit_Perm1; // LKM: all organic strawberry management in this code
                         m_fields[i]->SetCropType(toc_OBushFruit);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_OBushFruit! ", "");
                         exit(1);
                         break;
                     }
                 case tole_ChristmasTrees:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DKChristmasTrees_Perm; //EZ: DK management used for DE
                         m_fields[i]->SetCropType(toc_YoungForestCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKChristmasTrees_Perm;
                         m_fields[i]->SetCropType(toc_YoungForestCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "NL")
                     {
                         new_veg = tov_DKChristmasTrees_Perm; //EZ: DK management used for DE 
                         m_fields[i]->SetCropType(toc_YoungForestCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FI")
                     {
                         new_veg = tov_DKChristmasTrees_Perm; /* \todo Could probably be removed if running FR landscapes (for now NL landscapes for FR crops) */
                         m_fields[i]->SetCropType(toc_YoungForestCrop);
                         break;
                     }
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "BE")
                     {
                         new_veg = tov_DKChristmasTrees_Perm; //EZ: DK management used for BE
                         m_fields[i]->SetCropType(toc_YoungForestCrop);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_ChristmasTrees! ", "");
                         exit(1);
                         break;
                     }
                 case tole_OChristmasTrees:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DKOChristmasTrees_Perm; //EZ: DK crop code used for DE  -> to be changed later
                         m_fields[i]->SetCropType(toc_YoungForestCrop);
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKOChristmasTrees_Perm; // 
                         m_fields[i]->SetCropType(toc_YoungForestCrop);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_OChristmasTrees! ", "");
                         exit(1);
                         break;
                     }
                 case tole_EnergyCrop:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DKEnergyCrop_Perm;    //EZ: DK management used for DE
                         m_fields[i]->SetCropType(toc_YoungForestCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKEnergyCrop_Perm;
                         m_fields[i]->SetCropType(toc_YoungForestCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FR")
                     {
                         new_veg = tov_DKEnergyCrop_Perm;
                         m_fields[i]->SetCropType(toc_YoungForestCrop);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_EnergyCrop! ", "");
                         exit(1);
                         break;
                     }
                 case tole_OEnergyCrop:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DKOEnergyCrop_Perm;   //EZ: DK management used for DE
                         m_fields[i]->SetCropType(toc_OYoungForestCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKOEnergyCrop_Perm;
                         m_fields[i]->SetCropType(toc_OYoungForestCrop);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_OEnergyCrop! ", "");
                         exit(1);
                         break;
                     }
                 case tole_FarmBufferZone:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FI")
                     {
                         new_veg = tov_FIBufferZone_Perm;
                         m_fields[i]->SetCropType(toc_PermanentSetAside);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FR")
                     {
                         new_veg = tov_FIBufferZone_Perm;
                         m_fields[i]->SetCropType(toc_PermanentSetAside);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_FarmBufferZone! ", "");
                         exit(1);
                         break;
                     }
                 case tole_FarmFeedingGround:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FI")
                     {
                         new_veg = tov_FIFeedingGround;
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_FarmFeedingGround! ", "");
                         exit(1);
                         break;
                     }
                 case tole_FarmForest:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DKFarmForest_Perm;    //EZ: DK management used for DE
                         m_fields[i]->SetCropType(toc_FarmForest);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKFarmForest_Perm;
                         m_fields[i]->SetCropType(toc_FarmForest);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "BE")
                     {
                         new_veg = tov_DKFarmForest_Perm;
                         m_fields[i]->SetCropType(toc_FarmForest);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FI")
                     {
                         new_veg = tov_DKFarmForest_Perm;    //EZ: DK management used for FI
                         m_fields[i]->SetCropType(toc_FarmForest);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FR")
                     {
                         new_veg = tov_DKFarmForest_Perm;//LKM: DK management used for FR /* \todo Could probably be removed if running FR landscapes (for now NL landscapes for FR crops) */
                         m_fields[i]->SetCropType(toc_FarmForest);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "NL")
                     {
                         new_veg = tov_DKFarmForest_Perm;    //EZ: DK management used for NL
                         m_fields[i]->SetCropType(toc_FarmForest);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_FarmForest! ", "");
                         exit(1);
                         break;
                     }
                 case tole_OFarmForest:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DKOFarmForest_Perm;   //DK management used for DE
                         m_fields[i]->SetCropType(toc_OFarmForest);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKOFarmForest_Perm;
                         m_fields[i]->SetCropType(toc_OFarmForest);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_FarmForest! ", "");
                         exit(1);
                         break;
                     }
                 case tole_FarmYoungForest:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKFarmYoungForest_Perm;
                         m_fields[i]->SetCropType(toc_YoungForestCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "BE")
                     {
                         new_veg = tov_DKFarmYoungForest_Perm;
                         m_fields[i]->SetCropType(toc_YoungForestCrop);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_FarmYoungForest! ", "");
                         exit(1);
                         break;
                     }
                 case tole_OFarmYoungForest:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKOFarmYoungForest_Perm;
                         m_fields[i]->SetCropType(toc_OYoungForestCrop);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_OFarmYoungForest! ", "");
                         exit(1);
                         break;
                     }
                 case tole_FlowersPerm:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "NL")
                     {
                         new_veg = tov_NLTulips;
                         m_fields[i]->SetCropType(toc_Tulips);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "BE")
                     {
                         new_veg = tov_NLTulips;
                         m_fields[i]->SetCropType(toc_Tulips);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_FlowersPerm! ", "");
                         exit(1);
                         break;
                     }
                 case tole_GreenFallow:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FI")
                     {
                         new_veg = tov_FIGreenFallow_Perm;
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_GreenFallow! ", "");
                         exit(1);
                         break;
                     }
                 case tole_NaturalFarmGrass:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FI")
                     {
                         new_veg = tov_FINaturalGrassland_Perm;
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "BE")
                     {
                         new_veg = tov_FINaturalGrassland_Perm;
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "NL")
                     {
                         new_veg = tov_FINaturalGrassland_Perm;  //EZ: FI management used for NL
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FR")
                     {
                         new_veg = tov_FINaturalGrassland_Perm;
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_NaturalFarmGrass! ", "");
                         exit(1);
                         break;
                     }
                 case tole_Orchard:
                 case tole_WoodyEnergyCrop:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "BE")
                     {
                         new_veg = tov_BEOrchardCrop;
                         m_fields[i]->SetCropType(toc_OrchardCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DEOrchard;
                         m_fields[i]->SetCropType(toc_OrchardCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKOrchardCrop_Perm;
                         m_fields[i]->SetCropType(toc_OrchardCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FI")
                     {
                         new_veg = tov_DKOrchardCrop_Perm;   //EZ: DK crop code used for FI -> to be changed later
                         m_fields[i]->SetCropType(toc_OrchardCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FR")
                     {
                         new_veg = tov_DKOrchardCrop_Perm;//LKM: DK management used for FR /* \todo Could probably be removed if running FR landscapes (for now NL landscapes for FR crops) */
                         m_fields[i]->SetCropType(toc_OrchardCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "IT")
                     {
                         new_veg = tov_ITOrchard;
                         m_fields[i]->SetCropType(toc_OrchardCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "NL")
                     {
                         new_veg = tov_NLOrchardCrop;
                         m_fields[i]->SetCropType(toc_OrchardCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "PL")
                     {
                         new_veg = tov_NLOrchardCrop;    /* \todo EZ: NL crop code used for PL -> to be changed later */
                         m_fields[i]->SetCropType(toc_OrchardCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "PT")
                     {
                         new_veg = tov_OrchardCrop;
                         m_fields[i]->SetCropType(toc_OrchardCrop);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_Orchard! ", "");
                         exit(1);
                         break;
                     }
                 case tole_OOrchard:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DEOOrchard;
                         m_fields[i]->SetCropType(toc_OOrchardCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKOOrchardCrop_Perm;
                         m_fields[i]->SetCropType(toc_OOrchardCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "IT")
                     {
                         new_veg = tov_ITOOrchard;
                         m_fields[i]->SetCropType(toc_OOrchardCrop);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_Orchard! ", "");
                         exit(1);
                         break;
                     }
                 case tole_PermPasture:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DEPermanentGrassGrazed;
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKGrassGrazed_Perm;
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "BE")
                     {
                         new_veg = tov_DKGrassGrazed_Perm;
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FI")
                     {
                         new_veg = tov_FINaturalGrassland_Perm;
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FR")
                     {
                         new_veg = tov_FRGrassland_Perm;
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "IT")
                     {
                         new_veg = tov_ITGrassland;
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "NL")
                     {
                         new_veg = tov_NLPermanentGrassGrazed;
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "PL")
                     {
                         new_veg = tov_DEPermanentGrassGrazed; /* \todo EZ: DE crop code used for PL -> to be changed later */
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "PT")
                     {
                         new_veg = tov_PTPermanentGrassGrazed;
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "UK")
                     {
                         new_veg = tov_UKPermanentGrass;
                         m_fields[i]->SetCropType(toc_PermanentGrassGrazed);
                         break;
                     }
  
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_PermPasture! ", "");
                         exit(1);
                         break;
                     }
                 case tole_OPermPasture:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DEOPermanentGrassGrazed;
                         m_fields[i]->SetCropType(toc_OPermanentGrassGrazed);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKOGrassGrazed_Perm;
                         m_fields[i]->SetCropType(toc_OPermanentGrassGrazed);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_OPermPasture! ", "");
                         exit(1);
                         break;
                     }
                 case tole_PermPastureLowYield:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DEPermanentGrassLowYield;
                         m_fields[i]->SetCropType(toc_PermanentGrassLowYield);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKGrassLowYield_Perm;
                         m_fields[i]->SetCropType(toc_PermanentGrassLowYield);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "NL")
                     {
                         new_veg = tov_NLPermanentGrassGrazedExtensive;
                         m_fields[i]->SetCropType(toc_PermanentGrassLowYield);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "PL")
                     {
                         new_veg = tov_DEPermanentGrassLowYield; /* \todo EZ: DE crop code used for PL -> to be changed later */
                         m_fields[i]->SetCropType(toc_PermanentGrassLowYield);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FI")
                     {
                         new_veg = tov_DEPermanentGrassLowYield; /* \todo EZ: DE crop code used for FI -> to be changed later */
                         m_fields[i]->SetCropType(toc_PermanentGrassLowYield);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FR")
                     {
                         new_veg = tov_DEPermanentGrassLowYield; /* \todo JC: DE crop code used for FI -> to be changed later */
                         m_fields[i]->SetCropType(toc_PermanentGrassLowYield);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_PermPastureLowYield! ", "");
                         exit(1);
                         break;
                     }
                 case tole_OPermPastureLowYield:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DEOPermanentGrassLowYield;
                         m_fields[i]->SetCropType(toc_OPermanentGrassLowYield);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKOGrassLowYield_Perm;
                         m_fields[i]->SetCropType(toc_OPermanentGrassLowYield);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_OPermPastureLowYield! ", "");
                         exit(1);
                         break;
                     }
                 case tole_PermPasturePigs:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKGrazingPigs_Perm;
                         m_fields[i]->SetCropType(toc_GrazingPigs);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_PermPasturePigs! ", "");
                         exit(1);
                         break;
                     }
                 case tole_OPermPasturePigs:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKOGrazingPigs_Perm;
                         m_fields[i]->SetCropType(toc_OGrazingPigs);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_OPermPasturePigs! ", "");
                         exit(1);
                         break;
                     }
                 case tole_PlantNursery:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DKPlantNursery_Perm;  //DK management used for DE
                         m_fields[i]->SetCropType(toc_Horticulture);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKPlantNursery_Perm;
                         m_fields[i]->SetCropType(toc_Horticulture);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "BE")
                     {
                         new_veg = tov_DKPlantNursery_Perm;
                         m_fields[i]->SetCropType(toc_Horticulture);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FI") /* \todo LKM probably not needed, but here due to testing with not FI landscape */
                     {
                         new_veg = tov_DKPlantNursery_Perm;
                         m_fields[i]->SetCropType(toc_Horticulture);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FR") /* \todo LKM probably not needed, but here due to testing with not FR landscape */
                     {
                         new_veg = tov_DKPlantNursery_Perm;
                         m_fields[i]->SetCropType(toc_Horticulture);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "PL")
                     {
                         new_veg = tov_DKPlantNursery_Perm;  //DK management used for PL
                         m_fields[i]->SetCropType(toc_Horticulture);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "PT")
                     {
                         new_veg = tov_DKPlantNursery_Perm;  //DK management used for PT
                         m_fields[i]->SetCropType(toc_Horticulture);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "NL")
                     {
                         new_veg = tov_DKPlantNursery_Perm;  //DK management used for NL
                         m_fields[i]->SetCropType(toc_Horticulture);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_PlantNursery! ", "");
                         exit(1);
                         break;
                     }
                 case tole_Vineyard:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DE")
                     {
                         new_veg = tov_DEOrchard;    /* \todo EZ: orchards used instead for DE */
                         m_fields[i]->SetCropType(toc_OrchardCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "BE")
                     {
                         new_veg = tov_BEOrchardCrop;    /* \todo EZ: orchards used instead for BE */
                         m_fields[i]->SetCropType(toc_OrchardCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "FR")
                     {
                         new_veg = tov_DKOrchardCrop_Perm;   /* \todo EZ: orchards used instead for BE */
                         m_fields[i]->SetCropType(toc_OrchardCrop);
                         break;
                     }
                     else if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "PT")
                     {
                         new_veg = tov_PTVineyards;
                         m_fields[i]->SetCropType(toc_Vineyards);
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_Vineyard! ", "");
                         exit(1);
                         break;
                     }           
                 case tole_OliveGrove:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "PT")
                     {
                         if (DoIt_prob(cfg_OliveGroveIntensivePct.value())) {
                             new_veg = tov_PTOliveGroveIntensive;
                             m_fields[i]->SetCropType(toc_OliveGrove);
                         }
                         else {
                             if (DoIt_prob(cfg_OliveGroveSuperIntensivePct.value())) {
                                 new_veg = tov_PTOliveGroveSuperIntensive;
                                 m_fields[i]->SetCropType(toc_OliveGrove);
                             }
                             else {
                                 if (DoIt_prob(cfg_OliveGroveTradPct.value())) {
                                     new_veg = tov_PTOliveGroveTraditional;
                                     m_fields[i]->SetCropType(toc_OliveGrove);
                                 }
                                 else {
                                     new_veg = tov_PTOliveGroveTradOrganic;
                                     m_fields[i]->SetCropType(toc_OliveGrove);
                                 }
                             }
                         }
                         break;
                     }
                     else {
                         g_msg->Warn(WARN_BUG, "Farm::InitiateManagement(): "
                             "Unable to allocate tov type to tole_OliveGrove! ", "");
                         exit(1);
                         break;
                     }
                 // Permanent crops with no specific management plan - needs to be changed later
                 case tole_RiceField:
                 case tole_AlmondPlantation:
                 case tole_WalnutPlantation:
                 case tole_MushroomPerm:
                 case tole_OtherPermCrop:
                     new_veg = tov_PermanentSetAside; // to be changed if the crop code is available
                     m_fields[i]->SetCropType(toc_PermanentSetAside);
                     break;
  
                 // Old permanent crops with no specific management plan - needs to be changed later
                 case tole_PermPastureTussocky:
                     if (this->m_OurManager->GetLandscape()->SupplyCountryCode() == "DK")
                     {
                         new_veg = tov_DKGrassTussocky_Perm;
                         m_fields[i]->SetCropType(toc_PermanentGrassTussocky);
                         break;
                     }
                     else
                     new_veg = tov_PermanentGrassTussocky;
                     m_fields[i]->SetCropType(toc_PermanentGrassTussocky);
                     break;
                 case tole_YoungForest:
                     new_veg = tov_YoungForest;
                     m_fields[i]->SetCropType(toc_YoungForestCrop);
                     break;
                 case tole_PermanentSetaside:
                     new_veg = tov_PermanentSetAside;
                     m_fields[i]->SetCropType(toc_PermanentSetAside);
                     break;
  
                 default:
                     if (rot_index != -4) {
                         // Error
                         g_msg->Warn("Unexpected negative value in Farm::InitiateManagement","");
                         exit(0);
                     }
                     else
                     {
                         new_veg = m_fields[i]->GetVegType();
                     }
             }
         }
         else {
             rot_index = GetFirstCropIndex(m_fields[i]->GetElementType());
             new_veg = m_rotation[rot_index];
             // Running in fixed crop mode?
             if (g_farm_fixed_crop_enable.value()) {
                 int fv = g_farm_fixed_crop_type.value();
                 new_veg = g_letype->TranslateVegTypes(fv);
             }
         }
         m_fields[ i ]->SetVegType( new_veg, tov_Undefined ); // lct: crop & weed
         //m_fields[i]->PollenNectarReset(); // Removed because control is on the management
         m_fields[i]->SetPollenNectarType(new_veg);
         m_fields[ i ]->SetRotIndex( rot_index );
         m_fields[ i ]->SetGrowthPhase( janfirst );
         if (m_fields[i]->GetUnsprayedMarginPolyRef() != -1)
         {
             LE* um = g_landscape_ptr->SupplyLEPointer(m_fields[i]->GetUnsprayedMarginPolyRef());
             um->SetVegType(new_veg, tov_Undefined);
             um->SetGrowthPhase(janfirst);
             um->SetPollenNectarType(new_veg);
         }
         m_fields[ i ]->SetCropType(m_OurManager->GetCropTypeFromPlan(new_veg));
         // Reset event timeout counter. We are now 800 days from
         // oblivion.
         long prog_start_date = g_date->Date();
         m_fields[i]->SetVegStore(0);
         TTypesOfVegetation l_tov = new_veg;
         int l_nextcropstartdate = GetNextCropStartDate(m_fields[i], l_tov);
         bool SpringOK = GetForceSpringOK(l_tov);
         AddNewEvent(new_veg, prog_start_date, m_fields[i], PROG_START, 0, false, l_nextcropstartdate, true, l_tov, fmc_Others, true, SpringOK);
     }
 }

References cfg_OliveGroveIntensivePct, cfg_OliveGroveSuperIntensivePct, cfg_OliveGroveTradPct, Calendar::Date(), fmc_Others, g_date, g_farm_fixed_crop_enable, g_farm_fixed_crop_type, g_landscape_ptr, g_letype, g_msg, janfirst, PROG_START, LE::SetGrowthPhase(), LE::SetPollenNectarType(), LE::SetVegType(), Landscape::SupplyLEPointer(), toc_AsparagusEstablishedPlantation, toc_BushFruit, toc_FarmForest, toc_GrazingPigs, toc_Horticulture, toc_OAsparagusEstablishedPlantation, toc_OBushFruit, toc_OFarmForest, toc_OGrazingPigs, toc_OliveGrove, toc_OOrchardCrop, toc_OPermanentGrassGrazed, toc_OPermanentGrassLowYield, toc_OrchardCrop, toc_OYoungForestCrop, toc_PermanentGrassGrazed, toc_PermanentGrassLowYield, toc_PermanentGrassTussocky, toc_PermanentSetAside, toc_Tulips, toc_Vineyards, toc_YoungForestCrop, tole_AlmondPlantation, tole_AsparagusPerm, tole_BushFruit, tole_ChristmasTrees, tole_EnergyCrop, tole_FarmBufferZone, tole_FarmFeedingGround, tole_FarmForest, tole_FarmYoungForest, tole_FlowersPerm, tole_GreenFallow, tole_MushroomPerm, tole_NaturalFarmGrass, tole_OAsparagusPerm, tole_OBushFruit, tole_OChristmasTrees, tole_OEnergyCrop, tole_OFarmForest, tole_OFarmYoungForest, tole_OliveGrove, tole_OOrchard, tole_OPermPasture, tole_OPermPastureLowYield, tole_OPermPasturePigs, tole_Orchard, tole_OtherPermCrop, tole_PermanentSetaside, tole_PermPasture, tole_PermPastureLowYield, tole_PermPasturePigs, tole_PermPastureTussocky, tole_PlantNursery, tole_RiceField, tole_Vineyard, tole_WalnutPlantation, tole_WoodyEnergyCrop, tole_YoungForest, tov_BEOrchardCrop, tov_DEAsparagusEstablishedPlantation, tov_DEOAsparagusEstablishedPlantation, tov_DEOBushFruitPerm, tov_DEOOrchard, tov_DEOPermanentGrassGrazed, tov_DEOPermanentGrassLowYield, tov_DEOrchard, tov_DEPermanentGrassGrazed, tov_DEPermanentGrassLowYield, tov_DKBushFruit_Perm1, tov_DKChristmasTrees_Perm, tov_DKEnergyCrop_Perm, tov_DKFarmForest_Perm, tov_DKFarmYoungForest_Perm, tov_DKGrassGrazed_Perm, tov_DKGrassLowYield_Perm, tov_DKGrassTussocky_Perm, tov_DKGrazingPigs_Perm, tov_DKOBushFruit_Perm1, tov_DKOChristmasTrees_Perm, tov_DKOEnergyCrop_Perm, tov_DKOFarmForest_Perm, tov_DKOFarmYoungForest_Perm, tov_DKOGrassGrazed_Perm, tov_DKOGrassLowYield_Perm, tov_DKOGrazingPigs_Perm, tov_DKOOrchardCrop_Perm, tov_DKOrchardCrop_Perm, tov_DKPlantNursery_Perm, tov_FIBufferZone_Perm, tov_FIFeedingGround, tov_FIGreenFallow_Perm, tov_FINaturalGrassland_Perm, tov_FRGrassland_Perm, tov_ITGrassland, tov_ITOOrchard, tov_ITOrchard, tov_NLOrchardCrop, tov_NLPermanentGrassGrazed, tov_NLPermanentGrassGrazedExtensive, tov_NLTulips, tov_OrchardCrop, tov_PermanentGrassTussocky, tov_PermanentSetAside, tov_PTOliveGroveIntensive, tov_PTOliveGroveSuperIntensive, tov_PTOliveGroveTraditional, tov_PTOliveGroveTradOrganic, tov_PTPermanentGrassGrazed, tov_PTVineyards, tov_UKPermanentGrass, tov_Undefined, tov_YoungForest, LE_TypeClass::TranslateVegTypes(), CfgInt::value(), CfgFloat::value(), CfgBool::value(), MapErrorMsg::Warn(), and WARN_BUG.

Referenced by UserDefinedFarm::InitiateManagement().

◆ Insecticide()

void Farm::Insecticide ( int a_area )

virtual

Records the costs of insecticide treatment, and associated score changes.

 {
     // We need to look up the return on cost of applying the insecticide to a_tov
     // Then tell the farmer that he spent this money
     // In this case there is a change to risk or environmental impact
     /*
     m_OurFarmer->AddCost(m_InsecticideCost);
     m_OurFarmer->ChangeRiskScore(m_InsecticideRiskChange);
     m_OurFarmer->ChangeEnvironmentScore(m_EnvironmentalRiskChange);
     */
 }

◆ InsecticideTreat()

bool Farm::InsecticideTreat	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply insecticide to a_field.

 {
     FarmToDo treatment = insecticide_treat;
     if (0 >= a_days)
     {
         if ((!(a_field->GetSignal() & LE_SIG_NO_INSECTICIDE)))
         {
             a_field->Trace(treatment);
             a_field->SetLastTreatment(treatment);
             if (l_farm_insecticide_kills.value())
             {
                 a_field->Insecticide(0.36);
             }
             a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
             g_landscape_ptr->CheckForPesticideRecord(a_field, insecticide);
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     else if ((g_weather->GetWind() < cfg_pest_max_wind.value()) &&
         (!g_weather->Raining()) && DoIt(DO_IT_PROB)) {
         if (!(a_field->GetSignal() & LE_SIG_NO_INSECTICIDE)) {
             a_field->Trace(treatment);
             a_field->SetLastTreatment(treatment);
             if (l_farm_insecticide_kills.value()) {
                 a_field->Insecticide(0.36);
             }
             a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
             g_landscape_ptr->CheckForPesticideRecord(a_field, insecticide);
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References cfg_pest_max_wind, Landscape::CheckForPesticideRecord(), DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_landscape_ptr, g_weather, Weather::GetWind(), LE::Insecticide(), insecticide, insecticide_treat, l_farm_insecticide_kills, LE_SIG_NO_INSECTICIDE, Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), CfgFloat::value(), and CfgBool::value().

◆ InvIntPartition()

int Farm::InvIntPartition	(	vector< tpct > *	items,
		int	target
	)

protected

Finds all possible sums of the integers in the items array.

                                                         {
     //Figure out how many bitmasks we need...
     //4 bits have a maximum value of 15, so we need 15 masks.
     //Calculated as:
     //    (2 ^ ItemCount) - 1
     long long int sz = (long long int) items->size();
     if (sz>63) {
         // This is a warning that we did no consider all combinations of fields but 2^63 combinations should be enough :)
         g_msg->WarnAddInfo(WARN_MSG,"Too many potential fields in UserDefinedFarm::InvIntPartition: ",double(sz));
         g_msg->WarnAddInfo(WARN_MSG,"Farm Number: ",GetFarmNumber());
         sz = 63;
     }
     long int calcs = (1 << sz);
     //Spit out the corresponding calculation for each bitmask
     int sum;
     int found = 0;
     int diff = 100;
     for (long int i=1; i<calcs; i++) {
         //Get the items from our array that correspond to
         //the on bits in our mask
         sum = 0;
         int mask = 1;
         for (int bit=0; bit<sz; bit++) {
             if ((i & mask) > 0) {
                 sum+=(*items)[bit].pct;
             }
             mask = mask << 1;
         }
  
         if (abs(sum-target) < diff ){
             found = i;
             diff = abs(sum-target);
             if (diff<1) break; //added 01.11.12 to prevent from checking all the combinations when the right one is found
         }
     }
     return found;
 }

References g_msg, GetFarmNumber(), WARN_MSG, and MapErrorMsg::WarnAddInfo().

Referenced by AssignPermanentCrop().

◆ Irrigation()

bool Farm::Irrigation	(	LE *	a_field,
		double	a_user,
		int	a_days,
		int	a_max
	)

virtual

Generate an 'irrigation' event with a frequency defined by a_freq in the irrigation period on a_field.

 {
     FarmToDo treatment = water;
     if (!g_weather->Raining())
     {
         LE* um = SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
     }
     if ((g_date->DayInYear() > a_max) || (0 >= a_days))
     {
         a_field->ToggleIrrigation();
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1) {
             // Must have an unsprayed margin so need to pass the information on to it
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             if (um != nullptr) {
                 um->ToggleIrrigation();
             }
         }
         return true; // Only returns true when finsihed irrigation
     }
     return false;
 }

References Calendar::DayInYear(), EL_TRAMLINE_DECAYTIME, g_date, g_landscape_ptr, g_weather, LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), Landscape::SupplyLEPointer(), LE::ToggleIrrigation(), and water.

Referenced by PTCabbage::Do(), PTCabbage_Hort::Do(), PTHorticulture::Do(), PTPotatoes::Do(), PTMaize_Hort::Do(), PTMaize::Do(), PTSorghum::Do(), DE_OAsparagusEstablishedPlantation::Do(), DE_AsparagusEstablishedPlantation::Do(), ITOrchard::Do(), and ITOOrchard::Do().

◆ IrrigationStart()

bool Farm::IrrigationStart	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Start a irrigation event on a_field today.

This is the main initiate irrigation method and as such is called at the moment irrigation is started.

 {
     FarmToDo treatment = water;
     if ((0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(), 5) < 0.1) && DoIt(DO_IT_PROB)))
     {
         LE* um = SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
         a_field->ToggleIrrigation();
         if (um != nullptr) {
             um->ToggleIrrigation();
         }
         return true;
     }
     return false;
 }

References Calendar::Date(), DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_date, g_weather, Weather::GetRainPeriod(), LE::ToggleIrrigation(), and water.

◆ IsStockFarmer()

bool Farm::IsStockFarmer ( void )

inline

961 { return m_stockfarmer; }

References m_stockfarmer.

◆ LeafThinning()

bool Farm::LeafThinning	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

LeafThinning (leaf removal to increase areation and sun exposure of fruits, e.g., grapes) applied on a_field.

details needs to be added (e.g., impact on biomass, influence/impacts in species code)!

 {
     FarmToDo treatment = pruning;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, g_weather, pruning, and Weather::Raining().

Referenced by PTVineyards::Do(), ITOrchard::Do(), and ITOOrchard::Do().

◆ LeSwitch()

bool Farm::LeSwitch ( FarmEvent * ev )

protected

Call do function for any crop with an outstanding event. Signal if the crop has terminated.

                                     {
     // Ignore this event if it is from the execution of
     // a previous management plan.
     if (ev->m_field->GetRunNum() > ev->m_run)
         return false;
     // Store what we are trying to do this time.
     // ***FN*** To be cleaned up later.
     ev->m_field->m_tried_to_do = ev->m_todo;
  
     bool done = false;
  
     /* We loop through the loaded cropprog in the FarmManager (for the entire landscape)
        and stop when we find the cropprog corresponding to this particular FarmEvent.
        We then call the correct Do() function of the crop progs, beneifiting from runtime polymorphism
        since all cropprogs are derived from the base class Crop */
     vector<Crop*> * cropprogs = m_OurManager->GetCropMgtPlans();
     for (unsigned int i = 0; i < cropprogs->size(); i++)
     {
         if ( (ev->m_event == (*cropprogs)[i]->m_tov) || 
               (ev->m_event == tov_PlantNursery && (*cropprogs)[i]->m_tov == tov_YoungForest ) ) // Preserve logic from before: "uses youngforrest management because this effectively does nothing, but stops the crop management creating looping error"
         { 
             done = (*cropprogs)[i]->Do(this, ev->m_field, ev);
             break;
         }
  
     }
  
     return done;
 }

References FarmEvent::m_event, FarmEvent::m_field, FarmEvent::m_run, FarmEvent::m_todo, LE::m_tried_to_do, tov_PlantNursery, and tov_YoungForest.

◆ ListOpenFields()

polylist * Farm::ListOpenFields ( int a_openness )

Returns a list of fields with openness above a_openness.

Returns the list of fields more open than a_openness.

 {
     polylist* p_list = new polylist;
     int nf = (int) m_fields.size();
     for ( int i = 0; i < nf; i++ )
     {
         if ( m_fields[ i ]->GetOpenness() >= a_openness )
         {
             p_list->push_back( m_fields[i]->GetPoly());
         }
     }
     return p_list;
 }

References m_fields.

◆ MakeStockFarmer()

virtual void Farm::MakeStockFarmer ( void )

inlinevirtual

Reimplemented in PesticideTrialTreatment, PesticideTrialToxicControl, PesticideTrialControl, OrganicPlant, and ConventionalPlant.

962 { m_stockfarmer = true; }

References m_stockfarmer.

◆ ManualWeeding()

bool Farm::ManualWeeding	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Manual weeding on a_field - no tramlines since weeding by hand, the bush stays on field with same vegetation height, thus suspects same % insects.

 {
     FarmToDo treatment = manual_weeding;
     if ((0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(), 5) < 0.1)
         && DoIt(DO_IT_PROB)))
     {
         SetFunctionData(a_field, 1.0, 0.95, 0, treatment);
         return true;
     }
     return false;
 }

References Calendar::Date(), DO_IT_PROB, g_date, g_weather, Weather::GetRainPeriod(), and manual_weeding.

Referenced by DK_OSugarBeet::Do(), DK_OFodderBeet::Do(), DE_OSugarBeet::Do(), DE_OCabbages::Do(), DE_OBushFruitPerm::Do(), DE_OCarrots::Do(), DK_OCabbages::Do(), DK_OCarrots::Do(), DK_Cabbages::Do(), DK_OBushFruit_Perm2::Do(), DE_BushFruitPerm::Do(), DK_BushFruit_Perm2::Do(), DE_OOrchard::Do(), DK_OChristmasTrees_Perm::Do(), and DK_ChristmasTrees_Perm::Do().

◆ Molluscicide()

bool Farm::Molluscicide	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Apply molluscicide to a_field.

 {
     FarmToDo treatment = molluscicide;
     if (0 >= a_days) {
         if ((!g_weather->Raining()) && (g_weather->GetWind() < cfg_pest_max_wind.value()) &&
             (!(a_field->GetSignal() & LE_SIG_NO_MOLLUSC))) {
             a_field->Trace(treatment);
             a_field->SetLastTreatment(treatment);
             a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
             g_landscape_ptr->CheckForPesticideRecord(a_field, insecticide);
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     else if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         if (!(a_field->GetSignal() & LE_SIG_NO_MOLLUSC)) {
             a_field->Trace(treatment);
             a_field->SetLastTreatment(treatment);
             a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
             g_landscape_ptr->CheckForPesticideRecord(a_field, insecticide);
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References cfg_pest_max_wind, Landscape::CheckForPesticideRecord(), DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_landscape_ptr, g_weather, Weather::GetWind(), insecticide, LE_SIG_NO_MOLLUSC, molluscicide, Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), and CfgFloat::value().

Referenced by DK_FodderBeet::Do(), DK_SugarBeet::Do(), DK_OSugarBeet::Do(), DK_OFodderBeet::Do(), DK_OVegSeeds::Do(), DK_OCabbages::Do(), DK_WinterBarley::Do(), DK_VegSeeds::Do(), DK_Cabbages::Do(), DK_WinterWheat::Do(), DK_WinterWheat_CC::Do(), DK_OBushFruit_Perm2::Do(), DK_MixedVeg::Do(), DK_OBushFruit_Perm1::Do(), DK_BushFruit_Perm1::Do(), PLWinterRape::Do(), DK_BushFruit_Perm2::Do(), IRWinterOats::Do(), IRWinterBarley::Do(), IRSpringOats::Do(), IRSpringBarley::Do(), IRSpringWheat::Do(), IRWinterWheat::Do(), and DE_WinterRape::Do().

◆ Mowing()

bool Farm::Mowing	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Physical/mechanical weed control in the between-row area using a rotary mower cutter.

                                                    {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         a_field->Trace(mow);
         a_field->SetLastTreatment(mow);
         // 30% insect mortality
         a_field->InsectMortality(0.7);
         // remove vegetation partly
         a_field->ReduceVeg(0.8);
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1) {
             // Must have an unsprayed margin so need to pass the information on to it
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->SetLastTreatment(mow);
             um->InsectMortality(0.7);
             um->ReduceVeg(0.8);
         }
         return true;
     }
     return false;
 }

References DO_IT_PROB, g_landscape_ptr, g_weather, LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), mow, Weather::Raining(), LE::ReduceVeg(), LE::SetLastTreatment(), and Landscape::SupplyLEPointer().

Referenced by PTOliveGroveTradOrganic::Do(), PTOliveGroveIntensive::Do(), and PTOliveGroveTraditional::Do().

◆ OrganicFungicide()

bool Farm::OrganicFungicide	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Biocide applied on a_field.

 {
     FarmToDo treatment = org_fungicide;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         a_field->Trace(treatment);
         a_field->SetLastTreatment(treatment);
         a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
         /* LKM: Assume not applied for unsprayed margins
         */      CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, org_fungicide, Weather::Raining(), LE::SetLastTreatment(), and LE::SetTramlinesDecay().

Referenced by DK_OOrchPear::Do(), DK_OOrchOther::Do(), DK_OOrchApple::Do(), DK_OOrchardCrop_Perm::Do(), and DE_OOrchard::Do().

◆ OrganicHerbicide()

bool Farm::OrganicHerbicide	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Biocide applied on a_field.

 {
     FarmToDo treatment = org_herbicide;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         a_field->Trace(treatment);
         a_field->SetLastTreatment(treatment);
         a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
         /* LKM: Assume not applied for unsprayed margins
         */      CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, org_herbicide, Weather::Raining(), LE::SetLastTreatment(), and LE::SetTramlinesDecay().

◆ OrganicInsecticide()

bool Farm::OrganicInsecticide	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Biocide applied on a_field.

 {
     FarmToDo treatment = org_insecticide;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         a_field->Trace(treatment);
         a_field->SetLastTreatment(treatment);
         a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
         /* LKM: Assume not applied for unsprayed margins
         */      CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, org_insecticide, Weather::Raining(), LE::SetLastTreatment(), and LE::SetTramlinesDecay().

Referenced by DE_OPotatoes::Do(), DK_OMixedVeg::Do(), DK_OOrchCherry::Do(), DK_OOrchPear::Do(), DK_OOrchardCrop_Perm::Do(), DK_OOrchApple::Do(), DK_OOrchOther::Do(), and DE_OOrchard::Do().

◆ Pheromone()

bool Farm::Pheromone	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Pheromone applied on a_field - same as with org. pesticides for now.

 {
     FarmToDo treatment = pheromone;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         a_field->Trace(treatment);
         a_field->SetLastTreatment(treatment);
         a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
         /* LKM: Assume not applied for unsprayed margins
         */      CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, pheromone, Weather::Raining(), LE::SetLastTreatment(), and LE::SetTramlinesDecay().

Referenced by DE_OOrchard::Do().

◆ PigsAreOut()

bool Farm::PigsAreOut	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Start a pig grazing event on a_field today or soon.

 {
  
     if ((0 >= a_days) || DoIt(50 / a_days)) {
         a_field->TogglePigGrazing();
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1) {
             // Must have an unsprayed margin so need to pass the information on to it
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->TogglePigGrazing();
         }
         return true;
     }
     return false;
 }

References g_landscape_ptr, LE::GetUnsprayedMarginPolyRef(), Landscape::SupplyLEPointer(), and LE::TogglePigGrazing().

Referenced by DK_GrazingPigs::Do(), OGrazingPigs::Do(), DK_OGrazingPigs_Perm::Do(), DK_OGrazingPigs::Do(), DK_GrazingPigs_Perm::Do(), DK_OChristmasTrees_Perm::Do(), and DK_ChristmasTrees_Perm::Do().

◆ PigsAreOutForced()

bool Farm::PigsAreOutForced	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Start a pig grazing event on a_field today - no exceptions.

 {
     FarmToDo treatment = pigs_out;
     a_field->SetLastTreatment(treatment);
     a_field->Trace(treatment);
     // Reduce the vegetation because of grazing
     a_field->ReduceVeg_Extended(l_farm_pig_veg_reduce.value());
     // make this a function of grazing pressure
     //and field size - perhaps in a later life
     int pref = a_field->GetUnsprayedMarginPolyRef();
     if (pref != -1) {
         // Must have an unsprayed margin so need to pass the information on to it
         LE* um = g_landscape_ptr->SupplyLEPointer(pref);
         um->SetLastTreatment(treatment);
         um->ReduceVeg_Extended(l_farm_pig_veg_reduce.value());
     }
     CalculateTreatmentCosts(treatment, a_field); // should be there a return true?
     return false;
 }

References g_landscape_ptr, LE::GetUnsprayedMarginPolyRef(), l_farm_pig_veg_reduce, pigs_out, LE::ReduceVeg_Extended(), LE::SetLastTreatment(), Landscape::SupplyLEPointer(), and CfgFloat::value().

Referenced by DK_GrazingPigs::Do(), OGrazingPigs::Do(), DK_OGrazingPigs_Perm::Do(), DK_OGrazingPigs::Do(), and DK_GrazingPigs_Perm::Do().

◆ PigsOut()

bool Farm::PigsOut	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Generate a 'pigs_out' event for every day the cattle are on a_field.

 {
     FarmToDo treatment = pigs_out;
     if ((0 >= a_days) || DoIt(DO_IT_PROB))
     {
         a_field->TogglePigGrazing();
         a_field->Trace(treatment);
         a_field->SetLastTreatment(treatment);
         // Reduce the vegetation because of grazing
         a_field->ReduceVeg_Extended(l_farm_pig_veg_reduce.value());
         // make this a function of grazing pressure
         //and field size - perhaps in a later life
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1) {
             // Must have an unsprayed margin so need to pass the information on to it
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->SetLastTreatment(pigs_out);
             um->ReduceVeg_Extended(l_farm_pig_veg_reduce.value());
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References DO_IT_PROB, g_landscape_ptr, LE::GetUnsprayedMarginPolyRef(), l_farm_pig_veg_reduce, pigs_out, LE::ReduceVeg_Extended(), LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::TogglePigGrazing(), and CfgFloat::value().

Referenced by DK_GrazingPigs::Do(), OGrazingPigs::Do(), DK_OGrazingPigs_Perm::Do(), DK_OGrazingPigs::Do(), DK_GrazingPigs_Perm::Do(), DK_OChristmasTrees_Perm::Do(), and DK_ChristmasTrees_Perm::Do().

◆ PreseedingCultivator()

bool Farm::PreseedingCultivator	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out preseeding cultivation on a_field (tilling set including cultivator and string roller to compact soil)

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 0.1, 0.0,  0,preseeding_cultivator);
         return true;
     }
     return false;
 }

References DO_IT_PROB, g_weather, preseeding_cultivator, and Weather::Raining().

Referenced by UKMaize::Do(), FI_OPotato_North::Do(), FI_OStarchPotato_South::Do(), FI_OStarchPotato_North::Do(), FI_OPotato_South::Do(), FI_OPotatoIndustry_North::Do(), FI_OPotatoIndustry_South::Do(), FI_SugarBeet::Do(), NLMaizeSpring::Do(), UKBeans::Do(), FI_Potato_North::Do(), FI_StarchPotato_North::Do(), FI_PotatoIndustry_North::Do(), FI_Potato_South::Do(), FI_PotatoIndustry_South::Do(), UKBeet::Do(), FI_StarchPotato_South::Do(), NLMaize::Do(), NLBeetSpring::Do(), UKSpringBarley::Do(), NLCarrotsSpring::Do(), NLBeet::Do(), NLGrassGrazedExtensive1Spring::Do(), NLCarrots::Do(), NLSpringBarleySpring::Do(), NLCabbageSpring::Do(), NLGrassGrazedExtensive1::Do(), NLCabbage::Do(), PLCarrots::Do(), BEGrassGrazed1Spring::Do(), NLSpringBarley::Do(), UKWinterRape::Do(), PLSpringBarleySpr::Do(), PLFodderLucerne1::Do(), UKTempGrass::Do(), PLBeetSpr::Do(), DE_HerbsPerennial_1year::Do(), NLGrassGrazed1Spring::Do(), PLBeans::Do(), DE_OHerbsPerennial_1year::Do(), DE_OGrasslandSilageAnnual::Do(), FI_OSpringBarley_Malt::Do(), NLGrassGrazed1::Do(), FI_OFabaBean::Do(), FI_OCaraway1::Do(), DE_Maize::Do(), FI_OTurnipRape::Do(), FI_GrasslandPasturePerennial1::Do(), FI_GrasslandSilagePerennial1::Do(), FI_OSpringOats::Do(), DE_MaizeSilage::Do(), FI_OSpringRape::Do(), FI_OSpringWheat::Do(), FI_OSpringBarley_Fodder::Do(), PLWinterRye::Do(), FI_GrasslandSilageAnnual::Do(), FI_TurnipRape::Do(), FI_FabaBean::Do(), PLMaizeSilage::Do(), PLSpringBarley::Do(), PLMaize::Do(), FI_OWinterRye::Do(), FI_SpringRape::Do(), FI_Caraway1::Do(), FI_SpringBarley_Malt::Do(), PLWinterTriticale::Do(), FR_Sunflower::Do(), FI_OWinterWheat::Do(), PLBeet::Do(), PLWinterBarley::Do(), PLWinterWheat::Do(), FI_SpringWheat::Do(), FI_SprSpringBarley_Fodder::Do(), PLSpringWheat::Do(), FI_SpringOats::Do(), PLWinterWheatLate::Do(), DE_Carrots::Do(), PLPotatoes::Do(), FI_SpringBarley_Fodder::Do(), DE_Oats::Do(), DE_Cabbage::Do(), FR_SpringWheat::Do(), DE_SpringRye::Do(), PLWinterRape::Do(), FR_WinterBarley::Do(), FI_WinterWheat::Do(), DE_GrasslandSilageAnnual::Do(), FI_WinterRye::Do(), FR_WinterWheat::Do(), FR_WinterRape::Do(), DE_WinterRape::Do(), DE_SugarBeet::Do(), DE_Potatoes::Do(), and DE_PotatoesIndustry::Do().

◆ PreseedingCultivatorSow()

bool Farm::PreseedingCultivatorSow	(	LE *	a_field,
		double	a_user,
		int	a_days,
		double	a_seed_coating_amount = `-1`,
		PlantProtectionProducts	a_ppp = `ppp_foobar`
	)

virtual

Carry out preseeding cultivation together with sow on a_field (tilling and sowing set including cultivator and string roller to compact soil)

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         LE* um = SetFunctionData(a_field, 0.1, 0.0,  0,preseeding_cultivator_sow);
         a_field->SetGrowthPhase(sow); // as with AutumnSow treatment
         a_field->SetLastSownVeg(a_field->GetVegType()); // as with AutumnSow treatment
         //start the flowering period.
         if(a_field->GetPollenNectarCurveRef()<0){
             a_field->CalculateFlowerResourceForCropSow(a_field->GetVegType());
         }
         // Apply seed coating if turned on 
         if (a_seed_coating_amount > 0) {
             g_pest->DailyQueueAddSeedCoating(a_field, a_seed_coating_amount/10000, a_ppp); // Application rate is changed from g/ha to g/m2
         }
         if (um != nullptr) {
             um->SetGrowthPhase(sow);
             um->SetLastSownVeg(a_field->GetVegType());
             //start the flowering period.
             if(um->GetPollenNectarCurveRef()<0){
                 um->CalculateFlowerResourceForCropSow(um->GetVegType());
             }
             // Apply seed coating if turned on 
             if (a_seed_coating_amount > 0) {
                 g_pest->DailyQueueAddSeedCoating(um, a_seed_coating_amount/10000, a_ppp); // Application rate is changed from g/ha to g/m2
             }
         }
         return true;
     }
     return false;
 }

References LE::CalculateFlowerResourceForCropSow(), Pesticide::DailyQueueAddSeedCoating(), DO_IT_PROB, g_pest, g_weather, LE::GetPollenNectarCurveRef(), preseeding_cultivator_sow, Weather::Raining(), LE::SetGrowthPhase(), LE::SetLastSownVeg(), and sow.

Referenced by NLCatchCropPea::Do(), DK_Legume_Peas::Do(), FI_OStarchPotato_North::Do(), FI_OStarchPotato_South::Do(), FI_OPotato_North::Do(), FI_OPotato_South::Do(), FI_OPotatoIndustry_North::Do(), FI_OPotatoIndustry_South::Do(), DK_MaizeSilage::Do(), DK_SpringOats_CC::Do(), FI_SugarBeet::Do(), DK_Legume_Beans::Do(), DK_SpringOats::Do(), DK_Maize::Do(), DK_SpringWheat::Do(), DK_Legume_Whole::Do(), FI_Potato_North::Do(), FI_StarchPotato_North::Do(), FI_PotatoIndustry_North::Do(), FI_Potato_South::Do(), FI_PotatoIndustry_South::Do(), FI_StarchPotato_South::Do(), DK_OVegSeeds::Do(), DK_SpringBarleyCloverGrass::Do(), UKWinterBarley::Do(), DK_OWinterRape::Do(), DK_SpringBarley_CC::Do(), DK_SpringBarley::Do(), NLSpringBarleySpring::Do(), DK_WinterBarley::Do(), DK_VegSeeds::Do(), DK_WinterRye::Do(), DK_WinterRye_CC::Do(), NLSpringBarley::Do(), NLWinterWheat::Do(), PLSpringBarleySpr::Do(), DK_WinterWheat::Do(), PTOats::Do(), PLBeetSpr::Do(), PTWinterBarley::Do(), PTWinterWheat::Do(), PTWinterRye::Do(), DK_WinterRape::Do(), PTTriticale::Do(), FI_OSpringBarley_Malt::Do(), PTYellowLupin::Do(), PTGrassGrazed::Do(), FI_OFabaBean::Do(), FI_OSpringOats::Do(), FI_OSpringRape::Do(), FI_OTurnipRape::Do(), FI_OSpringWheat::Do(), FR_SpringBarley::Do(), FR_SpringOats::Do(), FI_OSpringBarley_Fodder::Do(), PLWinterRye::Do(), DE_SpringBarley::Do(), FI_TurnipRape::Do(), FR_Sorghum::Do(), FR_Maize_Silage::Do(), FR_Maize::Do(), PLSpringBarley::Do(), FI_FabaBean::Do(), FR_WinterTriticale::Do(), FI_SpringRape::Do(), FI_SpringBarley_Malt::Do(), PLWinterTriticale::Do(), PTCloverGrassGrazed1::Do(), FI_OWinterWheat::Do(), PLWinterWheat::Do(), PLBeet::Do(), FI_SprSpringBarley_Fodder::Do(), PLWinterBarley::Do(), FI_SpringWheat::Do(), PLWinterWheatLate::Do(), PLSpringWheat::Do(), FI_SpringOats::Do(), FI_SpringBarley_Fodder::Do(), PTPermanentGrassGrazed::Do(), DE_Oats::Do(), DE_SpringRye::Do(), FI_WinterWheat::Do(), IRSpringOats::Do(), IRWinterBarley::Do(), IRWinterOats::Do(), FR_Grassland::Do(), IRSpringBarley::Do(), IRSpringWheat::Do(), IRWinterWheat::Do(), and DE_SugarBeet::Do().

◆ Prob_multiplier()

virtual double Farm::Prob_multiplier ( )

inlinevirtual

◆ ProductApplication()

bool Farm::ProductApplication	(	LE *	a_field,
		double	a_user,
		int	a_days,
		double	a_applicationrate,
		PlantProtectionProducts	a_ppp,
		bool	a_isgranularpesticide = `false`,
		int	a_orcharddrifttype = `0`
	)

virtual

Apply test pesticide to a_field.

 {
     if (a_applicationrate <= 0.0) return true;
  
     FarmToDo treatment = product_treat;
     // NOTE Differs from normal pesticide in that it will be done on the last
     // day if not managed before
     if (0 >= a_days) {
         a_field->Trace(treatment);
         a_field->SetLastTreatment(treatment);
         if (l_farm_insecticide_kills.value())
         {
             a_field->Insecticide(cfg_CustomInsecticidesSurvProp.value());
         }
         a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
         g_landscape_ptr->CheckForPesticideRecord(a_field, testpesticide);
         if (a_isgranularpesticide) g_pest->DailyQueueAddGranular(a_field, a_applicationrate/10000, a_ppp); // Application rate is changed from g/ha to g/m2
         else g_pest->DailyQueueAdd(a_field, a_applicationrate/10000, a_ppp, a_drifttype);
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     else {
         if ((!g_weather->Raining()) && (g_weather->GetWind() < cfg_pest_max_wind.value())) {
             a_field->Trace(treatment);
             a_field->SetLastTreatment(treatment);
             if (l_farm_insecticide_kills.value()) {
                 a_field->Insecticide(cfg_CustomInsecticidesSurvProp.value());
             }
             a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
             g_landscape_ptr->CheckForPesticideRecord(a_field, testpesticide);
             if (a_isgranularpesticide) g_pest->DailyQueueAddGranular(a_field, a_applicationrate/10000, a_ppp);
             else g_pest->DailyQueueAdd(a_field, a_applicationrate/10000, a_ppp, a_drifttype);
             CalculateTreatmentCosts(treatment, a_field);
             return true;
         }
     }
     return false;
 }

References cfg_CustomInsecticidesSurvProp, cfg_pest_max_wind, Landscape::CheckForPesticideRecord(), Pesticide::DailyQueueAdd(), Pesticide::DailyQueueAddGranular(), EL_TRAMLINE_DECAYTIME, g_landscape_ptr, g_pest, g_weather, Weather::GetWind(), LE::Insecticide(), l_farm_insecticide_kills, product_treat, Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), testpesticide, CfgFloat::value(), and CfgBool::value().

Referenced by OrchardCrop::Do(), DK_CerealLegume_Whole::Do(), DK_CerealLegume::Do(), DK_Legume_Peas::Do(), DK_SpringBarley_Green::Do(), BEOrchardCrop::Do(), DK_SpringBarleySilage::Do(), DK_FodderBeet::Do(), NLOrchardCrop::Do(), DK_Legume_Beans::Do(), DK_SpringOats::Do(), DK_SpringOats_CC::Do(), DK_SugarBeet::Do(), DK_SpringWheat::Do(), UKBeans::Do(), DK_Legume_Whole::Do(), FI_Potato_North::Do(), FI_StarchPotato_North::Do(), FI_PotatoIndustry_North::Do(), FI_Potato_South::Do(), FI_PotatoIndustry_South::Do(), FI_StarchPotato_South::Do(), DK_SpringBarleyCloverGrass::Do(), DK_WinterFodderGrass::Do(), UKSpringBarley::Do(), UKWinterBarley::Do(), DK_SpringBarley_CC::Do(), DK_SpringBarley::Do(), DK_SpringFodderGrass::Do(), DK_WinterCloverGrassGrazedSown::Do(), BEWinterBarley::Do(), BEWinterBarleyCC::Do(), NLCabbageSpring::Do(), NLSpringBarleySpring::Do(), BEWinterWheat::Do(), BEWinterWheatCC::Do(), DK_VegSeeds::Do(), DK_WinterRye::Do(), DK_WinterRye_CC::Do(), DK_Carrots_Spring::Do(), NLCabbage::Do(), DK_Carrots::Do(), UKWinterWheat::Do(), NLSpringBarley::Do(), DK_Cabbages::Do(), SpringBarleyPTreatment::Do(), NLWinterWheat::Do(), PLSpringBarleySpr::Do(), DK_WinterWheat::Do(), DK_WinterWheat_CC::Do(), DK_Potato::Do(), UKPotatoes::Do(), FI_Caraway2::Do(), SpringRape::Do(), DK_MixedVeg::Do(), PLBeetSpr::Do(), PLBeans::Do(), DK_WinterRape::Do(), BEPotatoesSpring::Do(), DK_PotatoSeed::Do(), WinterRape::Do(), DE_BushFruitPerm::Do(), DE_Maize::Do(), FR_SpringBarley::Do(), DK_PotatoIndustry::Do(), DE_MaizeSilage::Do(), FR_SpringOats::Do(), NLPotatoesSpring::Do(), DE_SpringBarley::Do(), BEPotatoes::Do(), FI_TurnipRape::Do(), DE_AsparagusEstablishedPlantation::Do(), FR_Maize_Silage::Do(), FR_Maize::Do(), PLMaize::Do(), PLSpringBarley::Do(), NLPotatoes::Do(), PLMaizeSilage::Do(), FI_SpringRape::Do(), NLTulips::Do(), DE_Peas::Do(), FI_SpringBarley_Malt::Do(), FR_Sunflower::Do(), DE_Legumes::Do(), PLWinterTriticale::Do(), DE_WinterRye::Do(), FI_SprSpringBarley_Fodder::Do(), DK_CloverGrassGrazed3::Do(), FI_SpringWheat::Do(), PLWinterBarley::Do(), PLWinterWheat::Do(), PLBeet::Do(), DK_CloverGrassGrazed2::Do(), PLSpringWheat::Do(), PLWinterWheatLate::Do(), FI_SpringOats::Do(), PLPotatoes::Do(), FI_SpringBarley_Fodder::Do(), DK_BushFruit_Perm1::Do(), DE_Oats::Do(), DE_Cabbage::Do(), FR_SpringWheat::Do(), DE_WinterBarley::Do(), DE_SpringRye::Do(), PLWinterRape::Do(), PTVineyards::Do(), DK_BushFruit_Perm2::Do(), FR_WinterBarley::Do(), FI_WinterWheat::Do(), DE_WinterWheat::Do(), DE_WinterWheatLate::Do(), FR_WinterWheat::Do(), FI_WinterRye::Do(), DE_Triticale::Do(), FR_Potatoes::Do(), FR_WinterRape::Do(), DE_WinterRape::Do(), DE_Orchard::Do(), WinterWheat::Do(), DE_SugarBeet::Do(), DK_OrchCherry::Do(), DE_Potatoes::Do(), DK_OrchPear::Do(), DK_OrchardCrop_Perm::Do(), DK_OrchApple::Do(), DK_OrchOther::Do(), and DE_PotatoesIndustry::Do().

◆ ProductApplication_DateLimited()

bool Farm::ProductApplication_DateLimited	(	LE *	a_field,
		double	,
		int	,
		double	a_applicationrate,
		PlantProtectionProducts	a_ppp,
		bool	a_isgranularpesticide = `false`
	)

virtual

Special pesticide trial functionality.

This methods tests for date limitations

 {
     FarmToDo treatment = trial_insecticidetreat;
     int year = g_landscape_ptr->SupplyYearNumber();
     if (year < cfg_productapplicstartyear.value()) return false;
     if (year > cfg_productapplicendyear.value()) return false;
     a_field->Trace(treatment); // Debug function only
     a_field->SetLastTreatment(treatment);
     a_field->InsectMortality(cfg_CustomInsecticidesSurvProp.value());  // Change this manually if it is really a herbicide
     a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
     a_field->SetSprayedToday(true);
     if (a_isgranularpesticide) g_pest->DailyQueueAddGranular(a_field, a_applicationrate/10000, a_ppp);
     else g_pest->DailyQueueAdd(a_field, a_applicationrate/10000, a_ppp);
     CalculateTreatmentCosts(treatment, a_field);
     return true;
 }

References cfg_CustomInsecticidesSurvProp, cfg_productapplicendyear, cfg_productapplicstartyear, Pesticide::DailyQueueAdd(), Pesticide::DailyQueueAddGranular(), EL_TRAMLINE_DECAYTIME, g_landscape_ptr, g_pest, LE::InsectMortality(), LE::SetLastTreatment(), LE::SetSprayedToday(), LE::SetTramlinesDecay(), Landscape::SupplyYearNumber(), trial_insecticidetreat, CfgInt::value(), and CfgFloat::value().

Referenced by SpringBarleyCloverGrass::Do(), SpringBarleySpr::Do(), SpringBarleySilage::Do(), SpringBarley::Do(), and WinterRape::Do().

◆ Pruning()

bool Farm::Pruning	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Pruning applied on a_field - details needs to be added (e.g., impact on biomass, influence/impacts in species code)!

 {
     FarmToDo treatment = pruning;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, g_weather, pruning, and Weather::Raining().

Referenced by PTOliveGroveTradOrganic::Do(), DK_OEnergyCrop_Perm::Do(), PTOliveGroveIntensive::Do(), DK_EnergyCrop_Perm::Do(), PTOliveGroveSuperIntensive::Do(), PTOliveGroveTraditional::Do(), DK_OBushFruit_Perm2::Do(), DK_OOrchCherry::Do(), DK_OBushFruit_Perm1::Do(), DK_OOrchPear::Do(), DK_OOrchApple::Do(), DK_OOrchardCrop_Perm::Do(), DK_OOrchOther::Do(), PTVineyards::Do(), DK_BushFruit_Perm2::Do(), DK_OrchCherry::Do(), DK_OrchPear::Do(), DK_OrchOther::Do(), DK_OrchardCrop_Perm::Do(), DK_OrchApple::Do(), ITOrchard::Do(), DK_OChristmasTrees_Perm::Do(), ITOOrchard::Do(), and DK_ChristmasTrees_Perm::Do().

◆ ReadRotation()

void Farm::ReadRotation ( std::string fname )

protected

Reads a rotation file into the rotation.

 {
   ifstream ifile;
   ifile.open(str.c_str(),ios::in);
   if ( !ifile.is_open() ) {
       g_msg->Warn( "Cannot open file: ", str.c_str() );
       exit( 1 );
   }
   int nocrops;
   ifile >> nocrops;
   m_rotation.resize( nocrops );
   std::string cropref;
   for ( int i = 0; i < nocrops; i++ ) {
     ifile >> cropref;
     TTypesOfVegetation tov = g_farmmanager->TranslateVegCodes( cropref );
     m_rotation[ i ] = tov;
   }
   ifile.close();
 }

References g_farmmanager, g_msg, FarmManager::TranslateVegCodes(), and MapErrorMsg::Warn().

Referenced by OrganicCattle::OrganicCattle(), OrganicPig::OrganicPig(), OrganicPlant::OrganicPlant(), PesticideTrialTreatment::PesticideTrialTreatment(), UserDefinedFarm1::UserDefinedFarm1(), UserDefinedFarm10::UserDefinedFarm10(), UserDefinedFarm11::UserDefinedFarm11(), UserDefinedFarm12::UserDefinedFarm12(), UserDefinedFarm13::UserDefinedFarm13(), UserDefinedFarm14::UserDefinedFarm14(), UserDefinedFarm15::UserDefinedFarm15(), UserDefinedFarm16::UserDefinedFarm16(), UserDefinedFarm17::UserDefinedFarm17(), UserDefinedFarm2::UserDefinedFarm2(), UserDefinedFarm3::UserDefinedFarm3(), UserDefinedFarm4::UserDefinedFarm4(), UserDefinedFarm5::UserDefinedFarm5(), UserDefinedFarm6::UserDefinedFarm6(), UserDefinedFarm7::UserDefinedFarm7(), UserDefinedFarm8::UserDefinedFarm8(), and UserDefinedFarm9::UserDefinedFarm9().

◆ RemoveField()

void Farm::RemoveField ( LE * a_field )

Removes a field from a farm.

                                      {
   int nf = (int) m_fields.size();
   for ( int i = 0; i < nf; i++ ) {
     if ( m_fields[ i ] == a_field ) {
       m_fields.erase( m_fields.begin() + i );
       return;
     }
   }
   // If we reach here there is something wrong because the field is not a
   // member of this farm
   g_msg->Warn( WARN_BUG, "Farm::RemoveField(LE* a_field): ""Unknown field! ", "" );
   exit( 1 );
 }

References g_msg, MapErrorMsg::Warn(), and WARN_BUG.

◆ RemoveHunter()

void Farm::RemoveHunter ( Hunter * a_hunter )

inline

                                         {
         for (int h = 0; h < m_HuntersList.size(); h++) {
             if (m_HuntersList[h] == a_hunter) {
                 m_HuntersList.erase(m_HuntersList.begin() + h);
             }
         }
     }

References m_HuntersList.

◆ RowCultivation()

bool Farm::RowCultivation	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a harrowing between crop rows on a_field.

 {
     FarmToDo treatment = row_cultivation;
     if ((0 >= a_days) && (g_weather->GetRainPeriod(g_date->Date(), 3) < 0.1))
     {
         // Too much rain, just give up and claim we did it.
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
  
     if ((0 >= a_days) ||
         ((g_weather->GetRainPeriod(g_date->Date(), 3) < 0.1) && DoIt(DO_IT_PROB))
         ) {
         SetFunctionData(a_field, 0.25, 0.5, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References Calendar::Date(), DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_date, g_weather, Weather::GetRainPeriod(), and row_cultivation.

Referenced by WinterRapeStrigling::Do(), BroadBeans::Do(), OCarrots::Do(), DK_OLegume::Do(), DE_OPeas::Do(), OMaizeSilage::Do(), DK_OLegume_Peas_CC::Do(), DE_OLegume::Do(), DK_OLegume_Beans::Do(), DK_OLegume_Beans_CC::Do(), DK_OLegume_Peas::Do(), DK_FodderBeet::Do(), DK_OLupines::Do(), DK_MaizeSilage::Do(), DK_SugarBeet::Do(), DE_OMaizeSilage::Do(), Maize::Do(), MaizeSilage::Do(), MaizeStrigling::Do(), DK_OLegume_Whole::Do(), DK_OLegume_Whole_CC::Do(), DE_OMaize::Do(), DK_OSpringBarley_CC::Do(), DK_Maize::Do(), DK_OSpringBarley::Do(), DK_OSugarBeet::Do(), DK_OFodderBeet::Do(), DE_OWinterRape::Do(), OFodderBeet::Do(), OWinterRape::Do(), DK_OSpringOats::Do(), DK_OSpringWheat::Do(), DK_OVegSeeds::Do(), Carrots::Do(), DE_OCabbages::Do(), DE_OSugarBeet::Do(), DK_OSpringOats_CC::Do(), DK_OWinterRape::Do(), DK_OMaize::Do(), DK_OMaizeSilage::Do(), DK_OCabbages::Do(), DE_OCarrots::Do(), DK_OCarrots::Do(), SugarBeet::Do(), FodderBeet::Do(), DK_VegSeeds::Do(), DK_Carrots_Spring::Do(), DK_Carrots::Do(), DK_Cabbages::Do(), DK_OMixedVeg::Do(), DK_OPotatoSeed::Do(), DK_OPotato::Do(), DK_OPotatoIndustry::Do(), SpringRape::Do(), DE_HerbsPerennial_after1year::Do(), DK_OBushFruit_Perm2::Do(), DK_OSeedGrassRye_Spring::Do(), PLBeetSpr::Do(), DE_OHerbsPerennial_after1year::Do(), DK_MixedVeg::Do(), PLBeans::Do(), DK_WinterRape::Do(), WinterRape::Do(), DE_OAsparagusEstablishedPlantation::Do(), DK_OOrchCherry::Do(), FR_Sorghum::Do(), DK_OBushFruit_Perm1::Do(), DE_AsparagusEstablishedPlantation::Do(), DK_OOrchPear::Do(), DK_OOrchardCrop_Perm::Do(), DK_OOrchApple::Do(), PLBeet::Do(), DK_OOrchOther::Do(), DK_BushFruit_Perm1::Do(), DK_BushFruit_Perm2::Do(), DE_SugarBeet::Do(), DK_OrchCherry::Do(), DK_OrchPear::Do(), DK_OrchardCrop_Perm::Do(), DK_OrchOther::Do(), DK_OrchApple::Do(), DE_OOrchard::Do(), DK_OChristmasTrees_Perm::Do(), DK_ChristmasTrees_Perm::Do(), SpringRape::RowcolOne(), and WinterRape::RowcolOne().

◆ SetFarmNumber()

void Farm::SetFarmNumber ( int a_farm_num )

inline

774 { m_farm_num = a_farm_num; }

References m_farm_num.

◆ SetFunctionData()

LE * Farm::SetFunctionData	(	LE *	a_field,
		double	a_insecteffect,
		double	a_vegreduc,
		int	a_tramlinetime,
		FarmToDo	a_treatment
	)

carries out standard setting of data and deals with possible unsprayed margins, returns a pointer to UM or nullptr

Sets the standard data needed for most FarmFuncs. In the case that something else is needed and there is a UM then also returns a pointer to the UM LE so that further actions can be undertaken by the calling farm fuction.

a_insecteffect is a fraction by which the current population size is multiplied - so 1.0 means no change and 0.1 means reduction by 90%. a_vegezero indicates whether to remove vegetation. a_treatment is whatever is being done e.g. autumn_plough

 {
     LE* um = nullptr;
     // The trace below is for debugging checks
     #ifdef FMDEBUG
     a_field->Trace(a_treatment);
     #endif
     // Record the event for this field, so other objects can find out it has happened
     a_field->SetLastTreatment(a_treatment);
     // Apply mortality to the insects present, in this case 90%. This only affects the general insect model, any ALMaSS model species need to take their specific action.
     a_field->InsectMortality(a_insecteffect);
     // Reduce the vegetation
     if (a_vegreduc != 1.0)
         if (a_vegreduc == 0.0) a_field->ZeroVeg(); else a_field->ReduceVeg(a_vegreduc);
     // if the operation opens the tramlines record this
     if (a_tramlinetime > 0) a_field->SetTramlinesDecay(a_tramlinetime);
     // If the field has a field margin, then do all this to the field margin too. In events that don't occur on an unsprayed margin, e.g. insecticide, then is part is skipped.
     int pref = a_field->GetUnsprayedMarginPolyRef();
     if (pref != -1) {
         // Must have an unsprayed margin so need to pass the information on to it
         um = g_landscape_ptr->SupplyLEPointer(pref);
         um->SetLastTreatment(a_treatment);
         um->InsectMortality(a_insecteffect);
         if (a_vegreduc != 1.0)
             if (a_vegreduc == 0.0) um->ZeroVeg(); else um->ReduceVeg(a_vegreduc);
         if (a_tramlinetime > 0) um->SetTramlinesDecay(a_tramlinetime);
     }
     CalculateTreatmentCosts(a_treatment, a_field);
     return um;
 }

References g_landscape_ptr, LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), LE::ReduceVeg(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::ZeroVeg().

◆ SetFunctionDataNoUM()

void Farm::SetFunctionDataNoUM	(	LE *	a_field,
		double	a_insecteffect,
		double	a_vegreduc,
		int	a_tramlinetime,
		FarmToDo	a_treatment
	)

carries out standard setting of data when UMs should be ignored

Sets the standard data needed for most FarmFuncs for when any UM should be ignored a_insecteffect is a fraction by which the current population size is multiplied - so 1.0 means no change and 0.1 means reduction by 90%. a_vegezero indicates whether to remove vegetation. a_treatment is whatever is being done e.g. autumn_plough

 {
     // The trace below is for debugging checks
     a_field->Trace(a_treatment);
     // Record the event for this field, so other objects can find out it has happened
     a_field->SetLastTreatment(a_treatment);
     // Apply mortality to the insects present, in this case 90%. This only affects the general insect model, any ALMaSS model species need to take their specific action.
     a_field->InsectMortality(a_insecteffect);
     // Reduce the vegetation
     if (a_vegreduc != 1.0)
         if (a_vegreduc == 0.0) a_field->ZeroVeg(); else a_field->ReduceVeg(a_vegreduc);
     // if the operation opens the tramlines record this
     if (a_tramlinetime > 0) a_field->SetTramlinesDecay(a_tramlinetime);
     CalculateTreatmentCosts(a_treatment, a_field);
 }

References LE::InsectMortality(), LE::ReduceVeg(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), and LE::ZeroVeg().

◆ SetIntensity()

void Farm::SetIntensity ( double a_intensity )

inline

964 { m_intensity = a_intensity; }

References m_intensity.

Referenced by UserDefinedFarm::UserDefinedFarm().

◆ ShallowHarrow()

bool Farm::ShallowHarrow	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a shallow harrow event on a_field, e.g., after grass cutting event.

 {
     FarmToDo treatment = shallow_harrow;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 0.7, 0.8, 0, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, g_weather, Weather::Raining(), and shallow_harrow.

Referenced by UKMaize::Do(), DE_OPeas::Do(), DK_OLegume::Do(), DE_OLegume::Do(), DK_OLegume_Peas_CC::Do(), DK_OLentils::Do(), DK_OLegume_Beans_CC::Do(), DK_OLegume_Beans::Do(), DK_OLegume_Peas::Do(), DK_OLupines::Do(), DK_FodderBeet::Do(), DK_OSpringBarleyCloverGrass::Do(), DK_SugarBeet::Do(), DK_OLegume_Whole::Do(), DK_OLegume_Whole_CC::Do(), DK_OLegumeCloverGrass_Whole::Do(), DK_OSpringBarley_CC::Do(), NLMaizeSpring::Do(), DK_OSpringBarley::Do(), DK_OSugarBeet::Do(), DK_OFodderBeet::Do(), PLFodderLucerne2::Do(), PTOliveGroveTradOrganic::Do(), DE_OSugarBeet::Do(), DE_OCabbages::Do(), NLMaize::Do(), UKSpringBarley::Do(), DK_WinterFodderGrass::Do(), DK_OEnergyCrop_Perm::Do(), DK_OSpringBarleySilage::Do(), DK_OCabbages::Do(), DK_SpringFodderGrass::Do(), DK_WinterCloverGrassGrazedSown::Do(), DE_OCarrots::Do(), DK_OCarrots::Do(), NLCabbageSpring::Do(), NLSpringBarleySpring::Do(), PTOliveGroveIntensive::Do(), DK_EnergyCrop_Perm::Do(), DK_Carrots_Spring::Do(), NLCabbage::Do(), DK_Carrots::Do(), DK_Cabbages::Do(), NLSpringBarley::Do(), DK_Potato::Do(), DK_OSeedGrassRye_Spring::Do(), DK_PotatoSeed::Do(), FI_OCaraway1::Do(), DE_OAsparagusEstablishedPlantation::Do(), DK_PotatoIndustry::Do(), DK_OBushFruit_Perm1::Do(), DE_AsparagusEstablishedPlantation::Do(), FI_Caraway1::Do(), DE_WinterRye::Do(), DK_BushFruit_Perm1::Do(), SE_WinterRape_Seed::Do(), SE_WinterWheat::Do(), DE_Oats::Do(), FR_SpringWheat::Do(), DE_WinterBarley::Do(), DE_Cabbage::Do(), DE_SpringRye::Do(), DE_Triticale::Do(), DE_WinterWheatLate::Do(), and DE_WinterWheat::Do().

◆ Shredding()

bool Farm::Shredding	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Shredding (destruction of the pruning residues with a shredders using hammer mower) applied on a_field.

details needs to be added (e.g., impact on biomass, influence/impacts in species code)!

 {
     FarmToDo treatment = shredding;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, g_weather, Weather::Raining(), and shredding.

Referenced by PTOliveGroveTradOrganic::Do(), PTOliveGroveSuperIntensive::Do(), PTOliveGroveTraditional::Do(), PTVineyards::Do(), DK_OChristmasTrees_Perm::Do(), and DK_ChristmasTrees_Perm::Do().

◆ SleepAllDay()

bool Farm::SleepAllDay	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Nothing to to today on a_field.

 {
     if (0 >= a_days) {
         SetFunctionData(a_field, 1.0, 1.0, 0, sleep_all_day);
         return true;
     }
     return false;
 }

References sleep_all_day.

Referenced by DK_OptimalFlowerMix2::Do(), NLCatchCropPea::Do(), DK_OCatchCrop::Do(), DK_CatchCrop::Do(), DK_OptimalFlowerMix3::Do(), DK_OptimalFlowerMix1::Do(), DK_OMaize::Do(), DK_OMaizeSilage::Do(), DK_SpringBarley::Do(), DK_WinterBarley::Do(), DK_WinterRye::Do(), DK_WinterRye_CC::Do(), DK_OGrassGrazed_Perm::Do(), PTSetAside::Do(), DK_GrassGrazed_Perm::Do(), PTTurnipGrazed::Do(), DK_WinterWheat::Do(), DK_WinterWheat_CC::Do(), PTHorticulture::Do(), DK_OBushFruit_Perm2::Do(), DK_WinterRape::Do(), ITGrassland::Do(), DK_SetAside::Do(), DK_OSetAside::Do(), DK_OSetAside_AnnualFlower::Do(), DK_OSetAside_PerennialFlower::Do(), DK_OSetAside_SummerMow::Do(), FI_OCaraway1::Do(), DK_SetAside_SummerMow::Do(), FI_FeedingGround::Do(), DK_OOrchCherry::Do(), DK_OBushFruit_Perm1::Do(), FR_WinterTriticale::Do(), NLTulips::Do(), FI_Caraway1::Do(), DK_OOrchPear::Do(), DK_OOrchApple::Do(), DK_OOrchOther::Do(), DK_OOrchardCrop_Perm::Do(), DK_BushFruit_Perm2::Do(), FR_Grassland::Do(), DK_OrchCherry::Do(), DK_OrchPear::Do(), DK_OrchardCrop_Perm::Do(), DK_OrchOther::Do(), DK_OrchApple::Do(), IRGrassland_reseed::Do(), ITOrchard::Do(), DK_OChristmasTrees_Perm::Do(), ITOOrchard::Do(), and DK_ChristmasTrees_Perm::Do().

◆ Spraying_fungins()

virtual bool Farm::Spraying_fungins ( TTypesOfVegetation )

inlinevirtual

777 { return true; };

◆ Spraying_herbicides()

virtual bool Farm::Spraying_herbicides ( TTypesOfVegetation )

inlinevirtual

776 { return true; };

◆ SpringHarrow()

bool Farm::SpringHarrow	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a harrow event in the spring on a_field.

 {
     FarmToDo treatment = spring_harrow;
   if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
       SetFunctionData(a_field, 0.7, 0.0, 0, spring_harrow);
     return true;
   }
   return false;
 }

References DO_IT_PROB, g_weather, Weather::Raining(), and spring_harrow.

Referenced by NorwegianOats::Do(), NorwegianSpringBarley::Do(), BroadBeans::Do(), OSBarleySilage::Do(), OFieldPeas::Do(), OFieldPeasSilage::Do(), DK_OLegume::Do(), DE_OPeas::Do(), OCarrots::Do(), OBarleyPeaCloverGrass::Do(), OMaizeSilage::Do(), DE_OLegume::Do(), FI_OPotato_North::Do(), FI_OPotato_South::Do(), FI_OPotatoIndustry_North::Do(), DK_OLegume_Peas_CC::Do(), FI_OPotatoIndustry_South::Do(), FI_OStarchPotato_North::Do(), FI_OStarchPotato_South::Do(), DK_Legume_Peas::Do(), DK_OLegume_Beans_CC::Do(), DK_OLegume_Peas::Do(), DK_OLegume_Beans::Do(), DK_OLentils::Do(), DK_OLupines::Do(), DK_MaizeSilage::Do(), DK_OSpringBarleyCloverGrass::Do(), DE_OSpringRye::Do(), DK_SpringOats::Do(), DK_SpringOats_CC::Do(), DK_Legume_Beans::Do(), FI_SugarBeet::Do(), DE_OOats::Do(), DE_OMaizeSilage::Do(), OOats::Do(), DK_OLegume_Whole::Do(), DK_OLegumeCloverGrass_Whole::Do(), DK_OLegume_Whole_CC::Do(), DE_OMaize::Do(), DK_OptimalFlowerMix1::Do(), DK_OSpringBarley_CC::Do(), Maize::Do(), MaizeSilage::Do(), MaizeStrigling::Do(), DK_OCerealLegume_Whole::Do(), DK_SpringWheat::Do(), DK_Maize::Do(), Oats::Do(), OSpringBarleyExt::Do(), SpringBarleySeed::Do(), DK_Legume_Whole::Do(), DK_OSpringBarley::Do(), DK_OCerealLegume::Do(), DK_OSugarBeet::Do(), OSpringBarley::Do(), SpringBarleyCloverGrassStrigling::Do(), FI_Potato_North::Do(), FieldPeas::Do(), FieldPeasSilage::Do(), FieldPeasStrigling::Do(), OPotatoes::Do(), DK_OFodderBeet::Do(), FI_StarchPotato_North::Do(), SpringBarleyCloverGrass::Do(), FI_PotatoIndustry_North::Do(), OFodderBeet::Do(), FI_Potato_South::Do(), FI_PotatoIndustry_South::Do(), FI_StarchPotato_South::Do(), DK_OSpringOats::Do(), DK_OSpringWheat::Do(), DE_OSugarBeet::Do(), Carrots::Do(), DE_OCabbages::Do(), DK_OVegSeeds::Do(), DK_SpringBarleyCloverGrass::Do(), DK_OSpringOats_CC::Do(), SpringBarleyPeaCloverGrassStrigling::Do(), DK_SpringBarley_CC::Do(), DK_OMaize::Do(), DK_OMaizeSilage::Do(), DE_OPotatoes::Do(), DK_SpringBarley::Do(), DK_OSpringBarleySilage::Do(), DK_OCabbages::Do(), PotatoesIndustry::Do(), SugarBeet::Do(), DKOBroadBeans_test::Do(), Potatoes::Do(), FodderBeet::Do(), NorwegianPotatoes::Do(), SpringBarleySKManagement::Do(), PLCarrots::Do(), SpringBarleySpr::Do(), SpringBarleySilage::Do(), SpringBarleyStrigling::Do(), SpringBarleyStriglingSingle::Do(), SpringBarleyStriglingCulm::Do(), SpringBarleyPTreatment::Do(), PLSpringBarleySpr::Do(), DK_OMixedVeg::Do(), SpringBarley::Do(), DK_OPotato::Do(), DK_OPotatoIndustry::Do(), DK_OPotatoSeed::Do(), PLFodderLucerne1::Do(), PTPotatoes::Do(), DE_HerbsPerennial_after1year::Do(), SpringRape::Do(), PLBeetSpr::Do(), DE_HerbsPerennial_1year::Do(), DE_OHerbsPerennial_after1year::Do(), DE_OHerbsPerennial_1year::Do(), PLBeans::Do(), PTMaize::Do(), PTMaize_Hort::Do(), FI_OSpringBarley_Malt::Do(), PTSorghum::Do(), DK_OSetAside_AnnualFlower::Do(), DK_OSetAside_PerennialFlower::Do(), FI_OFabaBean::Do(), FI_OSpringRape::Do(), FI_OSpringOats::Do(), FI_OTurnipRape::Do(), FR_SpringBarley::Do(), OSpringBarleyPigs::Do(), FI_OSpringWheat::Do(), FI_OSpringBarley_Fodder::Do(), FR_SpringOats::Do(), FR_Sorghum::Do(), DK_OSpringFodderGrass::Do(), FR_Maize_Silage::Do(), FR_Maize::Do(), PLSpringBarley::Do(), PLMaizeSilage::Do(), PLMaize::Do(), FR_WinterTriticale::Do(), DE_Legumes::Do(), DE_Peas::Do(), SE_SpringBarley::Do(), FR_Sunflower::Do(), FI_SpringBarley_Malt::Do(), PLBeet::Do(), FI_SpringWheat::Do(), FI_SprSpringBarley_Fodder::Do(), PLSpringWheat::Do(), FI_SpringBarley_Fodder::Do(), DK_BushFruit_Perm1::Do(), PLPotatoes::Do(), SE_WinterWheat::Do(), FR_SpringWheat::Do(), FR_WinterBarley::Do(), DE_GrasslandSilageAnnual::Do(), IRSpringOats::Do(), IRSpringBarley::Do(), IRSpringWheat::Do(), FR_WinterWheat::Do(), DE_SugarBeet::Do(), DE_Potatoes::Do(), and DE_PotatoesIndustry::Do().

◆ SpringPlough()

bool Farm::SpringPlough	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a ploughing event in the spring on a_field.

 {
     if ((a_days <= 0) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 0.1, 0.0,  0,spring_plough);
         return true;
   }
   return false;
 }

References DO_IT_PROB, g_weather, Weather::Raining(), and spring_plough.

Referenced by UKMaize::Do(), NorwegianOats::Do(), NorwegianSpringBarley::Do(), BroadBeans::Do(), OSBarleySilage::Do(), OFieldPeasSilage::Do(), OFieldPeas::Do(), DK_OLegume::Do(), OCarrots::Do(), DE_OPeas::Do(), DK_CerealLegume::Do(), OBarleyPeaCloverGrass::Do(), OMaizeSilage::Do(), DK_CerealLegume_Whole::Do(), DK_OCatchCrop::Do(), DK_OLegume_Peas_CC::Do(), DK_SpringBarley_Green::Do(), DE_OLegume::Do(), FI_OPotato_South::Do(), FI_OPotatoIndustry_North::Do(), FI_OPotatoIndustry_South::Do(), FI_OPotato_North::Do(), FI_OStarchPotato_North::Do(), FI_OStarchPotato_South::Do(), DK_Legume_Peas::Do(), DK_OLegume_Beans_CC::Do(), DK_SpringBarleySilage::Do(), DK_OLegume_Beans::Do(), DK_OLegume_Peas::Do(), DK_OLentils::Do(), DK_CatchCrop::Do(), DK_OLupines::Do(), DK_MaizeSilage::Do(), DK_OSpringBarleyCloverGrass::Do(), DE_OSpringRye::Do(), OOats::Do(), DK_SpringOats::Do(), DK_SpringOats_CC::Do(), DE_OOats::Do(), DK_Legume_Beans::Do(), FI_SugarBeet::Do(), DE_OMaizeSilage::Do(), Maize::Do(), MaizeSilage::Do(), MaizeStrigling::Do(), DK_OCerealLegume_Whole::Do(), DK_OLegume_Whole_CC::Do(), DK_OLegume_Whole::Do(), DK_OLegumeCloverGrass_Whole::Do(), DE_OMaize::Do(), DK_OSpringBarley_CC::Do(), NLMaizeSpring::Do(), Oats::Do(), OSpringBarleyExt::Do(), DK_SpringWheat::Do(), DK_Maize::Do(), DK_OCerealLegume::Do(), DK_OSugarBeet::Do(), OSpringBarley::Do(), DK_Legume_Whole::Do(), DK_OSpringBarley::Do(), SpringBarleySeed::Do(), DK_OFodderBeet::Do(), OPotatoes::Do(), SpringBarleyCloverGrassStrigling::Do(), FI_Potato_North::Do(), FieldPeas::Do(), FieldPeasSilage::Do(), FieldPeasStrigling::Do(), FI_StarchPotato_North::Do(), OFodderBeet::Do(), SpringBarleyCloverGrass::Do(), FI_PotatoIndustry_North::Do(), DK_OSpringOats::Do(), DK_OSpringWheat::Do(), PTOliveGroveTradOrganic::Do(), UKBeet::Do(), FI_Potato_South::Do(), FI_PotatoIndustry_South::Do(), BEBeetSpring::Do(), FI_StarchPotato_South::Do(), DE_OSugarBeet::Do(), NLBeetSpring::Do(), NLMaize::Do(), DK_OVegSeeds::Do(), DK_SpringBarleyCloverGrass::Do(), Carrots::Do(), DK_OSpringOats_CC::Do(), UKSpringBarley::Do(), NLCarrotsSpring::Do(), DK_SpringBarley::Do(), DK_SpringBarley_CC::Do(), SpringBarleyPeaCloverGrassStrigling::Do(), DK_OMaize::Do(), DK_OMaizeSilage::Do(), DE_OPotatoes::Do(), DK_OSpringBarleySilage::Do(), NLBeet::Do(), DK_SpringFodderGrass::Do(), NLCarrots::Do(), NLCabbageSpring::Do(), NLSpringBarleySpring::Do(), SugarBeet::Do(), PotatoesIndustry::Do(), NorwegianPotatoes::Do(), DKOBroadBeans_test::Do(), Potatoes::Do(), FodderBeet::Do(), PTCorkOak::Do(), DK_VegSeeds::Do(), NLCabbage::Do(), SpringBarleySKManagement::Do(), SpringBarleySpr::Do(), SpringBarleySilage::Do(), SpringBarleyStriglingCulm::Do(), SpringBarleyStrigling::Do(), SpringBarleyStriglingSingle::Do(), SpringBarleyPTreatment::Do(), NLSpringBarley::Do(), PLSpringBarleySpr::Do(), DK_OMixedVeg::Do(), SpringBarley::Do(), DK_OPotato::Do(), DK_OPotatoIndustry::Do(), DK_OPotatoSeed::Do(), UKPotatoes::Do(), PTPotatoes::Do(), PTOliveGroveTraditional::Do(), PTShrubPastures::Do(), DK_OSeedGrassRye_Spring::Do(), SpringRape::Do(), PLBeetSpr::Do(), DK_MixedVeg::Do(), PTMaize_Hort::Do(), PTMaize::Do(), FI_OSpringBarley_Malt::Do(), PTSorghum::Do(), BEPotatoesSpring::Do(), FI_OCaraway1::Do(), FI_OFabaBean::Do(), DE_Maize::Do(), FI_OSpringOats::Do(), DE_MaizeSilage::Do(), FR_SpringBarley::Do(), FI_OTurnipRape::Do(), FI_OSpringWheat::Do(), FI_OSpringRape::Do(), OSpringBarleyPigs::Do(), NLPotatoesSpring::Do(), FR_SpringOats::Do(), FI_OSpringBarley_Fodder::Do(), DK_OOrchCherry::Do(), DE_SpringBarley::Do(), FI_TurnipRape::Do(), DK_OSpringFodderGrass::Do(), FR_Maize_Silage::Do(), FR_Maize::Do(), NLPotatoes::Do(), FI_FabaBean::Do(), FI_SpringRape::Do(), FI_Caraway1::Do(), SE_SpringBarley::Do(), FI_SpringBarley_Malt::Do(), FR_Sunflower::Do(), DK_OOrchPear::Do(), DK_OOrchardCrop_Perm::Do(), FI_SprSpringBarley_Fodder::Do(), DK_OOrchOther::Do(), FI_SpringWheat::Do(), DK_OOrchApple::Do(), FI_SpringOats::Do(), DE_Carrots::Do(), FI_SpringBarley_Fodder::Do(), PLPotatoes::Do(), FR_SpringWheat::Do(), DE_Cabbage::Do(), DE_Oats::Do(), DK_SeedGrassRye_Spring::Do(), DE_SpringRye::Do(), IRSpringBarley::Do(), IRSpringOats::Do(), IRSpringWheat::Do(), FR_Potatoes::Do(), DK_SeedGrassFescue_Spring::Do(), DE_Potatoes::Do(), DK_OrchPear::Do(), DK_OrchApple::Do(), DK_OrchardCrop_Perm::Do(), DK_OrchOther::Do(), and DE_PotatoesIndustry::Do().

◆ SpringRoll()

bool Farm::SpringRoll	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a roll event in the spring on a_field.

 {
     FarmToDo treatment = spring_roll;
   if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
       SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
       return true;
   }
   return false;
 }

References DO_IT_PROB, g_weather, Weather::Raining(), and spring_roll.

◆ SpringSow()

bool Farm::SpringSow	(	LE *	a_field,
		double	a_user,
		int	a_days,
		double	a_seed_coating_amount = `-1`,
		PlantProtectionProducts	a_ppp = `ppp_foobar`
	)

virtual

Carry out a sowing event in the spring on a_field.

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         LE* um = SetFunctionData(a_field, 1.0, 1.0, 0, spring_sow);
         a_field->SetGrowthPhase(sow);
         a_field->SetLastSownVeg(a_field->GetVegType());
         //start the flowering period.
         if(a_field->GetPollenNectarCurveRef()<0){
             a_field->CalculateFlowerResourceForCropSow(a_field->GetVegType());
         }
         // Apply seed coating if turned on 
         if (a_seed_coating_amount > 0) {
             g_pest->DailyQueueAddSeedCoating(a_field, a_seed_coating_amount/10000, a_ppp); // Application rate is changed from g/ha to g/m2
         }
         if (um != nullptr)
         {
             um->SetGrowthPhase(sow);
             um->SetLastSownVeg(um->GetVegType());
             //start the flowering period.
             if(um->GetPollenNectarCurveRef()<0){
                 um->CalculateFlowerResourceForCropSow(um->GetVegType());
             }
             // Apply seed coating if turned on 
             if (a_seed_coating_amount > 0) {
                 g_pest->DailyQueueAddSeedCoating(um, a_seed_coating_amount/10000, a_ppp); // Application rate is changed from g/ha to g/m2
             }
         }
         return true;
     }
     return false;
 }

References LE::CalculateFlowerResourceForCropSow(), Pesticide::DailyQueueAddSeedCoating(), DO_IT_PROB, g_pest, g_weather, LE::GetPollenNectarCurveRef(), Weather::Raining(), LE::SetGrowthPhase(), LE::SetLastSownVeg(), sow, and spring_sow.

Referenced by UKMaize::Do(), NorwegianSpringBarley::Do(), NorwegianOats::Do(), BroadBeans::Do(), OSBarleySilage::Do(), OFieldPeasSilage::Do(), OFieldPeas::Do(), DE_OPeas::Do(), OCarrots::Do(), DK_OLegume::Do(), OBarleyPeaCloverGrass::Do(), OMaizeSilage::Do(), DK_CerealLegume::Do(), DK_CerealLegume_Whole::Do(), DK_SpringBarley_Green::Do(), OWinterBarleyExt::Do(), DK_OLegume_Peas_CC::Do(), FI_OPotato_North::Do(), FI_OPotato_South::Do(), FI_OPotatoIndustry_North::Do(), FI_OPotatoIndustry_South::Do(), FI_OStarchPotato_North::Do(), FI_OStarchPotato_South::Do(), DE_OLegume::Do(), OWinterBarley::Do(), DK_SpringBarleySilage::Do(), DK_OLegume_Beans::Do(), DK_OLegume_Beans_CC::Do(), DK_OLegume_Peas::Do(), DK_OLentils::Do(), DK_OSpringBarleyCloverGrass::Do(), DK_MaizeSilage::Do(), OWinterRye::Do(), DK_OLupines::Do(), DE_OMaizeSilage::Do(), DE_OOats::Do(), OOats::Do(), DE_OSpringRye::Do(), DK_OSpringBarley_CC::Do(), DK_OCerealLegume_Whole::Do(), DK_OLegume_Whole::Do(), DK_OLegume_Whole_CC::Do(), DK_OLegumeCloverGrass_Whole::Do(), DK_OptimalFlowerMix1::Do(), DE_OMaize::Do(), Maize::Do(), MaizeSilage::Do(), MaizeStrigling::Do(), NLMaizeSpring::Do(), DK_Maize::Do(), Oats::Do(), OSpringBarleyExt::Do(), DK_OSpringBarley::Do(), DK_Legume_Whole::Do(), DK_OSugarBeet::Do(), OSpringBarley::Do(), DK_OCerealLegume::Do(), SpringBarleySeed::Do(), OPotatoes::Do(), DK_OFodderBeet::Do(), SpringBarleyCloverGrassStrigling::Do(), FI_Potato_North::Do(), FieldPeas::Do(), FieldPeasSilage::Do(), FieldPeasStrigling::Do(), FI_StarchPotato_North::Do(), OFodderBeet::Do(), SpringBarleyCloverGrass::Do(), FI_PotatoIndustry_North::Do(), DK_OSpringWheat::Do(), DK_OSpringOats::Do(), UKBeet::Do(), FI_Potato_South::Do(), FI_PotatoIndustry_South::Do(), FI_StarchPotato_South::Do(), NLBeetSpring::Do(), NLMaize::Do(), Carrots::Do(), DE_OSugarBeet::Do(), DK_OSpringOats_CC::Do(), DK_WinterFodderGrass::Do(), UKSpringBarley::Do(), DE_OPotatoes::Do(), NLCarrotsSpring::Do(), SpringBarleyPeaCloverGrassStrigling::Do(), NLBeet::Do(), DK_OSpringBarleySilage::Do(), DK_OEnergyCrop_Perm::Do(), DE_OCarrots::Do(), DK_SpringFodderGrass::Do(), DK_WinterCloverGrassGrazedSown::Do(), NLCarrots::Do(), NLGrassGrazedExtensive1Spring::Do(), DK_OCarrots::Do(), NLCabbageSpring::Do(), NLSpringBarleySpring::Do(), PotatoesIndustry::Do(), SugarBeet::Do(), NorwegianPotatoes::Do(), Potatoes::Do(), FodderBeet::Do(), DK_EnergyCrop_Perm::Do(), NLGrassGrazedExtensive1::Do(), SpringBarleySKManagement::Do(), NLCabbage::Do(), DK_Carrots_Spring::Do(), SpringBarleySpr::Do(), PLCarrots::Do(), SpringBarleySilage::Do(), DK_Carrots::Do(), NLSpringBarley::Do(), SpringBarleyPTreatment::Do(), SpringBarleyStriglingCulm::Do(), SpringBarleyStriglingSingle::Do(), SpringBarleyStrigling::Do(), PLSpringBarleySpr::Do(), DK_OMixedVeg::Do(), PTCabbage::Do(), SpringBarley::Do(), PTCabbage_Hort::Do(), DK_OPotatoIndustry::Do(), PLFodderLucerne1::Do(), DK_Potato::Do(), UKPotatoes::Do(), UKTempGrass::Do(), PTPotatoes::Do(), FI_GreenFallow_1year::Do(), DE_GreenFallow_1year::Do(), DK_OSeedGrassRye_Spring::Do(), DE_OGreenFallow_1year::Do(), SpringRape::Do(), DK_CloverGrassGrazed1::Do(), PLBeetSpr::Do(), DE_HerbsPerennial_1year::Do(), NLGrassGrazed1Spring::Do(), PLBeans::Do(), FI_GreenFallow_Perm::Do(), DE_OHerbsPerennial_1year::Do(), FI_BufferZone::Do(), DE_OGrasslandSilageAnnual::Do(), PTMaize::Do(), PTMaize_Hort::Do(), FI_BufferZone_Perm::Do(), FI_NaturalGrassland::Do(), DK_OSetAside_PerennialFlower::Do(), DK_OSetAside_AnnualFlower::Do(), DK_PotatoSeed::Do(), PTSorghum::Do(), FI_OCaraway1::Do(), NLGrassGrazed1::Do(), FI_GrasslandPasturePerennial1::Do(), DK_PotatoIndustry::Do(), FR_SpringBarley::Do(), FI_GrasslandSilagePerennial1::Do(), OSpringBarleyPigs::Do(), NLPotatoesSpring::Do(), FR_SpringOats::Do(), FI_FeedingGround::Do(), DK_OOrchCherry::Do(), FI_GrasslandSilageAnnual::Do(), DK_OSpringFodderGrass::Do(), PLMaizeSilage::Do(), PLMaize::Do(), NLPotatoes::Do(), PLSpringBarley::Do(), FI_Caraway1::Do(), DE_Legumes::Do(), DE_Peas::Do(), SE_SpringBarley::Do(), FR_Sunflower::Do(), DK_OOrchPear::Do(), DK_OOrchApple::Do(), DK_OOrchOther::Do(), PLBeet::Do(), DK_CloverGrassGrazed3::Do(), DK_OOrchardCrop_Perm::Do(), PLSpringWheat::Do(), DK_CloverGrassGrazed2::Do(), DE_Carrots::Do(), PLPotatoes::Do(), DK_BushFruit_Perm1::Do(), FR_SpringWheat::Do(), DE_Cabbage::Do(), DE_Oats::Do(), DK_SeedGrassRye_Spring::Do(), DE_SpringRye::Do(), DE_GrasslandSilageAnnual::Do(), IRSpringBarley::Do(), IRSpringOats::Do(), IRSpringWheat::Do(), FR_Potatoes::Do(), DK_SeedGrassFescue_Spring::Do(), DE_SugarBeet::Do(), DK_OrchCherry::Do(), DE_Potatoes::Do(), DK_OrchPear::Do(), DK_OrchOther::Do(), DK_OrchApple::Do(), DK_OrchardCrop_Perm::Do(), DE_PotatoesIndustry::Do(), and IRGrassland_reseed::Do().

◆ SpringSowWithFerti()

bool Farm::SpringSowWithFerti	(	LE *	a_field,
		double	a_user,
		int	a_days,
		double	a_seed_coating_amount = `-1`,
		PlantProtectionProducts	a_ppp = `ppp_foobar`
	)

virtual

Carry out a sowing event with start fertilizer in the spring on a_field.

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         LE* um = SetFunctionData(a_field, 1.0, 1.0, 0, spring_sow_with_ferti);
         a_field->SetGrowthPhase(sow);
         a_field->SetLastSownVeg(a_field->GetVegType());
         //start the flowering period.
         if(a_field->GetPollenNectarCurveRef()<0){
             a_field->CalculateFlowerResourceForCropSow(a_field->GetVegType());
         }
         // Apply seed coating if turned on 
         if (a_seed_coating_amount > 0) {
             g_pest->DailyQueueAddSeedCoating(a_field, a_seed_coating_amount/10000, a_ppp); // Application rate is changed from g/ha to g/m2
         }
         if (um != nullptr)
         {
             um->SetGrowthPhase(sow);
             um->SetLastSownVeg(um->GetVegType());
             //start the flowering period.
             if(um->GetPollenNectarCurveRef()<0){
                 um->CalculateFlowerResourceForCropSow(um->GetVegType());
             }
             // Apply seed coating if turned on 
             if (a_seed_coating_amount > 0) {
                 g_pest->DailyQueueAddSeedCoating(um, a_seed_coating_amount/10000, a_ppp); // Application rate is changed from g/ha to g/m2
             }
         }
         return true;
     }
     return false;
 }

Referenced by UKMaize::Do(), DK_FodderBeet::Do(), DK_SugarBeet::Do(), FI_SugarBeet::Do(), NLMaizeSpring::Do(), DE_OCabbages::Do(), NLMaize::Do(), DK_OMaize::Do(), DK_OMaizeSilage::Do(), DK_OCabbages::Do(), DK_Cabbages::Do(), DK_OPotato::Do(), DK_OPotatoSeed::Do(), DK_MixedVeg::Do(), FI_OSpringBarley_Malt::Do(), DE_Maize::Do(), FI_OFabaBean::Do(), DE_MaizeSilage::Do(), FI_OSpringOats::Do(), FI_OSpringRape::Do(), FI_OTurnipRape::Do(), FI_OSpringWheat::Do(), FI_OSpringBarley_Fodder::Do(), FI_TurnipRape::Do(), PLMaizeSilage::Do(), FI_FabaBean::Do(), PLMaize::Do(), FI_SpringRape::Do(), SE_SpringBarley::Do(), FI_SpringBarley_Malt::Do(), FI_SprSpringBarley_Fodder::Do(), FI_SpringWheat::Do(), FI_SpringOats::Do(), and FI_SpringBarley_Fodder::Do().

◆ StrawChopping()

bool Farm::StrawChopping	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out straw chopping on a_field.

 {
     FarmToDo treatment = straw_chopping;
   if ( (0 >= a_days) ||
        ((g_weather->GetRainPeriod(g_date->Date(),5)<0.1) && DoIt(DO_IT_PROB))
   ) {
       SetFunctionData(a_field, 0.4, 1.0, 0, treatment);
     return true;
   }
   return false;
 }

References Calendar::Date(), DO_IT_PROB, g_date, g_weather, Weather::GetRainPeriod(), and straw_chopping.

Referenced by UKMaize::Do(), OSeedGrass1::Do(), WinterRapeStrigling::Do(), OSeedGrass2::Do(), OFieldPeas::Do(), SeedGrass1::Do(), DK_CerealLegume::Do(), DK_CerealLegume_Whole::Do(), DK_SpringBarley_Green::Do(), OWinterBarleyExt::Do(), OWinterBarley::Do(), DK_SpringBarleySilage::Do(), SeedGrass2::Do(), OWinterRye::Do(), DK_OSpringBarleyCloverGrass::Do(), DK_OWinterRye::Do(), OOats::Do(), DE_OOats::Do(), DE_OSpringRye::Do(), DK_OWinterRye_CC::Do(), DE_OWinterWheat::Do(), OTriticale::Do(), DK_OLegumeCloverGrass_Whole::Do(), DK_OSpringBarley_CC::Do(), DK_OWinterBarley::Do(), NLMaizeSpring::Do(), Oats::Do(), DK_Maize::Do(), OSpringBarleyExt::Do(), OSpringBarley::Do(), DK_Legume_Whole::Do(), DK_OSpringBarley::Do(), FieldPeas::Do(), FieldPeasSilage::Do(), FieldPeasStrigling::Do(), DE_OWinterRape::Do(), OWinterWheat::Do(), OWinterWheatUndersown::Do(), OWinterWheatUndersownExt::Do(), DK_OSpringWheat::Do(), OWinterRape::Do(), Triticale::Do(), DK_OSpringOats::Do(), NLMaize::Do(), DK_SpringBarleyCloverGrass::Do(), DK_OSpringOats_CC::Do(), UKWinterBarley::Do(), UKSpringBarley::Do(), DK_SpringBarley::Do(), DK_SpringBarley_CC::Do(), DK_OMaize::Do(), DK_OMaizeSilage::Do(), DK_OSpringBarleySilage::Do(), NLSpringBarleySpring::Do(), SpringBarleySKManagement::Do(), DK_OGrassGrazed_Perm::Do(), SpringBarleySpr::Do(), UKWinterWheat::Do(), WinterRyeStrigling::Do(), SpringBarleyPTreatment::Do(), SpringBarleyStriglingCulm::Do(), NLSpringBarley::Do(), DK_GrassGrazed_Perm::Do(), WinterRye::Do(), SpringBarleyStrigling::Do(), SpringBarleyStriglingSingle::Do(), UKWinterRape::Do(), NLWinterWheat::Do(), PLSpringBarleySpr::Do(), SpringBarley::Do(), SpringRape::Do(), WinterWheatStrigling::Do(), WinterWheatStriglingCulm::Do(), WinterWheatStriglingSingle::Do(), FI_OSpringBarley_Malt::Do(), WinterRape::Do(), WinterBarleyStrigling::Do(), FI_OCaraway1::Do(), FR_SpringBarley::Do(), FI_OSpringOats::Do(), OSpringBarleyPigs::Do(), DE_MaizeSilage::Do(), FI_OSpringWheat::Do(), FR_SpringOats::Do(), WinterBarley::Do(), FI_OSpringBarley_Fodder::Do(), DE_SpringBarley::Do(), PLWinterRye::Do(), DK_OWinterWheat_CC::Do(), PLMaizeSilage::Do(), DK_OWinterWheat::Do(), PLMaize::Do(), PLSpringBarley::Do(), FR_WinterTriticale::Do(), FI_OWinterRye::Do(), PLWinterTriticale::Do(), FI_SpringBarley_Malt::Do(), FI_Caraway1::Do(), FI_OWinterWheat::Do(), DE_WinterRye::Do(), DE_OTriticale::Do(), DE_OWinterRye::Do(), PLWinterWheat::Do(), FI_SprSpringBarley_Fodder::Do(), PLWinterBarley::Do(), DE_OWinterBarley::Do(), FI_SpringWheat::Do(), FI_SpringOats::Do(), PLWinterWheatLate::Do(), PLSpringWheat::Do(), FI_SpringBarley_Fodder::Do(), DE_Oats::Do(), DE_WinterBarley::Do(), FR_SpringWheat::Do(), DE_SpringRye::Do(), DK_SeedGrassRye_Spring::Do(), PLWinterRape::Do(), FR_WinterBarley::Do(), FI_WinterWheat::Do(), FR_WinterWheat::Do(), DE_WinterWheat::Do(), FI_WinterRye::Do(), DE_Triticale::Do(), DE_WinterWheatLate::Do(), DE_WinterRape::Do(), DK_SeedGrassFescue_Spring::Do(), and WinterWheat::Do().

◆ StrawCovering()

bool Farm::StrawCovering	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Straw covering applied on a_field.

 {
     FarmToDo treatment = straw_covering;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, g_weather, Weather::Raining(), and straw_covering.

Referenced by DE_OCabbages::Do(), DE_OBushFruitPerm::Do(), DK_OCabbages::Do(), DE_BushFruitPerm::Do(), NLTulips::Do(), and DK_BushFruit_Perm1::Do().

◆ StrawRemoval()

bool Farm::StrawRemoval	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Straw covering applied on a_field.

 {
     FarmToDo treatment = straw_removal;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 1.0, 1.0, 0, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, g_weather, Weather::Raining(), and straw_removal.

Referenced by DE_OCabbages::Do(), DK_WinterFodderGrass::Do(), DK_OCabbages::Do(), DK_SpringFodderGrass::Do(), DK_WinterCloverGrassGrazedSown::Do(), DK_WinterRye::Do(), DK_WinterRye_CC::Do(), DK_OPotatoSeed::Do(), DK_OPotatoIndustry::Do(), DK_OPotato::Do(), DK_Potato::Do(), DK_CloverGrassGrazed1::Do(), DK_PotatoSeed::Do(), DK_PotatoIndustry::Do(), FI_FeedingGround::Do(), NLTulips::Do(), SE_SpringBarley::Do(), DK_CloverGrassGrazed3::Do(), DK_CloverGrassGrazed2::Do(), SE_WinterRape_Seed::Do(), SE_WinterWheat::Do(), DK_SeedGrassRye_Spring::Do(), and DK_SeedGrassFescue_Spring::Do().

◆ Strigling()

bool Farm::Strigling	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a mechanical weeding on a_field.

 {
     FarmToDo treatment = strigling;
     // Force strigling if it has not been done already!!!  This happens regardless of weather as of 26/10/2005
     if ((0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(), 3) < 0.1) && DoIt(DO_IT_PROB))
         ) {
         LE* um = SetFunctionData(a_field, 0.7, 0.05, EL_TRAMLINE_DECAYTIME, treatment);
         a_field->SetHerbicideDelay(EL_STRIGLING_DELAYTIME); // this delays regrowth of weed for a while
         if (um != nullptr) {
             um->SetHerbicideDelay(EL_STRIGLING_DELAYTIME);
         }
         return true;
     }
     return false;
 }

References Calendar::Date(), DO_IT_PROB, EL_STRIGLING_DELAYTIME, EL_TRAMLINE_DECAYTIME, g_date, g_weather, Weather::GetRainPeriod(), LE::SetHerbicideDelay(), and strigling.

Referenced by WinterRapeStrigling::Do(), BroadBeans::Do(), OFieldPeas::Do(), OFieldPeasSilage::Do(), DK_OLegume::Do(), DE_OPeas::Do(), DK_OLegume_Peas_CC::Do(), DE_OLegume::Do(), OWinterBarleyExt::Do(), DK_OLegume_Beans_CC::Do(), DK_OLegume_Beans::Do(), DK_OLegume_Peas::Do(), DK_OLentils::Do(), OWinterBarley::Do(), DK_OLupines::Do(), OWinterRye::Do(), DK_OptimalFlowerMix3::Do(), DE_OSpringRye::Do(), DE_OMaizeSilage::Do(), DE_OOats::Do(), OOats::Do(), DK_OCerealLegume_Whole::Do(), DE_OMaize::Do(), DE_OWinterWheat::Do(), DK_OLegume_Whole::Do(), DK_OLegume_Whole_CC::Do(), OTriticale::Do(), OSpringBarleyExt::Do(), DK_OSugarBeet::Do(), DK_OCerealLegume::Do(), OSpringBarley::Do(), SpringBarleyCloverGrassStrigling::Do(), DK_OFodderBeet::Do(), FieldPeasStrigling::Do(), OPotatoes::Do(), OWinterWheatUndersown::Do(), OWinterWheatUndersownExt::Do(), OWinterWheat::Do(), Triticale::Do(), DK_OSpringOats::Do(), DK_OSpringWheat::Do(), DE_OCabbages::Do(), DE_OSugarBeet::Do(), DK_OVegSeeds::Do(), DK_OSpringOats_CC::Do(), DK_OMaizeSilage::Do(), DK_OMaize::Do(), DK_OCabbages::Do(), PotatoesIndustry::Do(), Potatoes::Do(), DKOBroadBeans_test::Do(), NorwegianPotatoes::Do(), SpringBarleySilage::Do(), PLCarrots::Do(), WinterRyeStrigling::Do(), PTSetAside::Do(), SpringBarleyStriglingSingle::Do(), SpringBarleyStriglingCulm::Do(), SpringBarleyStrigling::Do(), DE_OPermanentGrassLowYield::Do(), DK_Cabbages::Do(), DE_PermanentGrassLowYield::Do(), WinterRye::Do(), DK_Potato::Do(), DK_OSeedGrassRye_Spring::Do(), DK_MixedVeg::Do(), WinterWheatStriglingCulm::Do(), WinterWheatStrigling::Do(), WinterWheatStriglingSingle::Do(), DK_SetAside::Do(), DK_OSetAside_SummerMow::Do(), DK_OSetAside::Do(), DK_PotatoSeed::Do(), WinterBarleyStrigling::Do(), DK_PotatoIndustry::Do(), DK_SetAside_SummerMow::Do(), OSpringBarleyPigs::Do(), FR_Sorghum::Do(), DE_OWinterRye::Do(), DE_OTriticale::Do(), DE_OWinterBarley::Do(), DK_BushFruit_Perm1::Do(), and WinterWheat::Do().

◆ StriglingHill()

bool Farm::StriglingHill	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a mechanical weeding on a_field followed by hilling up (probably on potatoes)

 {
     FarmToDo treatment = strigling_hill;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 0.75, 0.25, EL_TRAMLINE_DECAYTIME, treatment);
         return true;
     }
     return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, Weather::Raining(), and strigling_hill.

Referenced by DE_OPotatoes::Do(), FR_Potatoes::Do(), DE_Potatoes::Do(), and DE_PotatoesIndustry::Do().

◆ StriglingSow()

bool Farm::StriglingSow	(	LE *	a_field,
		double	a_user,
		int	a_days,
		double	a_seed_coating_amount = `-1`,
		PlantProtectionProducts	a_ppp = `ppp_foobar`
	)

virtual

Carry out a mechanical weeding followed by sowing on a_field.

 {
     FarmToDo treatment = strigling_sow;
     if ((0 >= a_days))// && (g_weather->GetRainPeriod(g_date->Date(),3)>0.1) )
     {
         LE* um = SetFunctionData(a_field, 0.7, 0.05, EL_TRAMLINE_DECAYTIME, treatment);
         a_field->SetHerbicideDelay(EL_STRIGLING_DELAYTIME); // this delays regrowth of weed for a while
         a_field->SetGrowthPhase(sow);
         a_field->SetLastSownVeg(a_field->GetVegType());
         //start the flowering period.
         if(a_field->GetPollenNectarCurveRef()<0){
             a_field->CalculateFlowerResourceForCropSow(a_field->GetVegType());
         }
         // Apply seed coating if turned on 
         if (a_seed_coating_amount > 0) {
             g_pest->DailyQueueAddSeedCoating(a_field, a_seed_coating_amount/10000, a_ppp); // Application rate is changed from g/ha to g/m2
         }
         if (um != nullptr) {
             um->SetHerbicideDelay(EL_STRIGLING_DELAYTIME);
             um->SetGrowthPhase(sow);
             um->SetLastSownVeg(a_field->GetVegType());
             //start the flowering period.
             if(um->GetPollenNectarCurveRef()<0){
                 um->CalculateFlowerResourceForCropSow(um->GetVegType());
             }
             // Apply seed coating if turned on 
             if (a_seed_coating_amount > 0) {
                 g_pest->DailyQueueAddSeedCoating(um, a_seed_coating_amount/10000, a_ppp); // Application rate is changed from g/ha to g/m2
             }
         }
         return true;
     }
     if ((0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(), 3) < 0.1) && DoIt(DO_IT_PROB))
         ) {
         LE* um = SetFunctionData(a_field, 0.7, 0.05, EL_TRAMLINE_DECAYTIME, treatment);
         a_field->SetGrowthPhase(sow);
         a_field->SetLastSownVeg(a_field->GetVegType());
         //start the flowering period.
         if(a_field->GetPollenNectarCurveRef()<0){
             a_field->CalculateFlowerResourceForCropSow(a_field->GetVegType());
         }
         a_field->SetHerbicideDelay(EL_STRIGLING_DELAYTIME); // this delays regrowth of weed for a while
         if (um != nullptr)
         {
             um->SetHerbicideDelay(EL_STRIGLING_DELAYTIME);
             um->SetGrowthPhase(sow);
             um->SetLastSownVeg(a_field->GetVegType());
             //start the flowering period.
             if(um->GetPollenNectarCurveRef()<0){
                 um->CalculateFlowerResourceForCropSow(um->GetVegType());
             }
         }
         return true;
     }
     return false;
 }

References LE::CalculateFlowerResourceForCropSow(), Pesticide::DailyQueueAddSeedCoating(), Calendar::Date(), DO_IT_PROB, EL_STRIGLING_DELAYTIME, EL_TRAMLINE_DECAYTIME, g_date, g_pest, g_weather, LE::GetPollenNectarCurveRef(), Weather::GetRainPeriod(), LE::SetGrowthPhase(), LE::SetHerbicideDelay(), LE::SetLastSownVeg(), sow, and strigling_sow.

Referenced by SpringBarleyCloverGrassStrigling::Do(), OWinterWheatUndersown::Do(), OWinterWheatUndersownExt::Do(), OWinterWheat::Do(), SpringBarleyPeaCloverGrassStrigling::Do(), DK_OSeedGrassRye_Spring::Do(), and OSpringBarleyPigs::Do().

◆ StubbleCultivatorHeavy()

bool Farm::StubbleCultivatorHeavy	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a stubble cultivation event on a_field. This is non-inversion type of cultivation which can be done instead of autumn plough (on a depth up to 40 cm even, if necessary)

 {
     FarmToDo treatment = stubble_cultivator_heavy;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 0.1, 0.0,  0,stubble_cultivator_heavy);
         return true;      // completed
     }
     return false;       // not completed
 }

References DO_IT_PROB, g_weather, Weather::Raining(), and stubble_cultivator_heavy.

Referenced by FI_OPotato_North::Do(), FI_OPotatoIndustry_South::Do(), FI_OStarchPotato_North::Do(), FI_OStarchPotato_South::Do(), FI_OPotato_South::Do(), FI_OPotatoIndustry_North::Do(), FI_Potato_North::Do(), FI_StarchPotato_North::Do(), FI_PotatoIndustry_North::Do(), FI_StarchPotato_South::Do(), FI_Potato_South::Do(), FI_PotatoIndustry_South::Do(), NLCarrots::Do(), DK_OPotatoIndustry::Do(), DK_OPotatoSeed::Do(), DK_OPotato::Do(), PLFodderLucerne1::Do(), DK_Potato::Do(), FI_OSpringBarley_Malt::Do(), DK_PotatoSeed::Do(), FI_OFabaBean::Do(), DK_PotatoIndustry::Do(), FI_OSpringOats::Do(), FI_OSpringRape::Do(), FI_OSpringWheat::Do(), FR_SpringBarley::Do(), FI_OTurnipRape::Do(), FI_OSpringBarley_Fodder::Do(), FR_SpringOats::Do(), PLWinterRye::Do(), FI_TurnipRape::Do(), FI_FabaBean::Do(), PLMaize::Do(), PLMaizeSilage::Do(), FI_SpringRape::Do(), NLTulips::Do(), FI_OWinterRye::Do(), FI_SpringBarley_Malt::Do(), SE_SpringBarley::Do(), PLWinterTriticale::Do(), FI_OWinterWheat::Do(), FI_SprSpringBarley_Fodder::Do(), FI_SpringWheat::Do(), PLWinterWheat::Do(), PLBeet::Do(), PLWinterBarley::Do(), FI_SpringOats::Do(), DE_Carrots::Do(), PLWinterWheatLate::Do(), SE_WinterRape_Seed::Do(), FI_SpringBarley_Fodder::Do(), SE_WinterWheat::Do(), FR_SpringWheat::Do(), PLWinterRape::Do(), FI_WinterWheat::Do(), DE_GrasslandSilageAnnual::Do(), FI_WinterRye::Do(), FR_WinterWheat::Do(), DE_WinterRape::Do(), and DE_SugarBeet::Do().

◆ StubbleHarrowing()

bool Farm::StubbleHarrowing	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out stubble harrowing on a_field.

 {
     FarmToDo treatment = stubble_harrowing;
   if ( (0 >= a_days) ||
        ((g_weather->GetRainPeriod(g_date->Date(),3)<0.1) && DoIt(DO_IT_PROB))
   ) {
       SetFunctionData(a_field, 0.25, 0.0, 0, treatment);
       return true;
   }
   return false;
 }

References Calendar::Date(), DO_IT_PROB, g_date, g_weather, Weather::GetRainPeriod(), and stubble_harrowing.

Referenced by UKMaize::Do(), WinterRapeStrigling::Do(), OSeedGrass2::Do(), NLCatchCropPea::Do(), BECatchPeaCrop::Do(), DK_OCatchCrop::Do(), OMaizeSilage::Do(), OWinterBarleyExt::Do(), OWinterBarley::Do(), SeedGrass2::Do(), DK_CatchCrop::Do(), DE_OMaizeSilage::Do(), DE_OWinterWheat::Do(), OTriticale::Do(), Maize::Do(), MaizeSilage::Do(), DE_OMaize::Do(), MaizeStrigling::Do(), DE_OWinterRape::Do(), OWinterWheat::Do(), OWinterWheatUndersown::Do(), OWinterWheatUndersownExt::Do(), OWinterRape::Do(), BEMaize::Do(), Triticale::Do(), NLMaize::Do(), BEBeet::Do(), NLBeet::Do(), BEWinterBarley::Do(), BEWinterBarleyCC::Do(), BEWinterWheatCC::Do(), BEWinterWheat::Do(), DK_WinterRye::Do(), DK_WinterRye_CC::Do(), SpringBarleySKManagement::Do(), PLCarrots::Do(), SpringBarleySpr::Do(), UKWinterWheat::Do(), WinterRyeStrigling::Do(), SpringBarleyPTreatment::Do(), SpringBarleyStrigling::Do(), SpringBarleyStriglingCulm::Do(), SpringBarleyStriglingSingle::Do(), UKWinterRape::Do(), WinterRye::Do(), NLSpringBarley::Do(), PTBeans::Do(), PTTurnipGrazed::Do(), NLWinterWheat::Do(), DK_OPotato::Do(), DK_OPotatoIndustry::Do(), DK_OPotatoSeed::Do(), PTOtherDryBeans::Do(), SpringBarley::Do(), PLFodderLucerne1::Do(), UKPotatoes::Do(), DK_Potato::Do(), PTOats::Do(), SpringRape::Do(), PLBeans::Do(), WinterWheatStriglingSingle::Do(), WinterWheatStrigling::Do(), WinterWheatStriglingCulm::Do(), PTWinterBarley::Do(), PTWinterRye::Do(), PTWinterWheat::Do(), PTFodderMix::Do(), PTTriticale::Do(), WinterRape::Do(), PTGrassGrazed::Do(), DK_PotatoSeed::Do(), WinterBarleyStrigling::Do(), PTYellowLupin::Do(), PTSorghum::Do(), DE_Maize::Do(), DK_PotatoIndustry::Do(), DE_MaizeSilage::Do(), PTRyegrass::Do(), WinterBarley::Do(), PLWinterRye::Do(), BEPotatoes::Do(), FR_Sorghum::Do(), FR_Maize::Do(), FR_Maize_Silage::Do(), PLMaizeSilage::Do(), PLMaize::Do(), PLSpringBarley::Do(), NLPotatoes::Do(), FR_WinterTriticale::Do(), PLWinterTriticale::Do(), FR_Sunflower::Do(), DK_OOrchPear::Do(), DE_OTriticale::Do(), DE_OWinterRye::Do(), DE_OWinterBarley::Do(), DK_OOrchardCrop_Perm::Do(), PLBeet::Do(), PLWinterBarley::Do(), DK_OOrchApple::Do(), PLWinterWheat::Do(), DK_OOrchOther::Do(), PLSpringWheat::Do(), PLWinterWheatLate::Do(), PLPotatoes::Do(), DE_Oats::Do(), DE_SpringRye::Do(), PLWinterRape::Do(), DE_GrasslandSilageAnnual::Do(), IRWinterBarley::Do(), IRSpringOats::Do(), IRSpringBarley::Do(), IRWinterOats::Do(), IRSpringWheat::Do(), IRWinterWheat::Do(), FR_Potatoes::Do(), FR_WinterRape::Do(), DE_WinterRape::Do(), WinterWheat::Do(), DE_SugarBeet::Do(), DE_Potatoes::Do(), DE_PotatoesIndustry::Do(), DK_OChristmasTrees_Perm::Do(), and DK_ChristmasTrees_Perm::Do().

◆ StubblePlough()

bool Farm::StubblePlough	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a stubble ploughing event on a_field. This is similar to normal plough but shallow (normally 6-8cm, is special cases up to 12-15cm). Done as a part of after-harvest treatments (instead of stubble cultivation)

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 0.1, 0.0,  0,stubble_plough); // the third parameter of 0.0 creates a call to ZeroVeg
         return true;      // completed
     }
     return false;       // not completed
 }

References DO_IT_PROB, g_weather, Weather::Raining(), and stubble_plough.

Referenced by UKBeans::Do(), PLCarrots::Do(), UKWinterRape::Do(), PLFodderLucerne1::Do(), PLBeans::Do(), FR_SpringBarley::Do(), FR_SpringOats::Do(), PLWinterRye::Do(), FR_Sorghum::Do(), FR_Maize_Silage::Do(), FR_Maize::Do(), PLMaize::Do(), PLMaizeSilage::Do(), PLSpringBarley::Do(), FR_WinterTriticale::Do(), FR_Sunflower::Do(), PLWinterTriticale::Do(), PLBeet::Do(), PLWinterBarley::Do(), PLWinterWheat::Do(), PLWinterWheatLate::Do(), PLSpringWheat::Do(), PLPotatoes::Do(), FR_SpringWheat::Do(), PLWinterRape::Do(), DE_GrasslandSilageAnnual::Do(), IRSpringBarley::Do(), IRSpringOats::Do(), IRSpringWheat::Do(), FR_Potatoes::Do(), FR_WinterRape::Do(), DE_Potatoes::Do(), and DE_PotatoesIndustry::Do().

◆ Suckering()

bool Farm::Suckering	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

 {
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         a_field->Trace(suckering);
         a_field->SetLastTreatment(suckering);
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1) {
             // Must have an unsprayed margin so need to pass the information on to it
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->SetLastTreatment(green_harvest);
         }
         return true;
  
     }
     return false;
 }

References DO_IT_PROB, g_landscape_ptr, g_weather, LE::GetUnsprayedMarginPolyRef(), green_harvest, Weather::Raining(), LE::SetLastTreatment(), suckering, and Landscape::SupplyLEPointer().

Referenced by PTOliveGroveTradOrganic::Do(), and PTOliveGroveTraditional::Do().

◆ Swathing()

bool Farm::Swathing	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Cut the crop on a_field and leave it lying (probably rape)

 {
     FarmToDo treatment = swathing;
   if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
       SetFunctionData(a_field, 0.5, 1.0, 0, treatment);
       return true;
   }
   return false;
 }

References DO_IT_PROB, g_weather, Weather::Raining(), and swathing.

Referenced by OSeedGrass1::Do(), WinterRapeStrigling::Do(), OSeedGrass2::Do(), SeedGrass1::Do(), DK_CerealLegume_Whole::Do(), DK_CerealLegume::Do(), DK_SpringBarley_Green::Do(), DK_SpringBarleySilage::Do(), SeedGrass2::Do(), DK_OLentils::Do(), DK_OSpringBarleyCloverGrass::Do(), DK_OLupines::Do(), DK_OptimalFlowerMix3::Do(), DK_OLegume_Whole::Do(), DK_OSpringBarley_CC::Do(), DK_OLegume_Whole_CC::Do(), DK_OLegumeCloverGrass_Whole::Do(), DK_Legume_Whole::Do(), DK_OSpringBarley::Do(), OPotatoes::Do(), DK_OSpringOats::Do(), DK_OSpringWheat::Do(), OWinterRape::Do(), DK_OVegSeeds::Do(), DK_WinterFodderGrass::Do(), DE_OBushFruitPerm::Do(), DK_OSpringOats_CC::Do(), DK_OWinterRape::Do(), DE_OPotatoes::Do(), DK_SpringFodderGrass::Do(), DK_OSpringBarleySilage::Do(), DK_WinterCloverGrassGrazedSown::Do(), DK_VegSeeds::Do(), PTSetAside::Do(), SpringRape::Do(), DK_OSeedGrassRye_Spring::Do(), DK_CloverGrassGrazed1::Do(), DK_WinterRape::Do(), DK_SetAside::Do(), DK_OSetAside_SummerMow::Do(), WinterRape::Do(), DK_OSetAside::Do(), DE_BushFruitPerm::Do(), DK_SetAside_SummerMow::Do(), DK_CloverGrassGrazed3::Do(), DK_CloverGrassGrazed2::Do(), DK_SeedGrassRye_Spring::Do(), FR_Potatoes::Do(), and DK_SeedGrassFescue_Spring::Do().

◆ Water()

bool Farm::Water	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a watering on a_field.

 {
     FarmToDo treatment = water;
  
   /* Turn on this code to avoid watering on heavy soils
   int soiltype = a_field->GetSoilType();
   if ( soiltype < 1 || soiltype > 4 )
     return true;
 */
   if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
       SetFunctionData(a_field, 1.0, 1.0, EL_TRAMLINE_DECAYTIME, treatment);
       return true;
   }
   return false;
 }

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, Weather::Raining(), and water.

Referenced by OSeedGrass1::Do(), OSeedGrass2::Do(), BroadBeans::Do(), OSBarleySilage::Do(), OFieldPeas::Do(), OFieldPeasSilage::Do(), DK_OLegume::Do(), SeedGrass1::Do(), OCarrots::Do(), DK_CerealLegume::Do(), DK_CerealLegume_Whole::Do(), OBarleyPeaCloverGrass::Do(), OMaizeSilage::Do(), DK_OLegume_Peas_CC::Do(), DK_SpringBarley_Green::Do(), SeedGrass2::Do(), DK_OLegume_Beans::Do(), DK_OLegume_Beans_CC::Do(), DK_OLegume_Peas::Do(), DK_OLentils::Do(), DK_SpringBarleySilage::Do(), DK_OSpringBarleyCloverGrass::Do(), DK_OLupines::Do(), DK_MaizeSilage::Do(), DE_OMaizeSilage::Do(), DK_OWinterRye::Do(), DK_OCerealLegume_Whole::Do(), OTriticale::Do(), DK_OSpringBarley_CC::Do(), DE_OMaize::Do(), DK_OWinterRye_CC::Do(), DK_OLegume_Whole::Do(), DK_OLegumeCloverGrass_Whole::Do(), DK_OLegume_Whole_CC::Do(), Maize::Do(), MaizeSilage::Do(), MaizeStrigling::Do(), DK_OWinterBarley::Do(), DK_Maize::Do(), DK_OSpringBarley::Do(), SpringBarleySeed::Do(), DK_OSugarBeet::Do(), DK_OCerealLegume::Do(), SpringBarleyCloverGrassStrigling::Do(), DK_OFodderBeet::Do(), FieldPeas::Do(), FieldPeasStrigling::Do(), FieldPeasSilage::Do(), OPotatoes::Do(), SpringBarleyCloverGrass::Do(), OFodderBeet::Do(), DK_OSpringOats::Do(), DK_OSpringWheat::Do(), Triticale::Do(), Carrots::Do(), DK_OVegSeeds::Do(), DE_OSugarBeet::Do(), DK_SpringBarleyCloverGrass::Do(), DE_OCabbages::Do(), DK_OSpringOats_CC::Do(), DE_OBushFruitPerm::Do(), DK_WinterFodderGrass::Do(), DK_OWinterRape::Do(), SpringBarleyPeaCloverGrassStrigling::Do(), DE_OPotatoes::Do(), DK_SpringBarley::Do(), DK_SpringBarley_CC::Do(), DK_OMaize::Do(), DK_OMaizeSilage::Do(), DK_OSpringBarleySilage::Do(), DK_SpringFodderGrass::Do(), DK_WinterCloverGrassGrazedSown::Do(), NLGrassGrazedExtensive2::Do(), DK_OCabbages::Do(), NLPermanentGrassGrazedExtensive::Do(), DE_OCarrots::Do(), NLGrassGrazedExtensive1Spring::Do(), NLGrassGrazedExtensiveLast::Do(), DK_OCarrots::Do(), PotatoesIndustry::Do(), NLCabbageSpring::Do(), SugarBeet::Do(), Potatoes::Do(), PTOliveGroveIntensive::Do(), NorwegianPotatoes::Do(), DKOBroadBeans_test::Do(), FodderBeet::Do(), DK_VegSeeds::Do(), DK_Carrots_Spring::Do(), SpringBarleySKManagement::Do(), NLCabbage::Do(), NLGrassGrazedExtensive1::Do(), DK_Carrots::Do(), WinterRyeStrigling::Do(), DK_OGrassGrazed_Perm::Do(), SpringBarleySpr::Do(), SpringBarleySilage::Do(), SpringBarleyStrigling::Do(), SpringBarleyPTreatment::Do(), SpringBarleyStriglingCulm::Do(), SpringBarleyStriglingSingle::Do(), WinterRye::Do(), DK_GrassGrazed_Perm::Do(), DK_Cabbages::Do(), PTOliveGroveSuperIntensive::Do(), DK_OMixedVeg::Do(), SpringBarley::Do(), DK_OPotato::Do(), DK_OPotatoIndustry::Do(), DK_OPotatoSeed::Do(), DK_Potato::Do(), UKPermanentGrass::Do(), UKTempGrass::Do(), DK_OBushFruit_Perm2::Do(), DK_CloverGrassGrazed1::Do(), PLBeetSpr::Do(), DK_MixedVeg::Do(), NLGrassGrazed2::Do(), NLPermanentGrassGrazed::Do(), WinterWheatStriglingCulm::Do(), WinterWheatStriglingSingle::Do(), NLGrassGrazedLast::Do(), NLGrassGrazed1Spring::Do(), WinterWheatStrigling::Do(), DK_PotatoSeed::Do(), WinterBarleyStrigling::Do(), NLGrassGrazed1::Do(), DE_BushFruitPerm::Do(), DK_PotatoIndustry::Do(), WinterBarley::Do(), DK_OOrchCherry::Do(), DK_OSpringFodderGrass::Do(), DK_OBushFruit_Perm1::Do(), DK_OCloverGrassGrazed3::Do(), DK_OWinterWheat_CC::Do(), DK_OCloverGrassGrazed1::Do(), DK_OCloverGrassGrazed2::Do(), DK_OWinterWheat::Do(), NLTulips::Do(), DK_OOrchPear::Do(), DK_OWinterFodderGrass::Do(), DK_CloverGrassGrazed3::Do(), DK_OWinterCloverGrassGrazedSown::Do(), PLBeet::Do(), DK_OOrchApple::Do(), DK_OOrchardCrop_Perm::Do(), DK_OOrchOther::Do(), DK_CloverGrassGrazed2::Do(), DK_BushFruit_Perm1::Do(), DE_Cabbage::Do(), DK_BushFruit_Perm2::Do(), FR_Grassland::Do(), WinterWheat::Do(), DE_SugarBeet::Do(), DK_OrchCherry::Do(), DK_OrchPear::Do(), DK_OrchOther::Do(), DK_OrchardCrop_Perm::Do(), DK_OrchApple::Do(), ITOrchard::Do(), and ITOOrchard::Do().

◆ WinterHarrow()

bool Farm::WinterHarrow	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a harrow event in the winter on a_field.

 {
     FarmToDo treatment = autumn_harrow;
     if ((0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         a_field->Trace(treatment);
         a_field->SetLastTreatment(treatment);
         // Apply 90% mortality to the insects
         a_field->InsectMortality(0.1);
         // Reduce the vegetation to zero
         a_field->ZeroVeg();
         int pref = a_field->GetUnsprayedMarginPolyRef();
         if (pref != -1) {
             // Must have an unsprayed margin so need to pass the information on to it
             LE* um = g_landscape_ptr->SupplyLEPointer(pref);
             um->SetLastTreatment(treatment);
             um->InsectMortality(0.1);
             um->ZeroVeg();
         }
         CalculateTreatmentCosts(treatment, a_field);
         return true;
     }
     return false;
 }

References autumn_harrow, DO_IT_PROB, g_landscape_ptr, g_weather, LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), Weather::Raining(), LE::SetLastTreatment(), Landscape::SupplyLEPointer(), and LE::ZeroVeg().

Referenced by PTCabbage::Do(), and PTCabbage_Hort::Do().

◆ WinterPlough()

bool Farm::WinterPlough	(	LE *	a_field,
		double	a_user,
		int	a_days
	)

virtual

Carry out a ploughing event in the winter on a_field.

 {
     if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
         SetFunctionData(a_field, 0.1, 0.0, 0, winter_plough);
     return true;
   }
   return false;
 }

References DO_IT_PROB, g_weather, Weather::Raining(), and winter_plough.

Referenced by UKMaize::Do(), NLCatchCropPea::Do(), DK_OCatchCrop::Do(), DK_CatchCrop::Do(), UKBeans::Do(), BEMaize::Do(), UKBeet::Do(), NLMaize::Do(), NLBeet::Do(), NLGrassGrazedExtensiveLast::Do(), NLCarrots::Do(), NLCabbage::Do(), NLGrassGrazedExtensive1::Do(), PLCarrots::Do(), NLSpringBarley::Do(), BEGrassGrazed1::Do(), PTCabbage::Do(), PTCabbage_Hort::Do(), PLFodderLucerne1::Do(), UKPotatoes::Do(), DE_HerbsPerennial_1year::Do(), NLGrassGrazedLast::Do(), PLBeans::Do(), DE_OHerbsPerennial_1year::Do(), DE_OGrasslandSilageAnnual::Do(), FI_OCaraway1::Do(), DE_Maize::Do(), NLGrassGrazed1::Do(), DE_MaizeSilage::Do(), FI_GrasslandPasturePerennial1::Do(), FI_GrasslandSilagePerennial1::Do(), FI_GrasslandSilageAnnual::Do(), BEPotatoes::Do(), NLPotatoes::Do(), PLSpringBarley::Do(), PLMaizeSilage::Do(), PLMaize::Do(), FI_Caraway1::Do(), FR_Sunflower::Do(), PLBeet::Do(), DE_Carrots::Do(), PLSpringWheat::Do(), PLPotatoes::Do(), DE_Cabbage::Do(), DE_Oats::Do(), DE_SpringRye::Do(), DE_GrasslandSilageAnnual::Do(), FR_Grassland::Do(), DE_SugarBeet::Do(), DE_Potatoes::Do(), and DE_PotatoesIndustry::Do().

Member Data Documentation

◆ m_farm_centroidx

int Farm::m_farm_centroidx

protected

Farm's centroid, value x. Equal to the average of the x centroid values of all farm's fields.

Referenced by Centroids(), and GetCentroids().

◆ m_farm_centroidy

int Farm::m_farm_centroidy

protected

Farm's centroid, value y. Equal to the average of the y centroid values of all farm's fields.

Referenced by Centroids(), and GetCentroids().

◆ m_farm_num

int Farm::m_farm_num

protected

Referenced by GetFarmNumber(), and SetFarmNumber().

◆ m_farmtype

TTypesOfFarm Farm::m_farmtype

protected

Referenced by AgroChemIndustryCerealFarm1::AgroChemIndustryCerealFarm1(), AgroChemIndustryCerealFarm2::AgroChemIndustryCerealFarm2(), AgroChemIndustryCerealFarm3::AgroChemIndustryCerealFarm3(), ConventionalCattle::ConventionalCattle(), ConventionalPig::ConventionalPig(), ConventionalPlant::ConventionalPlant(), ConvMarginalJord::ConvMarginalJord(), GetType(), NoPesticideBaseFarm::NoPesticideBaseFarm(), NoPesticideNoPFarm::NoPesticideNoPFarm(), OrganicCattle::OrganicCattle(), OrganicPig::OrganicPig(), OrganicPlant::OrganicPlant(), PesticideTrialControl::PesticideTrialControl(), PesticideTrialToxicControl::PesticideTrialToxicControl(), PesticideTrialTreatment::PesticideTrialTreatment(), UserDefinedFarm::UserDefinedFarm(), UserDefinedFarm1::UserDefinedFarm1(), UserDefinedFarm10::UserDefinedFarm10(), UserDefinedFarm11::UserDefinedFarm11(), UserDefinedFarm12::UserDefinedFarm12(), UserDefinedFarm13::UserDefinedFarm13(), UserDefinedFarm14::UserDefinedFarm14(), UserDefinedFarm15::UserDefinedFarm15(), UserDefinedFarm16::UserDefinedFarm16(), UserDefinedFarm17::UserDefinedFarm17(), UserDefinedFarm2::UserDefinedFarm2(), UserDefinedFarm3::UserDefinedFarm3(), UserDefinedFarm4::UserDefinedFarm4(), UserDefinedFarm5::UserDefinedFarm5(), UserDefinedFarm6::UserDefinedFarm6(), UserDefinedFarm7::UserDefinedFarm7(), UserDefinedFarm8::UserDefinedFarm8(), and UserDefinedFarm9::UserDefinedFarm9().

◆ m_FarmType

TTypesOfFarm Farm::m_FarmType

protected

The farms farm type - see TTypesOfFarm enum for types - note the use of UserDefined farms.

Referenced by GetFarmType().

◆ m_fields

vector< LE* > Farm::m_fields

protected

Referenced by AssignPermanentCrop(), Centroids(), GetMaxOpenness(), GetNoFields(), GetValidCoords(), and ListOpenFields().

◆ m_HuntersList

HunterList Farm::m_HuntersList

protected

A list of hunters allocated to this farm.

Referenced by AddHunter(), and RemoveHunter().

◆ m_intensity

double Farm::m_intensity

protected

indicates the farm intensity - 1 = normal, otherwise linear scale

Referenced by GetIntensity(), and SetIntensity().

◆ m_OurFarmer

Farmer* Farm::m_OurFarmer

protected

Referenced by CalculateTreatmentCosts(), Centroids(), GetFarmer(), and Harvested().

◆ m_OurManager

FarmManager* Farm::m_OurManager

protected

Pointer to the FarmManager.

Referenced by CalculateTreatmentCosts(), GetFarmManager(), and Harvested().

◆ m_PermCrops

vector<PermCropData> Farm::m_PermCrops

protected

Referenced by UserDefinedFarm::UserDefinedFarm().

◆ m_queue

LowPriority< FarmEvent* > Farm::m_queue

protected

◆ m_rotation

vector<TTypesOfVegetation> Farm::m_rotation

protected

◆ m_rotation_sync_index

int Farm::m_rotation_sync_index

protected

◆ m_rotfilename

string Farm::m_rotfilename

◆ m_stockfarmer

bool Farm::m_stockfarmer

protected

Referenced by AgroChemIndustryCerealFarm1::AgroChemIndustryCerealFarm1(), AgroChemIndustryCerealFarm2::AgroChemIndustryCerealFarm2(), AgroChemIndustryCerealFarm3::AgroChemIndustryCerealFarm3(), ConventionalCattle::ConventionalCattle(), ConventionalPig::ConventionalPig(), ConventionalPlant::ConventionalPlant(), ConvMarginalJord::ConvMarginalJord(), IsStockFarmer(), MakeStockFarmer(), ConventionalPlant::MakeStockFarmer(), OrganicPlant::MakeStockFarmer(), PesticideTrialControl::MakeStockFarmer(), PesticideTrialToxicControl::MakeStockFarmer(), PesticideTrialTreatment::MakeStockFarmer(), NoPesticideBaseFarm::NoPesticideBaseFarm(), NoPesticideNoPFarm::NoPesticideNoPFarm(), OrganicCattle::OrganicCattle(), OrganicPig::OrganicPig(), OrganicPlant::OrganicPlant(), PesticideTrialControl::PesticideTrialControl(), PesticideTrialToxicControl::PesticideTrialToxicControl(), PesticideTrialTreatment::PesticideTrialTreatment(), UserDefinedFarm::UserDefinedFarm(), UserDefinedFarm1::UserDefinedFarm1(), UserDefinedFarm10::UserDefinedFarm10(), UserDefinedFarm11::UserDefinedFarm11(), UserDefinedFarm12::UserDefinedFarm12(), UserDefinedFarm13::UserDefinedFarm13(), UserDefinedFarm14::UserDefinedFarm14(), UserDefinedFarm15::UserDefinedFarm15(), UserDefinedFarm16::UserDefinedFarm16(), UserDefinedFarm17::UserDefinedFarm17(), UserDefinedFarm2::UserDefinedFarm2(), UserDefinedFarm3::UserDefinedFarm3(), UserDefinedFarm4::UserDefinedFarm4(), UserDefinedFarm5::UserDefinedFarm5(), UserDefinedFarm6::UserDefinedFarm6(), UserDefinedFarm7::UserDefinedFarm7(), UserDefinedFarm8::UserDefinedFarm8(), and UserDefinedFarm9::UserDefinedFarm9().

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

/builds/ALMaSS/ALMaSS_MIDox/Landscape/Farm.h
/builds/ALMaSS/ALMaSS_MIDox/Landscape/Farm.cpp
/builds/ALMaSS/ALMaSS_MIDox/Landscape/FarmFuncs.cpp

Public Member Functions

Public Attributes

Protected Member Functions

Protected Attributes

Detailed Description

Constructor & Destructor Documentation

◆ Farm()

◆ ~Farm()

Member Function Documentation

◆ AddField()

◆ AddHunter()

◆ AddNewEvent()

◆ Assign_rotation()

◆ AssignPermanentCrop()

◆ AutumnHarrow()

◆ AutumnPlough()

◆ AutumnRoll()

◆ AutumnSow()

◆ AutumnSowWithFerti()

◆ BedForming()

◆ BiocideTreat()

◆ BulbHarvest()

◆ BurnStrawStubble()

◆ BurnTop()

◆ CalculateTreatmentCosts()

◆ CattleIsOut() [1/2]

◆ CattleIsOut() [2/2]

◆ CattleIsOutLow()

◆ CattleIsOutLow2()

◆ CattleOut() [1/2]

◆ CattleOut() [2/2]

◆ CattleOutLowGrazing()

◆ Centroids()

◆ CheckRotationManagementLoop()

◆ CutOrch()

◆ CutToHay()

◆ CutToSilage()

◆ CutWeeds()

◆ DeepPlough()

◆ DoIt()

◆ DoIt_prob()

◆ FA_AmmoniumSulphate()

◆ FA_Boron()

◆ FA_Calcium()

◆ FA_Cu()

◆ FA_GreenManure()

◆ FA_K()

◆ FA_ManganeseSulphate()

◆ FA_Manure()

◆ FA_N()

◆ FA_NK()

◆ FA_NPK()

◆ FA_NPKS()

◆ FA_P()

◆ FA_PK()

◆ FA_PKS()

◆ FA_RSM()

◆ FA_SK()

◆ FA_Sludge()

◆ FA_Slurry()

◆ FarmActions()

◆ FarmerActions()

◆ FiberCovering()

◆ FiberRemoval()

◆ FlowerCutting()

◆ FP_AmmoniumSulphate()

◆ FP_Boron()

◆ FP_Calcium()

◆ FP_Cu()

◆ FP_GreenManure()

◆ FP_K()

◆ FP_LiquidNH3()

◆ FP_ManganeseSulphate()

◆ FP_Manure()

◆ FP_N()

◆ FP_NC()

◆ FP_NK()

◆ FP_NPK()

◆ FP_NPKS()

◆ FP_NS()