27 #include "../../Landscape/ls.h"
28 #include "../../Landscape/cropprogs/SpringBarleyCloverGrass.h"
64 m_field->SetMDates( 0, 0, g_date->DayInYear( 1, 8 ) );
66 m_field->SetMDates( 1, 0, g_date->DayInYear( 25, 8 ) );
67 m_field->SetMDates( 0, 1, g_date->DayInYear( 5, 8 ) );
68 m_field->SetMDates( 1, 1, g_date->DayInYear( 30, 8 ) );
69 m_field->SetMDates( 0, 2, g_date->DayInYear( 1, 9 ) );
70 m_field->SetMDates( 1, 2, g_date->DayInYear( 15, 10 ) );
76 g_msg->Warn( WARN_BUG,
"SpringBarleyCloverGrass::Do(): "
77 "Harvest too late for the next crop to start!!!",
"" );
81 for (
int i = 0; i < noDates; i++) {
91 d1 = g_date->OldDays() + g_date->DayInYear( 1, 7 );
92 if (g_date->Date() < d1) {
94 g_msg->Warn( WARN_BUG,
"SpringBarleyCloverGrass::Do(): "
95 "Crop start attempt between 1st Jan & 1st July",
"" );
100 if (g_date->Date() > d1) {
102 g_msg->Warn( WARN_BUG,
"SpringBarleyCloverGrass::Do(): "
103 "Crop start attempt after last possible start date",
"" );
116 d1 = g_date->OldDays() + g_date->DayInYear( 1, 11 );
117 if (g_date->Date() >= d1) d1 = g_date->Date();
125 g_date->DayInYear( 30, 11 ) - g_date->DayInYear() )) {
139 g_date->DayInYear( 15, 4 ) - g_date->DayInYear() )) {
146 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15, 3 ),
153 g_date->DayInYear( 15, 4 ) - g_date->DayInYear() )) {
168 g_date->DayInYear( 10, 4 ) - g_date->DayInYear() )) {
173 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25, 3 ),
179 g_date->DayInYear( 10, 4 ) - g_date->DayInYear() )) {
189 g_date->DayInYear( 10, 4 ) - g_date->DayInYear() )) {
194 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25, 3 ),
200 g_date->DayInYear( 20, 4 ) - g_date->DayInYear() )) {
210 g_date->DayInYear( 21, 4 ) - g_date->DayInYear() )) {
215 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1, 5 ),
223 g_date->DayInYear( 10, 5 ) - g_date->DayInYear() )) {
228 else if (g_date->DayInYear() + 7 < g_date->DayInYear( 15, 5 ))
229 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15, 5 ),
234 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 5 ),
236 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 5 ),
238 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1, 6 ),
246 g_date->DayInYear( 30, 5 ) - g_date->DayInYear() )) {
258 g_date->DayInYear( 25, 5 ) - g_date->DayInYear() )) {
269 g_date->DayInYear( 15, 6 ) - g_date->DayInYear() ))
274 if (g_date->DayInYear() + 5 < g_date->DayInYear( 16, 6 ))
275 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 16, 6 ),
285 g_date->DayInYear( 1, 7 ) - g_date->DayInYear() ))
298 g_date->DayInYear( 25, 5 ) - g_date->DayInYear() )) {
369 m_field->GetMDates( 1, 0 ) - g_date->DayInYear() )) {
379 m_field->GetMDates( 1, 1 ) - g_date->DayInYear() )) {
385 if (
m_field->GetMDates( 1, 2 ) -
m_field->GetMDates( 0, 2 ) < 14) done =
true;
392 m_field->GetMDates( 1, 2 ) - g_date->DayInYear() )) {
401 m_field->GetMDates( 1, 2 ) - g_date->DayInYear(),
m_field->GetMDates( 1, 2 ) )) {
410 g_msg->Warn( WARN_BUG,
"SpringBarleyCloverGrass::Do(): "
411 "Unknown event type! ",
"" );