WWheatPControl Class Reference

#include <WWheatPControl.h>

Public Member Functions
virtual bool	Do (Farm *a_farm, LE *a_field, FarmEvent *a_ev)
Public Member Functions inherited from Crop
void	ChooseNextCrop (int a_no_dates)
	Chooses the next crop to grow in a field. More...
	Crop ()
int	GetCropClassification ()
int	GetFirstDate (void)
void	SetCropClassification (int a_classification)
virtual	~Crop ()

Additional Inherited Members
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...
Protected Attributes inherited from Crop
int	m_count
int	m_CropClassification
int	m_ddegstoharvest
FarmEvent *	m_ev
Farm *	m_farm
LE *	m_field
int	m_first_date
int	m_last_date

Detailed Description

Definition at line 83 of file WWheatPControl.h.

Member Function Documentation

Do()

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

virtual

Reimplemented from Crop.

Definition at line 37 of file WWheatPControl.cpp.

{
  m_farm  = a_farm;
  m_field = a_field;
  m_ev    = a_ev;
 
  bool done = false;
 
  switch ( m_ev->m_todo )
  {
  case wwpc_start:
    {
      WWPC_AUTUMN_PLOUGH         = false;
      WWPC_WAIT_FOR_PLOUGH       = false;
      int d1 = g_date->OldDays() + g_date->DayInYear( 15,8 );
      if (g_date->Date() >= d1)
      {
         // if we are really too late then lie and say we are done
         if (g_date->DayInYear()>g_date->DayInYear(1,10)) {
           // ---FN---
             done=true;
             break;
         }
      }
      if (g_date->Date() >= d1) d1 += 365;
      if (m_farm->IsStockFarmer()) // StockFarmer
      {
        SimpleEvent( d1, wwpc_ferti_s1, false );
      }
      else SimpleEvent( d1, wwpc_ferti_p1, false );
    }
    break;
 
  case wwpc_ferti_p1:
    if ( m_ev->m_lock || m_farm->DoIt( 0 ))
    {
      if (!m_farm->FP_Slurry( m_field, 0.0,
           g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_ferti_p1, true );
        break;
      }
    }
    SimpleEvent( g_date->Date(),wwpc_autumn_plough, false );
    break;
 
  case wwpc_ferti_s1:
    if (!m_farm->FA_Slurry( m_field, 0.0,
           g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
      SimpleEvent( g_date->Date() + 1, wwpc_ferti_s1, true );
      break;
    }
    // This may cause two applications of fertilizer in one day...
    // --FN--
    SimpleEvent( g_date->Date(),wwpc_ferti_s2, false );
    // --FN--
    break;
 
  case wwpc_ferti_s2:
    if ( m_ev->m_lock || m_farm->DoIt( 0 ))
    {
      if (!m_farm->FA_Manure( m_field, 0.0,
           g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_ferti_s2, true );
        break;
      }
    }
    SimpleEvent( g_date->Date(),wwpc_autumn_plough, false );
    break;
 
  case wwpc_autumn_plough:
    if ( m_ev->m_lock || m_farm->DoIt( 100 ))
    {
      if (!m_farm->AutumnPlough( m_field, 0.0,
           g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_autumn_plough, true );
        break;
      }
      else
      {
        WWPC_AUTUMN_PLOUGH=true;
        SimpleEvent( g_date->Date()+1,wwpc_autumn_harrow, false );
        break;
      }
    }
    SimpleEvent( g_date->Date()+1,wwpc_stubble_harrow1, false );
    break;
 
  case wwpc_autumn_harrow:
    if (!m_farm->AutumnHarrow( m_field, 0.0,
           g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
      SimpleEvent( g_date->Date() + 1, wwpc_autumn_harrow, true );
      break;
    }
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,9 ),
               wwpc_autumn_sow, false );
    break;
 
  case wwpc_stubble_harrow1:
    if (!m_farm->StubbleHarrowing( m_field, 0.0,
           g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
      SimpleEvent( g_date->Date() + 1, wwpc_stubble_harrow1, true );
      break;
    }
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,9 ),
               wwpc_autumn_sow, false );
    break;
 
  case wwpc_autumn_sow:
    if (!m_farm->AutumnSow( m_field, 0.0,
           g_date->DayInYear( 20,10 ) - g_date->DayInYear())) {
      SimpleEvent( g_date->Date() + 1, wwpc_autumn_sow, true );
      break;
    }
        // --FN-- Oooo!
    //SimpleEvent( g_date->OldDays() + g_date->Date( ),
    //               wwpc_autumn_roll, false );
        SimpleEvent( g_date->Date() + 1, wwpc_autumn_roll, false );
    break;
 
  case wwpc_autumn_roll:
    if (( m_ev->m_lock || m_farm->DoIt( 0 ))&& (WWPC_AUTUMN_PLOUGH))
    {
      if (!m_farm->AutumnRoll( m_field, 0.0,
           g_date->DayInYear( 27,10 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_autumn_roll, true );
        break;
      }
    }
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,9 ),
                      wwpc_ferti_p2, false );
    break;
 
  case wwpc_ferti_p2:
    if (( m_ev->m_lock || m_farm->DoIt( 100 )) && (!m_farm->IsStockFarmer()))
    {
      if ( m_field->GetVegBiomass()>0)
      //only when there has been a bit of growth
      {
        if (!m_farm->FP_ManganeseSulphate( m_field, 0.0,
           g_date->DayInYear( 30,10 ) - g_date->DayInYear()))
        {
          SimpleEvent( g_date->Date() + 1, wwpc_ferti_p2, true );
          break;
        }
      }
    }
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,9 ),
                      wwpc_herbicide1, false );
    break;
 
  case wwpc_herbicide1:
    if ( m_ev->m_lock || m_farm->DoIt( (int) ( 100*cfg_herbi_app_prop.value() )))
    {
      if (!m_farm->HerbicideTreat( m_field, 0.0,
             g_date->DayInYear( 5,10 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_herbicide1, true );
        break;
      }
    }
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 )+365,
             wwpc_spring_roll, false );
    break;
 
  case wwpc_spring_roll:
    if ( m_ev->m_lock || m_farm->DoIt( 0 ))
    {
      if (!m_farm->SpringRoll( m_field, 0.0,
           g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_spring_roll, true );
        break;
      }
    }
    if (m_farm->IsStockFarmer()) // StockFarmer
    {
      SimpleEvent( g_date->Date() + 1, wwpc_ferti_s3, false );
      SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,4 ),
                    wwpc_ferti_s4, false );
    }
    else
        SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 ),
                   wwpc_ferti_p3, false );
    // All need the next threads
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,4 ),
             wwpc_herbicide2, false );
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4 ),
             wwpc_GR, false );
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,4 ),
             wwpc_fungicide, false );
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
             wwpc_insecticide1, false );
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,4 ),
             wwpc_strigling1, false );
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
             wwpc_water1, false );
    break;
 
  case wwpc_herbicide2:
    if ( m_ev->m_lock || m_farm->DoIt( (int) ( 1*cfg_herbi_app_prop.value() )))
    {
      if (!m_farm->HerbicideTreat( m_field, 0.0,
             g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_herbicide2, true );
        break;
      }
    }
    // End of thread
    break;
 
  case wwpc_GR:
    if ( m_ev->m_lock || m_farm->DoIt( 100 ))
    {
        // --FN--
      if (!m_farm->GrowthRegulator( m_field, 0.0,
             g_date->DayInYear( 10,5 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_GR, true );
        break;
      }
    }
    // End of thread
    break;
 
  case wwpc_fungicide:
    if ( m_ev->m_lock || m_farm->DoIt( 100 ))
    {
      if (!m_farm->FungicideTreat( m_field, 0.0,
             g_date->DayInYear( 10,5 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_fungicide, true );
        break;
      }
    }
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,5 ),
             wwpc_fungicide2, false );
    break;
 
  case wwpc_fungicide2:
    if ( m_ev->m_lock || m_farm->DoIt( 100 ))
    {
      if (!m_farm->FungicideTreat( m_field, 0.0,
             g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_fungicide2, true );
        break;
      }
    }
    // End of thread
    break;
 
  case wwpc_insecticide1:
    if ( m_ev->m_lock || m_farm->DoIt( 100 ))
    {
      if (!m_farm->ProductApplication_DateLimited( m_field, 0.0, g_date->DayInYear( 15,5 ) - g_date->DayInYear(), cfg_pest_product_1_amount.value(), ppp_1)) {
        SimpleEvent( g_date->Date() + 1, wwpc_insecticide1, true );
        break;
      }
        else
        {
          SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
                   wwpc_insecticide2, false );
          break;
        }
    }
    break;
 
  case wwpc_insecticide2:
    if ( m_ev->m_lock || m_farm->DoIt( 100 ))
    {
      if (!m_farm->ProductApplication_DateLimited(m_field, 0.0, g_date->DayInYear(15, 5) - g_date->DayInYear(), cfg_pest_product_1_amount.value(), ppp_1)) {
        SimpleEvent( g_date->Date() + 1, wwpc_insecticide2, true );
        break;
      }
      else
      {
        if ((g_date->Date()+7)<( g_date->OldDays() + g_date->DayInYear( 15,6 )))
          SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,6 ),
             wwpc_insecticide3, false );
        else
            SimpleEvent( g_date->Date()+7, wwpc_insecticide3, false );
        break;
      }
    }
    break;
 
  case wwpc_insecticide3:
    if ( m_ev->m_lock || m_farm->DoIt( 100 ))
    {
      if (!m_farm->ProductApplication_DateLimited(m_field, 0.0, g_date->DayInYear(15, 5) - g_date->DayInYear(), cfg_pest_product_1_amount.value(), ppp_1)) {
        SimpleEvent( g_date->Date() + 1, wwpc_insecticide3, true );
        break;
      }
    }
    // End of thread
    break;
 
  case wwpc_strigling1:
    if ( m_ev->m_lock || m_farm->DoIt( 0 ))
    {
      if (!m_farm->Strigling( m_field, 0.0,
             g_date->DayInYear( 25,4 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_strigling1, true );
        break;
      }
      else
      {
        if ((g_date->Date()+7)<( g_date->OldDays() + g_date->DayInYear( 15,6 )))
              SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4),
                       wwpc_strigling2, false );
        else
            SimpleEvent( g_date->Date()+7,wwpc_strigling2, false );
      }
    }
    break;
 
  case wwpc_strigling2:
      if (!m_farm->Strigling( m_field, 0.0,
             g_date->DayInYear( 5,5 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_strigling2, true );
        break;
    }
    // End of thread
    break;
 
  case wwpc_water1:
    if ( m_ev->m_lock || m_farm->DoIt( 0 )) // **CJT** Soil type 1-4 only
    {
      if (!m_farm->Water( m_field, 0.0,
             g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_water1, true );
        break;
      }
      else
        if ((g_date->Date()+5)<( g_date->OldDays() + g_date->DayInYear( 2,5 )))
            SimpleEvent( g_date->OldDays() + g_date->DayInYear( 2,5 ),
                         wwpc_water2, false );
        else
          SimpleEvent( g_date->Date()+5, wwpc_water2, false );
    }
    break;
 
  case wwpc_water2:
    if (!m_farm->Water( m_field, 0.0,
           g_date->DayInYear( 1,6 ) - g_date->DayInYear())) {
      SimpleEvent( g_date->Date() + 1, wwpc_water2, true );
      break;
    }
    // End of thread
    break;
 
  case wwpc_ferti_p3:
    if (!m_farm->FP_NPK( m_field, 0.0,
         g_date->DayInYear( 15,4 ) - g_date->DayInYear())) {
      SimpleEvent( g_date->Date() + 1, wwpc_ferti_p3, true );
      break;
    }
 
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4 ),
                   wwpc_ferti_p4, false );
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
                   wwpc_ferti_p5, false );
    break;
 
  case wwpc_ferti_p4:
    if ( m_ev->m_lock || m_farm->DoIt( 100 ))
    {
      if (!m_farm->FP_NPK( m_field, 0.0,
             g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_ferti_p4, true );
        break;
      }
    }
 
    // The Main thread
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,8 ),
                 wwpc_harvest, false );
    break;
 
   case wwpc_ferti_p5:
    if ( m_ev->m_lock || m_farm->DoIt( 0 ))
    {
      if (!m_farm->FP_ManganeseSulphate( m_field, 0.0,
             g_date->DayInYear( 5,5 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_ferti_p5, true );
        break;
      }
    }
    break;
 
  case wwpc_ferti_s3:
    if (!m_farm->FA_Slurry(m_field, 0.0,
         g_date->DayInYear( 30,5 ) - g_date->DayInYear())) {
      SimpleEvent( g_date->Date() + 1, wwpc_ferti_s3, true );
      break;
    }
    // The Main thread
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,8 ),
                 wwpc_harvest, false );
    break;
 
  case wwpc_ferti_s4:
    if ( m_ev->m_lock || m_farm->DoIt( 100 ))
    {
      if (!m_farm->FA_NPK( m_field, 0.0,
           g_date->DayInYear( 20,4 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_ferti_s4, true );
        break;
      }
      SimpleEvent( g_date->OldDays() + g_date->DayInYear( 21,4 ),
                   wwpc_ferti_s5, false );
    }
   break;
 
  case wwpc_ferti_s5:
    if ( m_ev->m_lock || m_farm->DoIt( 0 ))
    {
      if (!m_farm->FA_NPK( m_field, 0.0,
           g_date->DayInYear( 1,5 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_ferti_s5, true );
        break;
      }
    }
    break;
 
  case wwpc_harvest:
    if (!m_farm->Harvest( m_field, 0.0,
           g_date->DayInYear( 20,8 ) - g_date->DayInYear()))
    {
        SimpleEvent( g_date->Date() + 1, wwpc_harvest, true );
        break;
    }
    SimpleEvent( g_date->Date(), wwpc_straw_chopping, false );
    break;
 
  case wwpc_straw_chopping:
    if ( m_ev->m_lock || m_farm->DoIt( 0 ))
    {
      if (!m_farm->StrawChopping( m_field, 0.0,
           g_date->DayInYear( 20,8 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_straw_chopping, true );
        break;
      }
      else
      {
        if ((g_date->Date()+5)<( g_date->OldDays() + g_date->DayInYear( 2,5 )))
                 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,8 ),
                   wwpc_stubble_harrow2, false );
        else
          SimpleEvent( g_date->Date()+1, wwpc_stubble_harrow2, false );
      }
    } else {
        SimpleEvent( g_date->Date()+1, wwpc_hay_turning, false );
    }
   break;
 
  case wwpc_hay_turning:
    if ( m_ev->m_lock || m_farm->DoIt( 0 ))
    {
      if (!m_farm->HayTurning( m_field, 0.0,
           g_date->DayInYear( 20,8 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_hay_turning, true );
        break;
      }
    }
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,8 ),
                 wwpc_hay_baling, false );
    break;
 
  case wwpc_hay_baling:
    if (!m_farm->HayBailing( m_field, 0.0,
       g_date->DayInYear( 25,8 ) - g_date->DayInYear())) {
      SimpleEvent( g_date->Date() + 1, wwpc_hay_baling, true );
      break;
    }
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,8 ),
                   wwpc_stubble_harrow2, false );
    break;
 
  case wwpc_stubble_harrow2:
    if ( m_ev->m_lock || m_farm->DoIt( 100 ))
    {
      if (!m_farm->StubbleHarrowing( m_field, 0.0,
           g_date->DayInYear( 15,9 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_stubble_harrow2, true );
        break;
      }
    }
    SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,8 ),
                   wwpc_grubning, false );
    break;
 
  case wwpc_grubning:
    if ( m_ev->m_lock || m_farm->DoIt( 0 ))
    {
      if (!m_farm->DeepPlough( m_field, 0.0,
           g_date->DayInYear( 15,10 ) - g_date->DayInYear())) {
        SimpleEvent( g_date->Date() + 1, wwpc_grubning, true );
        break;
      }
    }
    done=true;
    // END OF MAIN THREAD
    break;
 
  default:
    g_msg->Warn( WARN_BUG, "WheatPControl::Do(): "
         "Unknown event type! ", "" );
    exit( 1 );
  }
  return done;
}

References Farm::AutumnHarrow(), Farm::AutumnPlough(), Farm::AutumnRoll(), Farm::AutumnSow(), cfg_herbi_app_prop, cfg_pest_product_1_amount, Farm::DeepPlough(), Farm::DoIt(), Farm::FA_Manure(), Farm::FA_NPK(), Farm::FA_Slurry(), Farm::FP_ManganeseSulphate(), Farm::FP_NPK(), Farm::FP_Slurry(), Farm::FungicideTreat(), Farm::GrowthRegulator(), Farm::Harvest(), Farm::HayBailing(), Farm::HayTurning(), Farm::HerbicideTreat(), Farm::IsStockFarmer(), Crop::m_ev, Crop::m_farm, Crop::m_field, FarmEvent::m_lock, FarmEvent::m_todo, ppp_1, Farm::ProductApplication_DateLimited(), Crop::SimpleEvent(), Farm::SpringRoll(), Farm::StrawChopping(), Farm::Strigling(), Farm::StubbleHarrowing(), Farm::Water(), wwpc_autumn_harrow, WWPC_AUTUMN_PLOUGH, wwpc_autumn_plough, wwpc_autumn_roll, wwpc_autumn_sow, wwpc_ferti_p1, wwpc_ferti_p2, wwpc_ferti_p3, wwpc_ferti_p4, wwpc_ferti_p5, wwpc_ferti_s1, wwpc_ferti_s2, wwpc_ferti_s3, wwpc_ferti_s4, wwpc_ferti_s5, wwpc_fungicide, wwpc_fungicide2, wwpc_GR, wwpc_grubning, wwpc_harvest, wwpc_hay_baling, wwpc_hay_turning, wwpc_herbicide1, wwpc_herbicide2, wwpc_insecticide1, wwpc_insecticide2, wwpc_insecticide3, wwpc_spring_roll, wwpc_start, wwpc_straw_chopping, wwpc_strigling1, wwpc_strigling2, wwpc_stubble_harrow1, wwpc_stubble_harrow2, WWPC_WAIT_FOR_PLOUGH, wwpc_water1, and wwpc_water2.

---

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

• C:/Repo/ALMaSS_all/Landscape/cropprogs/WWheatPControl.h
• C:/Repo/ALMaSS_all/Landscape/cropprogs/WWheatPControl.cpp