28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/WinterRye.h"
53 m_field->SetMDates(0,0,g_date->DayInYear(15,8));
55 m_field->SetMDates(1,0,g_date->DayInYear(15,8));
56 m_field->SetMDates(0,1,g_date->DayInYear(10,8));
57 m_field->SetMDates(1,1,g_date->DayInYear(1,9));
58 m_field->SetMDates(0,2,g_date->DayInYear(3,8));
59 m_field->SetMDates(1,2,g_date->DayInYear(25,8));
60 m_field->SetMDates(0,3,g_date->DayInYear(3,8));
61 m_field->SetMDates(1,3,g_date->DayInYear(25,8));
74 g_msg->Warn( WARN_BUG,
"WinterRye::Do(): "
75 "Harvest too late for the next crop to start!!!",
"" );
79 for (
int i=0; i<noDates; i++) {
97 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
98 if (g_date->Date() < d1)
101 g_msg->Warn( WARN_BUG,
"WinterRye::Do(): "
102 "Crop start attempt between 1st Jan & 1st July",
"" );
108 if (g_date->Date() > d1)
111 g_msg->Warn( WARN_BUG,
"WinterRye::Do(): "
112 "Crop start attempt after last possible start date",
"" );
120 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,8 ),
133 d1 = g_date->OldDays() + g_date->DayInYear( 10,9 );
137 d1 = g_date->OldDays() + g_date->DayInYear( 15,9 );
139 if ( g_date->Date() > d1 )
158 g_date->DayInYear( 11, 10 ) -
159 g_date->DayInYear())) {
167 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,9 ),
175 g_date->DayInYear( 10, 10 ) -
176 g_date->DayInYear())) {
184 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,9 ),
191 g_date->DayInYear( 15, 10 ) -
192 g_date->DayInYear())) {
201 g_date->DayInYear( 15, 10 ) -
202 g_date->DayInYear())) {
206 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,10 ),
212 g_date->DayInYear( 1, 11 ) -
213 g_date->DayInYear())) {
223 g_date->DayInYear( 1, 11 ) -
224 g_date->DayInYear())) {
231 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ) + 365,
234 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 2,10 ),
242 g_date->DayInYear( 30, 10 ) -
243 g_date->DayInYear())) {
248 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ) + 365,
251 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,3 ) + 365,
257 g_date->DayInYear( 5, 5 ) -
258 g_date->DayInYear())) {
267 g_date->DayInYear( 30, 4 ) -
268 g_date->DayInYear())) {
272 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
279 g_date->DayInYear( 30, 4 ) -
280 g_date->DayInYear())) {
291 g_date->DayInYear( 30, 4 ) -
292 g_date->DayInYear())) {
303 g_date->DayInYear( 25,4 ) -
304 g_date->DayInYear())) {
309 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,4 ),
316 g_date->DayInYear( 1,5 ) -
317 g_date->DayInYear())) {
322 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,4 ),
329 g_date->DayInYear( 2,5 ) -
330 g_date->DayInYear())) {
336 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 11,5 ),
340 int d1 = g_date->OldDays() + g_date->DayInYear( 25,4 );
341 if ( d1 <= g_date->Date()) {
342 d1 = g_date->Date() + 1;
350 g_date->DayInYear( 25,5 ) -
351 g_date->DayInYear())) {
364 Field * pf = dynamic_cast<Field*>(
m_field);
365 pf->Add_missed_herb_app();
366 if(
m_farm->
DoIt(69)) pf->Add_missed_herb_app();
376 SimpleEvent( g_date->OldDays() + g_date->DayInYear() + 14,
378 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,5 ),
397 Field * pf = dynamic_cast<Field*>(
m_field);
398 pf->Add_missed_fi_app();
407 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,5 ),
417 Field * pf = dynamic_cast<Field*>(
m_field);
418 pf->Add_missed_fi_app();
428 int d1 = g_date->OldDays() + g_date->DayInYear( 1,6 );
429 if ( d1 <= g_date->Date()) {
430 d1 = g_date->Date() + 1;
440 g_date->DayInYear( 15,6 ) -
441 g_date->DayInYear())) {
447 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,8 ),
453 g_date->DayInYear( 15,8 ) -
454 g_date->DayInYear())) {
463 if (
m_field->GetMConstants(0)==0) {
465 g_msg->Warn( WARN_BUG,
"WinterRye::Do(): failure in 'StrawChopping' execution",
"" );
487 if (
m_field->GetMConstants(2)==0) {
489 g_msg->Warn( WARN_BUG,
"WinterRye::Do(): failure in 'HayTurning' execution",
"" );
504 if (
m_field->GetMConstants(3)==0) {
506 g_msg->Warn( WARN_BUG,
"WinterRye::Do(): failure in 'HayBailing' execution",
"" );
522 if (
m_field->GetMConstants(1)==0) {
524 g_msg->Warn( WARN_BUG,
"WinterRye::Do(): failure in 'StubbleHarrowing' execution",
"" );
540 g_msg->Warn( WARN_BUG,
"WinterRye::Do(): "
541 "Unknown event type! ",
"" );