28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/OWinterWheatUndersown.h"
51 m_field->SetMDates(0,0,g_date->DayInYear(1,8));
53 m_field->SetMDates(1,0,g_date->DayInYear(20,8));
54 m_field->SetMDates(0,1,g_date->DayInYear(5,8));
55 m_field->SetMDates(1,1,g_date->DayInYear(5,9));
56 m_field->SetMDates(0,2,g_date->DayInYear(25,8));
57 m_field->SetMDates(1,2,g_date->DayInYear(25,8));
58 m_field->SetMDates(0,3,g_date->DayInYear(25,8));
59 m_field->SetMDates(1,3,g_date->DayInYear(30,8));
60 m_field->SetMDates(0,4,g_date->DayInYear(5,8));
61 m_field->SetMDates(1,4,g_date->DayInYear(5,8));
62 m_field->SetMDates(0,5,g_date->DayInYear(15,9));
63 m_field->SetMDates(1,5,g_date->DayInYear(15,9));
64 m_field->SetMDates(0,6,g_date->DayInYear(1,8));
65 m_field->SetMDates(1,6,g_date->DayInYear(30,8));
73 g_msg->Warn( WARN_BUG,
"OWinterWheatUndersown::Do(): "
74 "Harvest too late for the next crop to start!!!",
"" );
78 for (
int i=0; i<noDates; i++)
91 int today=g_date->Date();
93 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
97 g_msg->Warn( WARN_BUG,
"OWinterWheatUndersown::Do(): "
98 "Crop start attempt between 1st Jan & 1st July",
"" );
107 g_msg->Warn( WARN_BUG,
"OWinterWheatUndersown::Do(): "
108 "Crop start attempt after last possible start date",
"" );
115 SimpleEvent( g_date->OldDays() + g_date->DayInYear(28,8),
123 if ( g_date->Date() > d1 ) {
141 g_date->DayInYear( 30,9 ) - g_date->DayInYear())) {
153 g_date->DayInYear( 30,9 ) - g_date->DayInYear())) {
163 g_date->DayInYear( 30,9 ) - g_date->DayInYear())) {
172 g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
176 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,9 ),
182 g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
187 long newdate1 = g_date->OldDays() + g_date->DayInYear( 10,9 );
188 long newdate2 = g_date->Date() + 10;
189 if ( newdate2 > newdate1 )
197 g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
201 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 24,9 ),
211 g_date->DayInYear( 24,10 ) - g_date->DayInYear())) {
217 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 )+365,
223 g_date->DayInYear( 15,4 ) - g_date->DayInYear())) {
227 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
235 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
250 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
259 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
270 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
277 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
281 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,8 ),
289 g_date->DayInYear( 30,5 ) - g_date->DayInYear())) {
294 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,8 ),
300 m_field->GetMDates(1,0) - g_date->DayInYear())) {
312 m_field->GetMDates(1,0) - g_date->DayInYear()))
320 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,8 ),
327 int d1=g_date->Date() + 3;
337 m_field->GetMDates(1,2) - g_date->DayInYear())) {
343 long d1 = g_date->OldDays() + g_date->DayInYear( 7,8 );
344 long d2 = g_date->Date() + 3;
345 if ( d2 > d1 ) d1 = d2;
353 m_field->GetMDates(1,3) - g_date->DayInYear())) {
370 m_field->GetMDates(1,1) - g_date->DayInYear())) {
374 int d1=g_date->Date()+10;
385 m_field->GetMDates(1,5) - g_date->DayInYear()))
399 m_field->GetMDates(1,6) - g_date->DayInYear()))
419 g_msg->Warn( WARN_BUG,
"OWinterWheatUndersown::Do(): "
420 "Unknown event type! ",
"" );