28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/WinterBarleyStrigling.h"
53 m_field->SetMDates(0,0,g_date->DayInYear(20,7));
55 m_field->SetMDates(1,0,g_date->DayInYear(5,8));
56 m_field->SetMDates(0,1,g_date->DayInYear(25,7));
57 m_field->SetMDates(1,1,g_date->DayInYear(10,8));
58 m_field->SetMDates(0,2,g_date->DayInYear(20,7));
59 m_field->SetMDates(1,2,g_date->DayInYear(5,8));
67 g_msg->Warn( WARN_BUG,
"WinterBarley::Do(): "
68 "Harvest too late for the next crop to start!!!",
"" );
72 for (
int i=0; i<noDates; i++)
85 int today=g_date->Date();
87 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
91 g_msg->Warn( WARN_BUG,
"WinterBarley::Do(): "
92 "Crop start attempt between 1st Jan & 1st July",
"" );
101 g_msg->Warn( WARN_BUG,
"WinterBarley::Do(): "
102 "Crop start attempt after last possible start date",
"" );
110 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,7 )
117 if ( g_date->Date() > d1 ) {
142 g_date->DayInYear( 5, 9 ) -
143 g_date->DayInYear())) {
154 g_date->DayInYear( 10, 9 ) -
155 g_date->DayInYear())) {
167 g_date->DayInYear( 5, 9 ) -
168 g_date->DayInYear())) {
178 g_date->DayInYear( 5, 9 ) -
179 g_date->DayInYear())) {
188 g_date->DayInYear( 5, 9 ) -
189 g_date->DayInYear())) {
194 int d1 = g_date->Date();
195 if ( d1 < g_date->OldDays() + g_date->DayInYear( 1, 9 )) {
196 d1 = g_date->OldDays() + g_date->DayInYear( 1, 9 );
204 g_date->DayInYear( 15,9 ) -
205 g_date->DayInYear())) {
210 int d1 = g_date->Date() + 10;
211 if ( d1 < g_date->OldDays() + g_date->DayInYear( 15, 9 )) {
212 d1 = g_date->OldDays() + g_date->DayInYear( 15, 9 );
220 g_date->DayInYear( 10,10 ) -
221 g_date->DayInYear())) {
226 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ) + 365,
228 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,4 ) + 365,
230 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ) + 365,
233 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 16,9 ),
236 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,4 ) + 365,
244 g_date->DayInYear( 30,10 ) -
245 g_date->DayInYear())) {
250 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ) + 365,
257 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,4 ) + 365,
259 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ) + 365,
265 g_date->DayInYear( 5,5 ) -
266 g_date->DayInYear())) {
281 g_date->DayInYear( 1,5 ) -
282 g_date->DayInYear())) {
286 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 2,5 ),
293 g_date->DayInYear( 20,5 ) -
294 g_date->DayInYear())) {
311 g_date->DayInYear( 15,5 ) -
312 g_date->DayInYear())) {
329 g_date->DayInYear( 30,4 ) -
330 g_date->DayInYear())) {
335 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
342 g_date->DayInYear( 15,5 ) -
343 g_date->DayInYear())) {
360 g_date->DayInYear( 25,5 ) -
361 g_date->DayInYear())) {
379 g_date->DayInYear( 15,5 ) -
380 g_date->DayInYear())) {
408 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,5 ),
410 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
412 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,5 ),
414 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,5 ),
427 g_date->DayInYear( 30,5 ) -
428 g_date->DayInYear())) {
437 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,7 ),
450 g_date->DayInYear( 31,5 ) -
451 g_date->DayInYear())) {
460 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,7 ),
476 g_date->DayInYear( 15,6 ) -
477 g_date->DayInYear())) {
486 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,7 ),
499 g_date->DayInYear( 1,6 ) -
500 g_date->DayInYear())) {
509 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,7 ),
517 g_date->DayInYear())) {
553 g_date->DayInYear())) {
565 g_date->DayInYear())) {
570 int d1 = g_date->Date();
571 if ( d1 < g_date->OldDays() +
m_field->GetMDates(0,1)) {
572 d1 = g_date->OldDays() +
m_field->GetMDates(0,1);
582 g_date->DayInYear())) {
591 g_msg->Warn( WARN_BUG,
"WinterBarley::Do(): "
592 "Unknown event type! ",
"" );