28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/WinterWheatStrigling.h"
60 m_field->SetMDates(0,0,g_date->DayInYear(20,8));
63 m_field->SetMDates(1,0,g_date->DayInYear(20,8));
65 m_field->SetMDates(1,1,g_date->DayInYear(20,8));
66 m_field->SetMDates(0,2,g_date->DayInYear(5,8));
67 m_field->SetMDates(1,2,g_date->DayInYear(25,8));
68 m_field->SetMDates(0,3,g_date->DayInYear(10,8));
69 m_field->SetMDates(1,3,g_date->DayInYear(15,9));
70 m_field->SetMDates(0,4,g_date->DayInYear(15,8));
71 m_field->SetMDates(1,4,g_date->DayInYear(15,10));
83 g_msg->Warn( WARN_BUG,
"WinterWheat::Do(): "
84 "Harvest too late for the next crop to start!!!",
"" );
89 for (
int i=0; i<noDates; i++) {
99 if (toggle)
for (
int i=0; i<10; i++)
m_field->SetMConstants(i,0);
109 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
110 if (g_date->Date() < d1 ) {
112 printf (
"Poly: %d\n",
m_field->GetPoly());
113 g_msg->Warn( WARN_BUG,
"WinterWheatStrigling::Do(): "
114 "Crop start attempt between 1st Jan & 1st July",
"" );
120 if (g_date->Date() > d1)
123 g_msg->Warn( WARN_BUG,
"WinterWheatStrigling::Do(): "
124 "Crop start attempt after last possible start date",
"" );
132 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
139 d1 = g_date->OldDays() + g_date->DayInYear( 21,8 );
153 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
163 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
177 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
189 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
205 g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
209 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,9 ),
215 g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
219 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,9 ),
225 g_date->DayInYear( 20,10 ) - g_date->DayInYear())) {
239 g_date->DayInYear( 27,10 ) - g_date->DayInYear())) {
244 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,9 ),
251 if (
m_field->GetVegBiomass()>0)
255 g_date->DayInYear( 30,10 ) - g_date->DayInYear()))
262 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,9 ),
270 g_date->DayInYear( 5,10 ) - g_date->DayInYear())) {
275 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 )+365,
283 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
291 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,4 ),
295 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 ),
298 SimpleEvent( g_date->OldDays() + g_date->DayInYear( )+10,
300 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4 ),
302 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,4 ),
304 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
306 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,4 ),
308 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
316 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
329 g_date->DayInYear( 10,5 ) - g_date->DayInYear())) {
341 g_date->DayInYear( 10,5 ) - g_date->DayInYear())) {
346 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,5 ),
354 g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
366 g_date->DayInYear( 15,5 ) - g_date->DayInYear()))
373 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
384 g_date->DayInYear( 10,6 ) - g_date->DayInYear())) {
390 if ((g_date->Date()+7)<( g_date->OldDays() + g_date->DayInYear( 15,6 )))
391 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,6 ),
404 g_date->DayInYear( 30,6 ) - g_date->DayInYear())) {
416 g_date->DayInYear( 25,4 ) - g_date->DayInYear())) {
422 if ((g_date->Date()+7)<( g_date->OldDays() + g_date->DayInYear( 15,6 )))
423 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4),
433 g_date->DayInYear( 5,5 ) - g_date->DayInYear())) {
444 g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
449 if ((g_date->Date()+5)<( g_date->OldDays() + g_date->DayInYear( 2,5 )))
450 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 2,5 ),
459 g_date->DayInYear( 1,6 ) - g_date->DayInYear())) {
468 g_date->DayInYear( 15,4 ) - g_date->DayInYear())) {
473 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4 ),
475 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
483 g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
490 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,8 ),
498 g_date->DayInYear( 5,5 ) - g_date->DayInYear())) {
507 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
512 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,8 ),
520 g_date->DayInYear( 20,4 ) - g_date->DayInYear())) {
524 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 21,4 ),
533 g_date->DayInYear( 1,5 ) - g_date->DayInYear())) {
542 g_date->DayInYear( 20,8 ) - g_date->DayInYear()))
554 m_field->GetMDates(1,0) - g_date->DayInYear())) {
573 m_field->GetMDates(1,1) - g_date->DayInYear())) {
584 m_field->GetMDates(1,2) - g_date->DayInYear())) {
596 m_field->GetMDates(1,3) - g_date->DayInYear())) {
609 m_field->GetMDates(1,4) - g_date->DayInYear())) {
619 g_msg->Warn( WARN_BUG,
"WinterWheat::Do(): "
620 "Unknown event type! ",
"" );