28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/OMaizeSilage.h"
48 m_field->SetMDates(0,0,g_date->DayInYear(1,9));
50 m_field->SetMDates(1,0,g_date->DayInYear(10,9));
51 m_field->SetMDates(0,1,g_date->DayInYear(15,9));
52 m_field->SetMDates(1,1,g_date->DayInYear(30,9));
62 g_msg->Warn(WARN_FILE,
"OMaizeSilage::Do(): Harvest too late for the next crop to start!!! The next crop is: ", veg_type);
66 for (
int i=0; i<noDates; i++)
78 int today=g_date->Date();
80 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
84 g_msg->Warn( WARN_BUG,
"OMaizeSilage::Do(): "
85 "Crop start attempt between 1st Jan & 1st July",
"" );
94 g_msg->Warn( WARN_BUG,
"OMaizeSilage::Do(): "
95 "Crop start attempt after last possible start date",
"" );
109 if ( g_date->Date() > d1 ) {
119 g_date->DayInYear( 25, 4 ) - g_date->DayInYear())) {
124 d1 = g_date->OldDays() + g_date->DayInYear( 1, 4 );
125 if ( g_date->Date()+1 > d1 ) {
126 d1 = g_date->Date()+1;
134 g_date->DayInYear( 30, 4 ) - g_date->DayInYear())) {
143 g_date->DayInYear( 1, 5 ) - g_date->DayInYear())) {
152 g_date->DayInYear( 10, 5 ) - g_date->DayInYear())) {
157 d1 = g_date->OldDays() + g_date->DayInYear( 25, 4 );
158 if ( g_date->Date() > d1 ) {
167 g_date->DayInYear( 15, 5 ) - g_date->DayInYear())) {
177 g_date->DayInYear( 20, 5 ) - g_date->DayInYear())) {
182 d1 = g_date->OldDays() + g_date->DayInYear( 2, 5 );
192 g_date->DayInYear( 25, 5 ) - g_date->DayInYear())) {
197 d1 = g_date->OldDays() + g_date->DayInYear( 1, 5 );
207 g_date->DayInYear( 25, 5 ) - g_date->DayInYear())) {
211 d1 = g_date->OldDays() + g_date->DayInYear( 21, 5 );
212 if ( g_date->Date() + 1 > d1 ) {
213 d1 = g_date->Date() + 1;
220 g_date->DayInYear( 20, 6 ) - g_date->DayInYear())) {
224 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1, 7 ),
231 g_date->DayInYear( 15, 7 ) - g_date->DayInYear())) {
237 d1 = g_date->OldDays() + g_date->DayInYear( 16, 7 );
238 if ( g_date->Date() + 7 > d1 ) {
239 d1 = g_date->Date() + 7;
247 g_date->DayInYear( 30, 7 ) - g_date->DayInYear())) {
251 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1, 9 ),
257 m_field->GetMDates(1,0) - g_date->DayInYear())) {
262 d1 = g_date->OldDays() +
m_field->GetMDates(0,1);
263 if ( g_date->Date() > d1 ) {
274 g_date->DayInYear())) {
279 d1=g_date->DayInYear();
284 g_msg->Warn( WARN_BUG,
"OMaizeSilage::Do(): "
285 "Unknown event type! ",
"" );