28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/SpringBarleyCloverGrassStrigling.h"
59 m_field->SetMDates(0,0,g_date->DayInYear(1,8));
61 m_field->SetMDates(1,0,g_date->DayInYear(25,8));
62 m_field->SetMDates(0,1,g_date->DayInYear(5,8));
63 m_field->SetMDates(1,1,g_date->DayInYear(30,8));
64 m_field->SetMDates(0,2,g_date->DayInYear(1,9));
65 m_field->SetMDates(1,2,g_date->DayInYear(15,10));
73 g_msg->Warn( WARN_BUG,
"SpringBarleyCloverGrass::Do(): "
74 "Harvest too late for the next crop to start!!!",
"" );
78 for (
int i=0; i<noDates; i++)
90 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
91 if (g_date->Date() < d1)
94 g_msg->Warn( WARN_BUG,
"SpringBarleyCloverGrass::Do(): "
95 "Crop start attempt between 1st Jan & 1st July",
"" );
101 if (g_date->Date() > d1)
104 g_msg->Warn( WARN_BUG,
"SpringBarleyCloverGrass::Do(): "
105 "Crop start attempt after last possible start date",
"" );
113 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,3 ),
120 d1 = g_date->OldDays() + g_date->DayInYear( 1, 11 );
121 if (g_date->Date() >= d1) d1 += 365;
130 g_date->DayInYear( 30,11 ) - g_date->DayInYear())) {
137 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,3 )+365,
139 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,3 )+365,
147 g_date->DayInYear( 15, 4 ) - g_date->DayInYear())) {
154 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,3 ),
162 g_date->DayInYear( 15, 4 ) - g_date->DayInYear()))
179 g_date->DayInYear( 10, 4 ) - g_date->DayInYear())) {
184 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 ),
190 g_date->DayInYear( 10,4 ) - g_date->DayInYear())) {
201 g_date->DayInYear( 10, 4 ) - g_date->DayInYear()))
207 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 ),
213 g_date->DayInYear( 20,4 ) - g_date->DayInYear())) {
224 g_date->DayInYear( 21,4 ) - g_date->DayInYear())) {
229 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,3 ),
231 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 ),
239 g_date->DayInYear( 20,4 ) - g_date->DayInYear())) {
250 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
256 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,5 ),
258 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,5 ),
260 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
270 g_date->DayInYear( 25,5 ) - g_date->DayInYear())) {
282 g_date->DayInYear( 15,6 ) - g_date->DayInYear()))
288 if (g_date->DayInYear()+5<g_date->DayInYear( 16,6 ))
289 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 16,6 ),
300 g_date->DayInYear( 1,7 ) - g_date->DayInYear()))
314 g_date->DayInYear( 25,5 ) - g_date->DayInYear())) {
324 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,5 ),
333 g_date->DayInYear( 10,6 ) - g_date->DayInYear())) {
339 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,8 ),
345 m_field->GetMDates(1,0) - g_date->DayInYear())) {
355 m_field->GetMDates(1,1) - g_date->DayInYear()))
362 if (
m_field->GetMDates(1,2)-
m_field->GetMDates(0,2)<14) done=
true;
374 m_field->GetMDates(1,2) - g_date->DayInYear()))
384 m_field->GetMDates(1,2) - g_date->DayInYear(),
m_field->GetMDates(1,2)))
394 g_msg->Warn( WARN_BUG,
"SpringBarleyCloverGrass::Do(): "
395 "Unknown event type! ",
"" );