28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/OBarleyPeaCloverGrass.h"
50 m_field->SetMDates(0,0,g_date->DayInYear(25,7));
52 m_field->SetMDates(1,0,g_date->DayInYear(25,8));
53 m_field->SetMDates(0,1,g_date->DayInYear(10,10));
54 m_field->SetMDates(1,1,g_date->DayInYear(10,10));
55 m_field->SetMDates(0,2,g_date->DayInYear(25,7));
56 m_field->SetMDates(1,2,g_date->DayInYear(1,8));
64 g_msg->Warn( WARN_BUG,
"OBarleyPeaCloverGrass::Do(): "
65 "Harvest too late for the next crop to start!!!",
"" );
69 for (
int i=0; i<noDates; i++)
81 int today=g_date->Date();
87 g_msg->Warn( WARN_BUG,
"OBarleyPeaCloverGrass::Do(): "
88 "Crop start attempt after last possible start date",
"" );
100 g_date->DayInYear( 10, 4 ) - g_date->DayInYear()))
113 g_date->DayInYear( 10, 4 ) - g_date->DayInYear())) {
118 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15, 3 ),
124 g_date->DayInYear( 10, 4 ) - g_date->DayInYear())) {
133 g_date->DayInYear( 10, 4 ) - g_date->DayInYear())) {
142 g_date->DayInYear( 10, 4 ) - g_date->DayInYear())) {
146 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20, 3 ),
152 g_date->DayInYear( 12, 4 ) - g_date->DayInYear())) {
156 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,3 ),
162 g_date->DayInYear( 12, 4 ) - g_date->DayInYear())) {
166 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,6 ),
174 g_date->DayInYear( 15,6 ) - g_date->DayInYear())) {
179 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 16,6 ),
184 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,7 ),
190 g_date->DayInYear( 30,6 ) - g_date->DayInYear())) {
202 m_field->GetMDates(1,2) - g_date->DayInYear())) {
206 m_field->SetGrowthPhase( harvest1 );
209 if ((g_date->DayInYear( )+21)>=
m_field->GetMDates(0,1))
211 else d1=g_date->DayInYear( )+21;
222 m_field->GetMDates(1,0) - g_date->DayInYear())) {
228 if ((g_date->DayInYear( )+21)>=
m_field->GetMDates(0,1))
230 else d1=g_date->DayInYear( )+21;
239 m_field->GetMDates(0,1) - g_date->DayInYear())) {
246 m_field->GetMDates(0,1) - g_date->DayInYear())) {
263 m_field->GetMDates(1,1) - g_date->DayInYear(),
m_field->GetMDates(1,1)))
271 m_field->GetMDates(1,1) - g_date->DayInYear(),
m_field->GetMDates(1,1)))
282 g_msg->Warn( WARN_BUG,
"OBarleyPeaCloverGrass::Do(): "
283 "Unknown event type! ",
"" );