File failed to load: https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/extensions/ams.js
ALMaSS  1.2 (after EcoStack, March 2024)
The Animal, Landscape and Man Simulation System
All Classes Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
DK_OLegume_Beans_CC Class Reference

#include <DK_OLegume_Beans_CC.h>

Inheritance diagram for DK_OLegume_Beans_CC:
Crop

Public Member Functions

bool Do (Farm *a_farm, LE *a_field, FarmEvent *a_ev)
 
 DK_OLegume_Beans_CC (TTypesOfVegetation a_tov, TTypesOfCrops a_toc, Landscape *a_L)
 
void SetUpFarmCategoryInformation ()
 
- Public Member Functions inherited from Crop
virtual ~Crop ()
 
 Crop (TTypesOfVegetation a_tov, TTypesOfCrops a_toc, Landscape *a_L)
 
int GetFirstDate (void)
 
void ChooseNextCrop (int a_no_dates)
 Chooses the next crop to grow in a field. More...
 
int GetCropClassification ()
 
void SetCropClassification (int a_classification)
 
void GetCropType (TTypesOfCrops a_toc)
 
TTypesOfCrops GetCropType ()
 
FarmManagementCategory LookUpManagementCategory (int a_todo)
 
bool GetForceSpringOK ()
 

Additional Inherited Members

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

Constructor & Destructor Documentation

◆ DK_OLegume_Beans_CC()

DK_OLegume_Beans_CC::DK_OLegume_Beans_CC ( TTypesOfVegetation  a_tov,
TTypesOfCrops  a_toc,
Landscape a_L 
)
inline
60  : Crop(a_tov, a_toc, a_L)
61  {
64  }

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

Member Function Documentation

◆ Do()

bool DK_OLegume_Beans_CC::Do ( Farm a_farm,
LE a_field,
FarmEvent a_ev 
)
virtual

Reimplemented from Crop.

35 {
36  m_farm = a_farm;
37  m_field = a_field;
38  m_ev = a_ev;
39 
40  bool done = false;
41  int d1;
43  int l_nextcropstartdate;
44 
45  switch (m_ev->m_todo)
46  {
47  case dk_olbcc_start:
48  {
49  a_field->ClearManagementActionSum();
50  m_field->SetVegPatchy(true); // LKM: A crop with wide rows, so set patchy
51  m_last_date = g_date->DayInYear(30, 9); // Should match the last flexdate below
52  //Create a 2d array of 1 plus the number of operations you use. Change only 4+1 to what you need in the line below
53  std::vector<std::vector<int>> flexdates(1 + 1, std::vector<int>(2, 0));
54  // Set up the date management stuff
55  // Start and stop dates for all events after harvest
56  flexdates[0][1] = g_date->DayInYear(30, 9); // last possible day of plough in this case
57  // Now these are done in pairs, start & end for each operation. If its not used then -1
58  flexdates[1][0] = -1; // This date will be moved back as far as necessary and potentially to flexdates 1 (start op 1)
59  flexdates[1][1] = -1; // This date will be moved back as far as necessary and potentially to flexdates 1 (end op 1) -
60 
61 
62  // Below if this is a spring crop use 365, otherwise first parameter is always 0, second parameter is fixed, and the third is the start up operation in the first year
63  int isSpring = 365;
64  if (StartUpCrop(365, flexdates, int(dk_olbcc_spring_harrow1))) break;
65 
66  // End single block date checking code. Please see next line comment as well.
67  // Reinit d1 to first possible starting date.
68  d1 = g_date->OldDays() + g_date->DayInYear(1, 3) + isSpring;
69  // OK, let's go.
70  // Here we queue up the first event which changes dependent on whether it is a forced spring sow or not
72  break;
73  }
74  break;
75 
76  // LKM: do spring harrow, do it before the 10th of April - if not done, try again +1 day until the 10th of April when we succeed - 100% of farmers do this
78  if (!m_farm->SpringHarrow(m_field, 0.0,
79  g_date->DayInYear(10, 4) - g_date->DayInYear())) {
81  break;
82  }
83  // LKM: Queue up the next event - spring plough
85  break;
86  // LKM: do spring plough before the 15th of April - if not done, try again +1 day until the 15th of April when we succeed- 100% of farmers do this
88  if (!m_farm->SpringPlough(m_field, 0.0,
89  g_date->DayInYear(15, 4) - g_date->DayInYear())) {
91  break;
92  }
93  if (a_farm->IsStockFarmer()) {
94  // LKM: Queue up the next event - K and S are added (new todo is needed - Maybe work from FP_PK? ks_ferti in system needs to be valid)
96  break;
97  }
99  break;
100  // LKM: add K and S before the 20th of April - if not done, try again +1 day until the 20th of April when we succeed- 100% of farmers do this
101  case dk_olbcc_ks_ferti_s:
102  if (!m_farm->FA_SK(m_field, 0.0,
103  g_date->DayInYear(20, 4) - g_date->DayInYear())) {
105  break;
106  }
107  // LKM: Queue up the next event - spring harrow just before sowing
109  break;
110  case dk_olbcc_ks_ferti_p:
111  if (!m_farm->FP_SK(m_field, 0.0,
112  g_date->DayInYear(20, 4) - g_date->DayInYear())) {
114  break;
115  }
116  // LKM: Queue up the next event - spring harrow just before sowing
118  break;
119  // LKM: spring harrow only done if difficult to sow because of heavy rain (assume 10% will do this) before the 25th of April - if not done, try again +1 day until the 25th of April when we will succeed
121  if (m_ev->m_lock || m_farm->DoIt_prob(0.10))
122  {
123  if (!m_farm->ShallowHarrow(m_field, 0.0,
124  g_date->DayInYear(21, 4) - g_date->DayInYear())) {
126  break;
127  }
128  }
129 
131  break;
132  case dk_olbcc_spring_sow: // ~50% do a normal broad sow, 50% do row sow
133  if (!m_farm->SpringSow(m_field, 0.0, g_date->DayInYear(30, 4) - g_date->DayInYear())) {
135  break;
136  }
137  //Queue up harrow/strigling 3-5 days after sow
138  SimpleEvent(g_date->Date() + 3, dk_olbcc_strigling1, false);
139  break;
140  // LKM: strigling before the 5th of May - if not done, try again +3 days until the 5th of May when we succeed
141  case dk_olbcc_strigling1:
142  if (!m_farm->Strigling(m_field, 0.0,
143  g_date->DayInYear(5, 5) - g_date->DayInYear())) {
145  break;
146  }
147  SimpleEvent(g_date->Date() + 3, dk_olbcc_strigling2, false);
148  break;
149  case dk_olbcc_strigling2:
150  if (m_ev->m_lock || m_farm->DoIt_prob(0.50)) { // suggestion because strigling happens 1-2 times
151  if (!m_farm->Strigling(m_field, 0.0,
152  g_date->DayInYear(9, 5) - g_date->DayInYear())) {
154  break;
155  }
156  }
158  break;
159 
161  if (m_ev->m_lock || m_farm->DoIt_prob(0.50)) { // the 50% that row sow
162  if (!m_farm->RowCultivation(m_field, 0.0,
163  g_date->DayInYear(31, 5) - g_date->DayInYear())) {
165  break;
166  }
167  SimpleEvent(g_date->Date() + 1, dk_olbcc_water, false); // main thread
169  break;
170  }
171  SimpleEvent(g_date->Date() + 14, dk_olbcc_strigling3, false);
172  break;
173 
175  if (m_ev->m_lock || m_farm->DoIt_prob(0.50)) { // suggestion because row cultivation happens 1-2 times
176  if (!m_farm->RowCultivation(m_field, 0.0,
177  g_date->DayInYear(15, 6) - g_date->DayInYear())) {
179  break;
180  }
181  }
182  break; // end of thread
183 
184  case dk_olbcc_strigling3:
185  if (!m_farm->Strigling(m_field, 0.0,
186  g_date->DayInYear(31, 5) - g_date->DayInYear())) {
188  break;
189  }
190  // LKM: Queue up the next event - in this case watering
191  SimpleEvent(g_date->Date() + 1, dk_olbcc_water, false); // main thread
192  SimpleEvent(g_date->Date() + 7, dk_olbcc_strigling4, false);
193  break;
194 
195  case dk_olbcc_strigling4:
196  if (m_ev->m_lock || m_farm->DoIt_prob(0.50)) { // suggestion because strigling happens 1-2 times
197  if (!m_farm->Strigling(m_field, 0.0,
198  g_date->DayInYear(15, 6) - g_date->DayInYear())) {
200  break;
201  }
202  }
203  break; // end of thread
204 
205  case dk_olbcc_water:
206  // LKM: water before the 25th of June - if not done, try again +1 days until the 25th of June when we succeed
207  if (m_ev->m_lock || m_farm->DoIt_prob(0.50)) {
208  if (!m_farm->Water(m_field, 0.0, g_date->DayInYear(25, 6) - g_date->DayInYear())) {
209  SimpleEvent(g_date->Date() + 1, dk_olbcc_water, true);
210  break;
211  }
212  }
213  // LKM: Queue up the next event - harvest (not before the 25th of June - need new farmfunc because the Legume_Beans_CC are hand picked)
215  dk_olbcc_harvest, false);
216  break;
217  case dk_olbcc_harvest:
218  // LKM: harvest before the 25th of August - if not done, try again +1 days until the 10th of September when we succeed - 100% of farmers do this
219  if (!m_farm->Harvest(m_field, 0.0, m_field->GetMDates(1, 0) - g_date->DayInYear())) {
220  SimpleEvent(g_date->Date() + 1, dk_olbcc_harvest, true);
221  break;
222  }
223  m_field->SetVegPatchy(false);
224 
226  SimpleEvent(g_date->Date(), dk_olbcc_wait, false);
227  break;
228  }
229  else
230  done = true;
231  break;
232 
233  case dk_olbcc_wait:
234  //set to 100% from this code - in reality ~ 33% of all legumes
235  // So we are done,but this crop uses a catch crop
236  l_nextcropstartdate = m_farm->GetNextCropStartDate(m_ev->m_field, l_tov);
237  m_field->SetVegPatchy(false); // reverse the patchy before the next crop
238  m_farm->AddNewEvent(tov_DKOCatchCrop, g_date->Date(), m_ev->m_field, PROG_START, m_ev->m_field->GetRunNum(), false, l_nextcropstartdate, false, l_tov, fmc_Others, false, false);
239  m_field->SetVegType(tov_DKOCatchCrop, tov_Undefined); // Two vegetation curves are specified
240  if (m_field->GetUnsprayedMarginPolyRef() != -1)
241  {
244  }
245  break;
246  default:
247  g_msg->Warn(WARN_BUG, "OLegume_Beans_CC::Do(): "
248  "Unknown event type! ", "");
249  exit(1);
250  }
251 
252  return done;
253 }

References Farm::AddNewEvent(), cfg_DKCatchCropLegumePct, LE::ClearManagementActionSum(), Calendar::Date(), Calendar::DayInYear(), dk_olbcc_harvest, dk_olbcc_ks_ferti_p, dk_olbcc_ks_ferti_s, dk_olbcc_rowcultivation1, dk_olbcc_rowcultivation2, dk_olbcc_spring_harrow1, dk_olbcc_spring_harrow2, dk_olbcc_spring_plough, dk_olbcc_spring_sow, dk_olbcc_start, dk_olbcc_strigling1, dk_olbcc_strigling2, dk_olbcc_strigling3, dk_olbcc_strigling4, dk_olbcc_wait, dk_olbcc_water, Farm::DoIt_prob(), Farm::FA_SK(), fmc_Others, Farm::FP_SK(), g_date, g_msg, LE::GetMDates(), Farm::GetNextCropStartDate(), LE::GetUnsprayedMarginPolyRef(), Farm::Harvest(), Farm::IsStockFarmer(), Crop::m_ev, Crop::m_farm, FarmEvent::m_field, Crop::m_field, Crop::m_last_date, FarmEvent::m_lock, Crop::m_OurLandscape, FarmEvent::m_todo, Calendar::OldDays(), PROG_START, Farm::RowCultivation(), LE::SetVegPatchy(), LE::SetVegType(), Farm::ShallowHarrow(), Crop::SimpleEvent(), Farm::SpringHarrow(), Farm::SpringPlough(), Farm::SpringSow(), Crop::StartUpCrop(), Farm::Strigling(), Landscape::SupplyLEPointer(), tov_DKOCatchCrop, tov_DKOLegume_Beans_CC, tov_Undefined, CfgFloat::value(), MapErrorMsg::Warn(), WARN_BUG, and Farm::Water().

◆ SetUpFarmCategoryInformation()

void DK_OLegume_Beans_CC::SetUpFarmCategoryInformation ( )
inline
65  {
66  const int elements = 2 + (dk_olbcc_foobar - DK_OLBCC_BASE);
68 
69  FarmManagementCategory catlist[elements] =
70  {
71  fmc_Others, // zero element unused but must be here
72  fmc_Others, // dk_olbcc_start = 1, // Compulsory, start event must always be 1 (one).
73  fmc_Harvest, // dk_olbcc_harvest = DK_olbcc_BASE,
74  fmc_Cultivation, // dk_olbcc_spring_harrow1,
75  fmc_Cultivation, // dk_olbcc_spring_plough,
76  fmc_Fertilizer, // dk_olbcc_ks_ferti,
77  fmc_Fertilizer, // dk_olbcc_ks_ferti,
78  fmc_Cultivation, // dk_olbcc_spring_harrow2,
79  fmc_Others, // dk_olbcc_spring_sow,
80  fmc_Cultivation, // dk_olbcc_strigling,
81  fmc_Cultivation, // dk_olbcc_strigling,
82  fmc_Cultivation, // dk_olbcc_strigling,
83  fmc_Cultivation, // dk_olbcc_strigling,
84  fmc_Cultivation, // dk_olbcc_rowcultivation,
85  fmc_Cultivation, // dk_olbcc_rowcultivation,
86  fmc_Watering, // dk_olbcc_water,
87  fmc_Others, // dk_olbcc_wait
88 
89 
90  // no foobar entry
91 
92  };
93  // Iterate over the catlist elements and copy them to vector
94  copy(begin(catlist), end(catlist), back_inserter(m_ManagementCategories));
95 
96  }

References DK_OLBCC_BASE, dk_olbcc_foobar, fmc_Cultivation, fmc_Fertilizer, fmc_Harvest, fmc_Others, fmc_Watering, Crop::m_base_elements_no, and Crop::m_ManagementCategories.

Referenced by DK_OLegume_Beans_CC().


The documentation for this class was generated from the following files:
LE::GetMDates
int GetMDates(int a, int b)
Definition: Elements.h:405
Landscape::SupplyLEPointer
LE * SupplyLEPointer(int a_polyref)
Returns a pointer to the object referred to by the polygon number.
Definition: Landscape.h:1722
Farm::SpringPlough
virtual bool SpringPlough(LE *a_field, double a_user, int a_days)
Carry out a ploughing event in the spring on a_field.
Definition: FarmFuncs.cpp:421
Farm::IsStockFarmer
bool IsStockFarmer(void)
Definition: Farm.h:961
Farm::Strigling
virtual bool Strigling(LE *a_field, double a_user, int a_days)
Carry out a mechanical weeding on a_field.
Definition: FarmFuncs.cpp:1206
Farm::Harvest
virtual bool Harvest(LE *a_field, double a_user, int a_days)
Carry out a harvest on a_field.
Definition: FarmFuncs.cpp:1364
FarmEvent::m_lock
bool m_lock
Definition: Farm.h:384
dk_olbcc_spring_sow
Definition: DK_OLegume_Beans_CC.h:42
LE::ClearManagementActionSum
void ClearManagementActionSum()
clears the management action counters
Definition: Elements.h:247
dk_olbcc_wait
Definition: DK_OLegume_Beans_CC.h:50
Farm::DoIt_prob
bool DoIt_prob(double a_probability)
Return chance out of 0 to 1.
Definition: Farm.cpp:864
dk_olbcc_ks_ferti_p
Definition: DK_OLegume_Beans_CC.h:40
g_date
class Calendar * g_date
Definition: Calendar.cpp:37
DK_OLBCC_BASE
#define DK_OLBCC_BASE
A flag used to indicate do catch crop.
Definition: DK_OLegume_Beans_CC.h:32
Farm::GetNextCropStartDate
int GetNextCropStartDate(LE *a_field, TTypesOfVegetation &a_curr_veg)
Returns the start date of the next crop in the rotation.
Definition: Farm.cpp:920
Farm::AddNewEvent
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.
Definition: Farm.cpp:845
Farm::SpringSow
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.
Definition: FarmFuncs.cpp:501
CfgFloat::value
double value() const
Definition: Configurator.h:142
tov_DKOLegume_Beans_CC
Definition: LandscapeFarmingEnums.h:426
Crop::m_base_elements_no
int m_base_elements_no
Definition: Farm.h:505
dk_olbcc_spring_plough
Definition: DK_OLegume_Beans_CC.h:38
Farm::FP_SK
virtual bool FP_SK(LE *a_field, double a_user, int a_days)
Apply SK fertilizer, on a_field owned by an arable farmer.
Definition: FarmFuncs.cpp:794
Crop::m_first_date
int m_first_date
Definition: Farm.h:501
cfg_DKCatchCropLegumePct
CfgFloat cfg_DKCatchCropLegumePct
dk_olbcc_harvest
Definition: DK_OLegume_Beans_CC.h:36
Crop::SimpleEvent
void SimpleEvent(long a_date, int a_todo, bool a_lock)
Adds an event to this crop management.
Definition: Farm.cpp:747
tov_DKOCatchCrop
Definition: LandscapeFarmingEnums.h:421
dk_olbcc_strigling3
Definition: DK_OLegume_Beans_CC.h:45
fmc_Fertilizer
Definition: LandscapeFarmingEnums.h:1004
Calendar::Date
long Date(void)
Definition: Calendar.h:57
fmc_Cultivation
Definition: LandscapeFarmingEnums.h:1008
dk_olbcc_rowcultivation1
Definition: DK_OLegume_Beans_CC.h:47
fmc_Others
Definition: LandscapeFarmingEnums.h:1003
LE::SetVegPatchy
void SetVegPatchy(bool p)
Definition: Elements.h:229
fmc_Watering
Definition: LandscapeFarmingEnums.h:1011
dk_olbcc_rowcultivation2
Definition: DK_OLegume_Beans_CC.h:48
dk_olbcc_water
Definition: DK_OLegume_Beans_CC.h:49
dk_olbcc_ks_ferti_s
Definition: DK_OLegume_Beans_CC.h:39
dk_olbcc_strigling4
Definition: DK_OLegume_Beans_CC.h:46
Calendar::OldDays
long OldDays(void)
Definition: Calendar.h:60
MapErrorMsg::Warn
void Warn(MapErrorState a_level, std::string a_msg1, std::string a_msg2)
Definition: MapErrorMsg.cpp:69
Crop::StartUpCrop
bool StartUpCrop(int a_spring, std::vector< std::vector< int >> a_flexdates, int a_todo)
Holds the translation between the farm operation enum for each cropand the farm management category a...
Definition: Farm.cpp:652
dk_olbcc_foobar
Definition: DK_OLegume_Beans_CC.h:51
FarmEvent::m_field
LE * m_field
Definition: Farm.h:391
dk_olbcc_spring_harrow2
Definition: DK_OLegume_Beans_CC.h:41
dk_olbcc_strigling2
Definition: DK_OLegume_Beans_CC.h:44
Crop::m_farm
Farm * m_farm
Definition: Farm.h:498
Crop::m_field
LE * m_field
Definition: Farm.h:499
dk_olbcc_start
Definition: DK_OLegume_Beans_CC.h:35
Crop::m_ManagementCategories
vector< FarmManagementCategory > m_ManagementCategories
Holds the translation between the farm operation enum for each crop and the farm management category ...
Definition: Farm.h:530
Farm::FA_SK
virtual bool FA_SK(LE *a_field, double a_user, int a_days)
Apply SK fertilizer, on a_field owned by an stock farmer.
Definition: FarmFuncs.cpp:1052
FarmEvent::m_todo
int m_todo
Definition: Farm.h:388
tov_Undefined
Definition: LandscapeFarmingEnums.h:610
LE::SetVegType
virtual void SetVegType(TTypesOfVegetation)
Definition: Elements.h:175
Farm::ShallowHarrow
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.
Definition: FarmFuncs.cpp:473
Farm::RowCultivation
virtual bool RowCultivation(LE *a_field, double a_user, int a_days)
Carry out a harrowing between crop rows on a_field.
Definition: FarmFuncs.cpp:1183
LE
Definition: Elements.h:86
Farm::Water
virtual bool Water(LE *a_field, double a_user, int a_days)
Carry out a watering on a_field.
Definition: FarmFuncs.cpp:1330
Crop::m_last_date
int m_last_date
Definition: Farm.h:503
g_msg
MapErrorMsg * g_msg
Definition: MapErrorMsg.cpp:41
DK_OLegume_Beans_CC::SetUpFarmCategoryInformation
void SetUpFarmCategoryInformation()
Definition: DK_OLegume_Beans_CC.h:65
TTypesOfVegetation
TTypesOfVegetation
Values that represent the types of vegetation that are represented in ALMaSS.
Definition: LandscapeFarmingEnums.h:192
fmc_Harvest
Definition: LandscapeFarmingEnums.h:1012
LE::GetUnsprayedMarginPolyRef
int GetUnsprayedMarginPolyRef(void)
Definition: Elements.h:383
dk_olbcc_strigling1
Definition: DK_OLegume_Beans_CC.h:43
Calendar::DayInYear
int DayInYear(void)
Definition: Calendar.h:58
Crop::Crop
Crop(TTypesOfVegetation a_tov, TTypesOfCrops a_toc, Landscape *a_L)
Definition: Farm.cpp:733
PROG_START
#define PROG_START
Definition: Farm.h:69
dk_olbcc_spring_harrow1
Definition: DK_OLegume_Beans_CC.h:37
Crop::m_ev
FarmEvent * m_ev
Definition: Farm.h:500
Crop::m_OurLandscape
Landscape * m_OurLandscape
Definition: Farm.h:506
WARN_BUG
Definition: MapErrorMsg.h:34
FarmManagementCategory
FarmManagementCategory
Definition: LandscapeFarmingEnums.h:1001
Farm::SpringHarrow
virtual bool SpringHarrow(LE *a_field, double a_user, int a_days)
Carry out a harrow event in the spring on a_field.
Definition: FarmFuncs.cpp:459