28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/OSpringBarley.h"
51 m_field->SetMDates(0,0,g_date->DayInYear(1,8));
53 m_field->SetMDates(1,0,g_date->DayInYear(15,8));
54 m_field->SetMDates(0,1,g_date->DayInYear(15,8));
55 m_field->SetMDates(1,1,g_date->DayInYear(15,8));
56 m_field->SetMDates(0,2,g_date->DayInYear(5,8));
57 m_field->SetMDates(1,2,g_date->DayInYear(20,8));
65 g_msg->Warn( WARN_BUG,
"OSpringBarley::Do(): "
66 "Harvest too late for the next crop to start!!!",
"" );
70 for (
int i=0; i<noDates; i++)
83 int today=g_date->Date();
85 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
89 g_msg->Warn( WARN_BUG,
"OSpringBarley::Do(): "
90 "Crop start attempt between 1st Jan & 1st July",
"" );
99 g_msg->Warn( WARN_BUG,
"OSpringBarley::Do(): "
100 "Crop start attempt after last possible start date",
"" );
107 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
115 if ( g_date->Date() > d1 ) {
130 g_date->DayInYear( 15, 12 ) - g_date->DayInYear())) {
136 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,3 ) + 365,
139 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1, 4 ) + 365,
142 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 3 ) + 365,
147 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 3 ) + 365,
150 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 3 ) + 365,
159 g_date->DayInYear( 10, 4 ) - g_date->DayInYear())) {
164 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 3 ),
166 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 30 ,4 ),
172 g_date->DayInYear( 10, 4 ) - g_date->DayInYear())) {
184 g_date->DayInYear( 30, 4 ) - g_date->DayInYear())) {
199 g_date->DayInYear( 10, 4 ) - g_date->DayInYear())) {
206 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,3 ),
212 g_date->DayInYear( 10, 4 ) - g_date->DayInYear())) {
224 g_date->DayInYear( 20, 4 ) - g_date->DayInYear())) {
235 g_date->DayInYear( 15,4 ) - g_date->DayInYear())) {
239 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,3 ),
245 g_date->DayInYear( 15,4 ) - g_date->DayInYear())) {
250 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 ),
258 g_date->DayInYear( 15,4 ) - g_date->DayInYear())) {
263 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 16,3 ),
271 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
280 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,3 ),
288 g_date->DayInYear( 20,4 ) - g_date->DayInYear())) {
295 if ( g_date->Date()+5<g_date->DayInYear( 10,4 ))
296 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,4 ),
303 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,8 ),
309 g_date->DayInYear( 25,4 ) - g_date->DayInYear())) {
316 if ( g_date->Date()+5<g_date->DayInYear( 21,4 ))
317 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 21,4 ),
327 g_date->DayInYear( 5,5 ) - g_date->DayInYear())) {
338 m_field->GetMDates(1,0) - g_date->DayInYear())) {
349 m_field->GetMDates(1,1) - g_date->DayInYear())) {
364 m_field->GetMDates(1,2) - g_date->DayInYear())) {
373 g_msg->Warn( WARN_BUG,
"OSpringBarley::Do(): "
374 "Unknown event type! ",
"" );