28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/WinterRyeStrigling.h"
54 m_field->SetMDates(0,0,g_date->DayInYear(15,8));
56 m_field->SetMDates(1,0,g_date->DayInYear(15,8));
57 m_field->SetMDates(0,1,g_date->DayInYear(10,8));
58 m_field->SetMDates(1,1,g_date->DayInYear(1,9));
59 m_field->SetMDates(0,2,g_date->DayInYear(3,8));
60 m_field->SetMDates(1,2,g_date->DayInYear(25,8));
61 m_field->SetMDates(0,3,g_date->DayInYear(3,8));
62 m_field->SetMDates(1,3,g_date->DayInYear(25,8));
70 g_msg->Warn( WARN_BUG,
"WinterRye::Do(): "
71 "Harvest too late for the next crop to start!!!",
"" );
76 for (
int i=0; i<noDates; i++) {
86 if (toggle)
for (
int i=0; i<10; i++)
m_field->SetMConstants(i,0);
96 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
97 if (g_date->Date() < d1)
100 g_msg->Warn( WARN_BUG,
"WinterRyeStrigling::Do(): "
101 "Crop start attempt between 1st Jan & 1st July",
"" );
107 if (g_date->Date() > d1)
110 g_msg->Warn( WARN_BUG,
"WinterRyeStrigling::Do(): "
111 "Crop start attempt after last possible start date",
"" );
119 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,8 ),
130 d1 = g_date->OldDays() + g_date->DayInYear( 10,9 );
134 d1 = g_date->OldDays() + g_date->DayInYear( 15,9 );
136 if ( g_date->Date() > d1 )
155 g_date->DayInYear( 10, 10 ) -
156 g_date->DayInYear())) {
164 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,9 ),
172 g_date->DayInYear( 10, 10 ) -
173 g_date->DayInYear())) {
181 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,9 ),
188 g_date->DayInYear( 15, 10 ) -
189 g_date->DayInYear())) {
198 g_date->DayInYear( 15, 10 ) -
199 g_date->DayInYear())) {
203 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,10 ),
209 g_date->DayInYear( 1, 11 ) -
210 g_date->DayInYear())) {
220 g_date->DayInYear( 1, 11 ) -
221 g_date->DayInYear())) {
228 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ) + 365,
231 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 2,10 ),
240 g_date->DayInYear( 25, 10 ) -
241 g_date->DayInYear())) {
247 d1 = g_date->Date() + 7;
248 if ( d1 < g_date->OldDays() + g_date->DayInYear( 5,10 )) {
249 d1 = g_date->OldDays() + g_date->DayInYear( 5,10 );
258 g_date->DayInYear( 2, 11 ) -
259 g_date->DayInYear())) {
270 g_date->DayInYear( 30, 10 ) -
271 g_date->DayInYear())) {
276 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ) + 365,
279 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,3 ) + 365,
285 g_date->DayInYear( 5, 5 ) -
286 g_date->DayInYear())) {
295 g_date->DayInYear( 30, 4 ) -
296 g_date->DayInYear())) {
300 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
302 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
309 g_date->DayInYear( 30, 4 ) -
310 g_date->DayInYear())) {
321 g_date->DayInYear( 30, 4 ) -
322 g_date->DayInYear())) {
328 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
335 g_date->DayInYear( 15, 4 ) -
336 g_date->DayInYear())) {
347 g_date->DayInYear( 25,4 ) -
348 g_date->DayInYear())) {
353 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,4 ),
360 g_date->DayInYear( 2,5 ) -
361 g_date->DayInYear())) {
367 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 11,5 ),
371 d1 = g_date->OldDays() + g_date->DayInYear( 25,4 );
372 if ( d1 <= g_date->Date()) {
373 d1 = g_date->Date() + 1;
375 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,5 ),
382 g_date->DayInYear( 25,5 ) -
383 g_date->DayInYear())) {
393 g_date->DayInYear( 30,5 ) -
394 g_date->DayInYear())) {
399 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,5 ),
406 g_date->DayInYear( 10,6 ) -
407 g_date->DayInYear())) {
413 d1 = g_date->OldDays() + g_date->DayInYear( 1,6 );
414 if ( d1 <= g_date->Date()) {
415 d1 = g_date->Date() + 1;
425 g_date->DayInYear( 15,6 ) -
426 g_date->DayInYear())) {
431 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,8 ),
437 g_date->DayInYear( 15,8 ) -
438 g_date->DayInYear())) {
449 g_date->DayInYear())) {
468 g_date->DayInYear())) {
480 g_date->DayInYear())) {
493 g_date->DayInYear())) {
503 g_msg->Warn( WARN_BUG,
"WinterRye::Do(): "
504 "Unknown event type! ",
"" );