OCloverGrassGrazed2 Class Reference

#include <OCloverGrassGrazed2.h>

Inheritance diagram for OCloverGrassGrazed2:

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

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

Constructor & Destructor Documentation

OCloverGrassGrazed2()

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

inline

                                                                                     : Crop(a_tov, a_toc, a_L)
  {
      m_first_date=g_date->DayInYear(1,4);
      SetUpFarmCategoryInformation();
  }

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

Member Function Documentation

Do()

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

virtual

Reimplemented from Crop.

{
    m_farm  = a_farm;
    m_field = a_field;
    m_ev    = a_ev;
    bool done = false;
    long d1 = 0;
    int noDates= 2;
 
    switch ( m_ev->m_todo ) {
  case ocgg2_start:
          OCGG2_CUT_DATE    = 0;
          OCGG2_WATER_DATE  = 0;
          a_field->ClearManagementActionSum();
 
 
          // Set up the date management stuff
          // Could save the start day in case it is needed later
          // m_field->m_startday = m_ev->m_startday;
          m_last_date=g_date->DayInYear(10,10);
          // Start and stop dates for all events after harvest
          m_field->SetMDates(0,0,g_date->DayInYear(27,7));
          // Determined by harvest date - used to see if at all possible
          m_field->SetMDates(1,0,g_date->DayInYear(10,10));
          m_field->SetMDates(0,1,g_date->DayInYear(1,9));
          m_field->SetMDates(1,1,g_date->DayInYear(1,10));
          // Check the next crop for early start, unless it is a spring crop
          // in which case we ASSUME that no checking is necessary!!!!
          // So DO NOT implement a crop that runs over the year boundary
          if (m_ev->m_startday>g_date->DayInYear(1,7))
          {
              if (m_field->GetMDates(0,0) >=m_ev->m_startday)
              {
                  g_msg->Warn( WARN_BUG, "OCloverGrassGrazed2::Do(): "
                      "Harvest too late for the next crop to start!!!", "" );
                  exit( 1 );
              }
              // Now fix any late finishing problems
              for (int i=0; i<noDates; i++)
              {
                  if  (m_field->GetMDates(0,i)>=m_ev->m_startday) m_field->SetMDates(0,i,m_ev->m_startday-1);
                  if  (m_field->GetMDates(1,i)>=m_ev->m_startday) m_field->SetMDates(1,i,m_ev->m_startday-1);
              }
          }
          // Now no operations can be timed after the start of the next crop.
          // Added test for management plan testing. FN, 19/5-2003.
          if ( ! ( m_ev->m_first_year  )) {
              // Are we before July 1st?
              d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
              if (g_date->Date() < d1) {
                  // Yes, too early. We assumme this is because the last crop was late
                  g_msg->Warn( WARN_BUG, "OCloverGrassGrazed2::Do(): "
                      "Crop start attempt between 1st Jan & 1st July", "" );
                  exit( 1 );
              } else {
                  d1 = g_date->OldDays() + m_first_date+365; // Add 365 for spring crop
                  if (g_date->Date() > d1) {
                      // Yes too late - should not happen - raise an error
                      g_msg->Warn( WARN_BUG, "OCloverGrassGrazed2::Do(): "
                          "Crop start attempt after last possible start date",
                          "" );
                      exit( 1 );
                  }
              }
          } else {
              // First (invisible) year or testing. Force the correct starting date.
              d1 = g_date->OldDays() + g_date->DayInYear( 1, 4 );
              // If testing and not the first year, then push all events
              // into next year (start event is called in the autumn after
              // the current year has finished). FN, 20/5-2003.
              if (!m_ev->m_first_year) d1 += 365;
          }
          m_field->SetLastSownVeg( m_field->GetOwner()->GetNextCrop( m_field->GetRotIndex() ) );
          // OK, let's go.
          OCGG2_CUT_DATE=0;
          SimpleEvent( d1, ocgg2_ferti_zero, false );
          break;
  case ocgg2_ferti_zero:
    if ( m_ev->m_lock || m_farm->DoIt( 50 ))
    {
      if (!m_farm->FA_Slurry( m_field, 0.0,
           g_date->DayInYear( 30, 4 ) - g_date->DayInYear())) {
        // We didn't do it today, try again tomorrow.
        SimpleEvent( g_date->Date() + 1, ocgg2_ferti_zero, true );
        break;
      }
    }
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
             ocgg2_cattle_out, false );
//    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,5 ),
//                   cgg2_cut_to_silage, false );
 
// Start a watering thread
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15, 5 ),
             ocgg2_water_zero, false );
    break;
 
 
case ocgg2_cattle_out:
  if (  m_ev->m_lock || m_farm->DoIt( (int) (100-(cfg_silage_prop.value()*40) ))) {
    if (cfg_organic_extensive.value()) {
      if (!m_farm->CattleOutLowGrazing( m_field, 0.0,
                              m_field->GetMDates(1,1) -
                              g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, ocgg2_cattle_out, true );
              break;
      }
    }
    else {
      if (!m_farm->CattleOut( m_field, 0.0,
                              m_field->GetMDates(1,1) -
                              g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, ocgg2_cattle_out, true );
              break;
      }
    }
    // Success
    // Keep them out there
    SimpleEvent( g_date->Date() + 1, ocgg2_cattle_is_out, false );
    break;
  }
  SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,5 ),
                 ocgg2_cut_to_silage, false );
  break;
 
case ocgg2_cattle_is_out:    // Keep the cattle out there
  // CattleIsOut() returns false if it is not time to stop grazing
  if (cfg_organic_extensive.value()) {
    if (!m_farm->CattleIsOutLow( m_field, 0.0, m_field->GetMDates(1,1) -
                               g_date->DayInYear(),m_field->GetMDates(1,1))) {
    SimpleEvent( g_date->Date() + 1, ocgg2_cattle_is_out, false );
    break;
    }
  }
  else {
  if ( !m_farm->CattleIsOut( m_field, 0.0,
                               m_field->GetMDates(1,1) -
                               g_date->DayInYear(),m_field->GetMDates(1,1)))
    {
      SimpleEvent( g_date->Date() + 1, ocgg2_cattle_is_out, false );
      break;
    }
  }
  done=true;
  break;
 
case ocgg2_cut_to_silage:
if ( m_ev->m_lock || m_farm->DoIt( 100 )) {
  if ( g_date->Date() < OCGG2_WATER_DATE + 7 ) {
    SimpleEvent( g_date->Date() + 1, ocgg2_cut_to_silage, true );
    break;
  }
  if (!m_farm->CutToSilage( m_field, 0.0,
                            g_date->DayInYear( 25, 6 ) -
                            g_date->DayInYear())) {
    // We didn't do it today, try again tomorrow.
    SimpleEvent( g_date->Date() + 1, ocgg2_cut_to_silage, true );
    break;
  }
  OCGG2_CUT_DATE = g_date->Date();
  SimpleEvent(g_date->OldDays() + m_field->GetMDates(0,1), ocgg2_stubble_harrow, false );
  // But we need to graze too
  SimpleEvent( g_date->Date()+14, ocgg2_cattle_out, true );
}
break;
 
case ocgg2_stubble_harrow:
if ( m_ev->m_lock || m_farm->DoIt( 20 )) {
  // But first if we are grazing then we must stop this
  //
  if (!m_farm->StubbleHarrowing( m_field, 0.0,
                                 m_field->GetMDates(1,1) -
                                 g_date->DayInYear())) {
    // We didn't do it today, try again tomorrow.
    SimpleEvent( g_date->Date() + 1, ocgg2_stubble_harrow, true );
    break;
  }
  // If we ran, then we also happen to be the last event,
  // so terminate the program by stopping grazing
  m_field->SetMDates(1,1,g_date->DayInYear()-1);
}
break;
 
case ocgg2_water_zero:
  if ( m_ev->m_lock || m_farm->DoIt( 25 )) {
    if ( g_date->Date() < OCGG2_CUT_DATE + 3 ) {
      // Try again tomorrow, too close to silage cutting.
      SimpleEvent( g_date->Date() + 1, ocgg2_water_zero, true );
      break;
    }
    if (!m_farm->Water( m_field, 0.0,
                        g_date->DayInYear( 30, 5 ) -
                        g_date->DayInYear())) {
      // We didn't do it today, try again tomorrow.
      SimpleEvent( g_date->Date() + 1, ocgg2_water_zero, true );
      break;
    }
    OCGG2_WATER_DATE = g_date->Date();
 
    long newdate1 = g_date->OldDays() + g_date->DayInYear( 1,6 );
    long newdate2 = g_date->Date() + 7;
    if ( newdate2 > newdate1 )
      newdate1 = newdate2;
    SimpleEvent( newdate1, ocgg2_water_one, false );
  }
  break;
 
case ocgg2_water_one:
  if ( m_ev->m_lock || m_farm->DoIt( 25 )) {
    if ( g_date->Date() < OCGG2_CUT_DATE + 3 ) {
      // Try again tomorrow, too close to silage cutting.
      SimpleEvent( g_date->Date() + 1, ocgg2_water_one, true );
      break;
    }
    if (!m_farm->Water( m_field, 0.0,
                        g_date->DayInYear( 15, 6 ) -
                        g_date->DayInYear())) {
      // We didn't do it today, try again tomorrow.
      SimpleEvent( g_date->Date() + 1, ocgg2_water_one, true );
      break;
    }
    OCGG2_WATER_DATE = g_date->Date();
  }
  break;
  // End of watering thread.
 
 
  default:
    g_msg->Warn( WARN_BUG, "OCloverGrassGrazed2::Do(): "
         "Unknown event type! ", "" );
    exit( 1 );
  }
 
  return done;
}

References cfg_organic_extensive, cfg_silage_prop, LE::ClearManagementActionSum(), Calendar::Date(), Calendar::DayInYear(), g_date, g_msg, ocgg2_cattle_is_out, ocgg2_cattle_out, OCGG2_CUT_DATE, ocgg2_cut_to_silage, ocgg2_ferti_zero, ocgg2_start, ocgg2_stubble_harrow, OCGG2_WATER_DATE, ocgg2_water_one, ocgg2_water_zero, Calendar::OldDays(), CfgFloat::value(), CfgBool::value(), MapErrorMsg::Warn(), and WARN_BUG.

SetUpFarmCategoryInformation()

void OCloverGrassGrazed2::SetUpFarmCategoryInformation ( )

inline

                                      {
      const int elements = 2 + (ocgg2_foobar - OCGG2_BASE);
      m_base_elements_no = OCGG2_BASE - 2;
 
      FarmManagementCategory catlist[elements] =
      {
            fmc_Others, // zero element unused but must be here 
            fmc_Others, //    ocgg2_start = 1, // Compulsory, start event must always be 1 (one).
            fmc_Fertilizer, //    ocgg2_ferti_zero=OCGG2_BASE,
            fmc_Cutting,    //    ocgg2_cut_to_silage,
            fmc_Watering,   //    ocgg2_water_zero,
            fmc_Watering,   //    ocgg2_water_one,
            fmc_Grazing,    //    ocgg2_cattle_out,
            fmc_Grazing,    //    ocgg2_cattle_is_out,
            fmc_Cultivation //    ocgg2_stubble_harrow,
 
 
              // no foobar entry    
 
      };
      // Iterate over the catlist elements and copy them to vector              
      copy(begin(catlist), end(catlist), back_inserter(m_ManagementCategories));
 
  }

References fmc_Cultivation, fmc_Cutting, fmc_Fertilizer, fmc_Grazing, fmc_Others, fmc_Watering, Crop::m_base_elements_no, Crop::m_ManagementCategories, OCGG2_BASE, and ocgg2_foobar.

Referenced by OCloverGrassGrazed2().

---

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

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