28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/OSeedGrass1.h"
55 m_field->SetMDates(0,0,g_date->DayInYear(10,7));
57 m_field->SetMDates(1,0,g_date->DayInYear(20,7));
58 m_field->SetMDates(0,1,g_date->DayInYear(11,7));
59 m_field->SetMDates(1,1,g_date->DayInYear(25,7));
60 m_field->SetMDates(0,2,g_date->DayInYear(26,7));
61 m_field->SetMDates(1,2,g_date->DayInYear(20,7));
62 m_field->SetMDates(0,3,g_date->DayInYear(15,7));
63 m_field->SetMDates(1,3,g_date->DayInYear(15,8));
76 g_msg->Warn( WARN_BUG,
"OSeedGrass1::Do(): "
77 "Harvest too late for the next crop to start!!!",
"" );
81 for (
int i=0; i<noDates; i++) {
93 int today=g_date->Date();
99 g_msg->Warn( WARN_BUG,
"OSeedGrass1::Do(): "
100 "Crop start attempt after last possible start date",
"" );
107 if ( g_date->Date() > d1 ) {
119 g_date->DayInYear( 15, 4 ) -
120 g_date->DayInYear())) {
125 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15, 5 ),
133 g_date->DayInYear( 30, 5 ) -
134 g_date->DayInYear())) {
140 int d1 = g_date->Date() + 7;
141 if ( d1 > g_date->OldDays() + g_date->DayInYear( 1, 6 ))
142 d1 = g_date->OldDays() + g_date->DayInYear( 1, 6 );
148 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 7 ),
162 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 7 ),
169 g_date->DayInYear( 15, 7 ) -
170 g_date->DayInYear())) {
183 if (
m_field->GetMConstants(0)==0) {
185 g_msg->Warn( WARN_BUG,
"OSeedGrass1::Do(): failure in 'Harvest' execution",
"" );
201 if (
m_field->GetMConstants(0)==0) {
203 g_msg->Warn( WARN_BUG,
"OSeedGrass1::Do(): failure in 'StrawChopping' execution",
"" );
218 int d1 = g_date->Date()+1;
219 int d2 = g_date->OldDays() +
m_field->GetMDates(0,1);
227 if (
m_field->GetMConstants(1)==0) {
229 g_msg->Warn( WARN_BUG,
"OSeedGrass1::Do(): failure in 'HayTurning' execution",
"" );
241 int d1 = g_date->Date();
242 if ( d1 < g_date->OldDays() +
m_field->GetMDates(0,3))
243 d1 = g_date->OldDays() +
m_field->GetMDates(0,3);
250 if (
m_field->GetMConstants(3)==0) {
252 g_msg->Warn( WARN_BUG,
"OSeedGrass1::Do(): failure in 'BurnStrawStubble' execution",
"" );
267 g_msg->Warn( WARN_BUG,
"OSeedGrass1::Do(): " "Unknown event type! ",
"" );