28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/OSBarleySilage.h"
46 m_field->SetMDates(0,0,g_date->DayInYear(25,7));
48 m_field->SetMDates(1,0,g_date->DayInYear(25,8));
49 m_field->SetMDates(0,1,g_date->DayInYear(10,10));
50 m_field->SetMDates(1,1,g_date->DayInYear(10,10));
51 m_field->SetMDates(0,2,g_date->DayInYear(25,7));
52 m_field->SetMDates(1,2,g_date->DayInYear(1,8));
60 g_msg->Warn( WARN_BUG,
"OSBarleySilage::Do(): "
61 "Harvest too late for the next crop to start!!!",
"" );
65 for (
int i=0; i<noDates; i++)
77 int today=g_date->Date();
79 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
83 g_msg->Warn( WARN_BUG,
"OSBarleySilage::Do(): "
84 "Crop start attempt between 1st Jan & 1st July",
"" );
93 g_msg->Warn( WARN_BUG,
"OBarleySilage::Do(): "
94 "Crop start attempt after last possible start date",
"" );
108 g_date->DayInYear( 10, 4 ) - g_date->DayInYear()))
121 g_date->DayInYear( 10, 4 ) - g_date->DayInYear())) {
126 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15, 3 ),
132 g_date->DayInYear( 10, 4 ) - g_date->DayInYear())) {
141 g_date->DayInYear( 10, 4 ) - g_date->DayInYear())) {
150 g_date->DayInYear( 10, 4 ) - g_date->DayInYear())) {
154 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20, 3 ),
160 g_date->DayInYear( 12, 4 ) - g_date->DayInYear())) {
164 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,3 ),
170 g_date->DayInYear( 12, 4 ) - g_date->DayInYear())) {
174 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,6 ),
182 g_date->DayInYear( 15,6 ) - g_date->DayInYear())) {
187 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 16,6 ),
192 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,7 ),
198 g_date->DayInYear( 30,6 ) - g_date->DayInYear())) {
208 m_field->GetMDates(1,2) - g_date->DayInYear())) {
212 m_field->SetGrowthPhase( harvest1 );
219 g_msg->Warn( WARN_BUG,
"OSBarleySilage::Do(): "
220 "Unknown event type! ",
"" );