28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/OSeedGrass2.h"
49 m_field->SetMDates(0,0,g_date->DayInYear(10,7));
51 m_field->SetMDates(1,0,g_date->DayInYear(20,7));
52 m_field->SetMDates(0,1,g_date->DayInYear(11,7));
53 m_field->SetMDates(1,1,g_date->DayInYear(25,7));
54 m_field->SetMDates(0,2,g_date->DayInYear(26,7));
55 m_field->SetMDates(1,2,g_date->DayInYear(20,7));
56 m_field->SetMDates(0,3,g_date->DayInYear(15,7));
57 m_field->SetMDates(1,3,g_date->DayInYear(15,8));
58 m_field->SetMDates(0,4,g_date->DayInYear(15,8));
59 m_field->SetMDates(1,4,g_date->DayInYear(20,8));
71 g_msg->Warn( WARN_BUG,
"OSeedGrass2::Do(): " "Harvest too late for the next crop to start!!!",
"" );
75 for (
int i=0; i<noDates; i++) {
86 int today=g_date->Date();
92 g_msg->Warn( WARN_BUG,
"OSeedGrass2::Do(): "
93 "Crop start attempt after last possible start date",
"" );
100 if ( g_date->Date() > d1 ) {
112 g_date->DayInYear( 15, 4 ) -
113 g_date->DayInYear())) {
118 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15, 5 ),
125 g_date->DayInYear( 30, 5 ) -
126 g_date->DayInYear())) {
130 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1, 6 ),
135 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 7 ),
154 g_date->DayInYear( 15, 7 ) -
155 g_date->DayInYear())) {
168 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 7 ),
173 if (
m_field->GetMConstants(0)==0) {
175 g_msg->Warn( WARN_BUG,
"OSeedGrass2::Do(): failure in 'Harvest' execution",
"" );
190 if (
m_field->GetMConstants(0)==0) {
192 g_msg->Warn( WARN_BUG,
"OSeedGrass2::Do(): failure in 'StrawChopping' execution",
"" );
210 if (
m_field->GetMConstants(1)==0) {
212 g_msg->Warn( WARN_BUG,
"OSeedGrass2::Do(): failure in 'HayTurning' execution",
"" );
225 if ( d1 < g_date->OldDays() +
m_field->GetMDates(0,3))
226 d1 = g_date->OldDays() +
m_field->GetMDates(0,3);
233 if (
m_field->GetMConstants(3)==0) {
235 g_msg->Warn( WARN_BUG,
"OSeedGrass2::Do(): failure in 'BurnStrawStubble' execution",
"" );
252 if (
m_field->GetMConstants(4)==0) {
254 g_msg->Warn( WARN_BUG,
"OSeedGrass2::Do(): failure in 'StubbleHarrowing' execution",
"" );
268 g_msg->Warn( WARN_BUG,
"OSeedGrass2::Do(): "
269 "Unknown event type! ",
"" );