28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/WinterWheatStriglingCulm.h"
61 m_field->SetMDates(0,0,g_date->DayInYear(20,8));
64 m_field->SetMDates(1,0,g_date->DayInYear(20,8));
66 m_field->SetMDates(1,1,g_date->DayInYear(20,8));
67 m_field->SetMDates(0,2,g_date->DayInYear(5,8));
68 m_field->SetMDates(1,2,g_date->DayInYear(25,8));
69 m_field->SetMDates(0,3,g_date->DayInYear(10,8));
70 m_field->SetMDates(1,3,g_date->DayInYear(15,9));
71 m_field->SetMDates(0,4,g_date->DayInYear(15,8));
72 m_field->SetMDates(1,4,g_date->DayInYear(15,10));
84 g_msg->Warn( WARN_BUG,
"WinterWheat::Do(): "
85 "Harvest too late for the next crop to start!!!",
"" );
90 for (
int i=0; i<noDates; i++) {
100 if (toggle)
for (
int i=0; i<10; i++)
m_field->SetMConstants(i,0);
110 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
111 if (g_date->Date() < d1 ) {
113 printf (
"Poly: %d\n",
m_field->GetPoly());
114 g_msg->Warn( WARN_BUG,
"WinterWheatStrigling::Do(): "
115 "Crop start attempt between 1st Jan & 1st July",
"" );
121 if (g_date->Date() > d1)
124 g_msg->Warn( WARN_BUG,
"WinterWheatStrigling::Do(): "
125 "Crop start attempt after last possible start date",
"" );
133 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
140 d1 = g_date->OldDays() + g_date->DayInYear( 21,8 );
154 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
164 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
178 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
190 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
206 g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
210 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,9 ),
216 g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
220 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,9 ),
226 g_date->DayInYear( 20,10 ) - g_date->DayInYear())) {
237 g_date->DayInYear( 27,10 ) - g_date->DayInYear())) {
242 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,9 ),
249 if (
m_field->GetVegBiomass()>0)
253 g_date->DayInYear( 30,10 ) - g_date->DayInYear()))
260 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,10 ),
266 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
270 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 )+365,
278 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
286 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,4 ),
290 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 ),
294 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,4),
297 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4 ),
299 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,4 ),
301 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
304 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4 ),
307 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
313 g_date->DayInYear( 15,4 ) - g_date->DayInYear())) {
325 g_date->DayInYear( 10,5 ) - g_date->DayInYear())) {
337 g_date->DayInYear( 10,5 ) - g_date->DayInYear())) {
342 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,5 ),
350 g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
362 g_date->DayInYear( 15,5 ) - g_date->DayInYear()))
369 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
380 g_date->DayInYear( 10,6 ) - g_date->DayInYear())) {
386 if ((g_date->Date()+7)<( g_date->OldDays() + g_date->DayInYear( 15,6 )))
387 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,6 ),
400 g_date->DayInYear( 30,6 ) - g_date->DayInYear())) {
410 g_date->DayInYear( 25,4 ) - g_date->DayInYear())) {
416 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,5),
424 g_date->DayInYear( 5,5 ) - g_date->DayInYear())) {
436 g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
441 if ((g_date->Date()+5)<( g_date->OldDays() + g_date->DayInYear( 2,5 )))
442 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 2,5 ),
451 g_date->DayInYear( 1,6 ) - g_date->DayInYear())) {
460 g_date->DayInYear( 15,4 ) - g_date->DayInYear())) {
465 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4 ),
467 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
475 g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
482 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,8 ),
490 g_date->DayInYear( 5,5 ) - g_date->DayInYear())) {
499 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
504 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,8 ),
512 g_date->DayInYear( 20,4 ) - g_date->DayInYear())) {
516 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 21,4 ),
525 g_date->DayInYear( 1,5 ) - g_date->DayInYear())) {
534 g_date->DayInYear( 20,8 ) - g_date->DayInYear()))
546 m_field->GetMDates(1,0) - g_date->DayInYear())) {
565 m_field->GetMDates(1,1) - g_date->DayInYear())) {
576 m_field->GetMDates(1,2) - g_date->DayInYear())) {
588 m_field->GetMDates(1,3) - g_date->DayInYear())) {
601 m_field->GetMDates(1,4) - g_date->DayInYear())) {
611 g_msg->Warn( WARN_BUG,
"WinterWheat::Do(): "
612 "Unknown event type! ",
"" );