28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/OWinterRye.h"
50 m_field->SetMDates(0,0,g_date->DayInYear(6,8));
52 m_field->SetMDates(1,0,g_date->DayInYear(15,8));
53 m_field->SetMDates(0,1,g_date->DayInYear(20,8));
54 m_field->SetMDates(1,1,g_date->DayInYear(25,8));
62 g_msg->Warn( WARN_BUG,
"OWinterRye::Do(): "
63 "Harvest too late for the next crop to start!!!",
"" );
67 for (
int i=0; i<noDates; i++)
80 int today=g_date->Date();
82 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
86 g_msg->Warn( WARN_BUG,
" OWinterRye::Do(): "
87 "Crop start attempt between 1st Jan & 1st July",
"" );
96 g_msg->Warn( WARN_BUG,
" OWinterRye::Do(): "
97 "Crop start attempt after last possible start date",
"" );
104 SimpleEvent( g_date->OldDays() + g_date->DayInYear(1,8),
112 if ( g_date->Date() > d1 ) {
127 g_date->DayInYear( 30, 9 ) -
128 g_date->DayInYear())) {
138 g_date->DayInYear( 30, 9 ) -
139 g_date->DayInYear())) {
149 g_date->DayInYear( 30, 9 ) -
150 g_date->DayInYear())) {
160 g_date->DayInYear( 30, 9 ) -
161 g_date->DayInYear())) {
170 g_date->DayInYear( 5, 10 ) -
171 g_date->DayInYear())) {
180 g_date->DayInYear( 10, 10 ) -
181 g_date->DayInYear())) {
186 int d1 = g_date->Date();
187 if ( d1 < g_date->OldDays() + g_date->DayInYear( 1,9 )) {
188 d1 = g_date->OldDays() + g_date->DayInYear( 1,9 );
196 g_date->DayInYear( 15, 10 ) -
197 g_date->DayInYear())) {
202 int d1 = g_date->Date() + 10;
203 if ( d1 < g_date->OldDays() + g_date->DayInYear( 11,9 )) {
204 d1 = g_date->OldDays() + g_date->DayInYear( 11,9 );
213 g_date->DayInYear( 25, 10 ) -
214 g_date->DayInYear())) {
220 int d1 = g_date->Date() + 7;
221 if ( d1 < g_date->OldDays() + g_date->DayInYear( 5,10 )) {
222 d1 = g_date->OldDays() + g_date->DayInYear( 5,10 );
231 g_date->DayInYear( 2, 11 ) -
232 g_date->DayInYear())) {
238 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 ) + 365,
242 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 ) + 365,
250 g_date->DayInYear( 15, 4 ) -
251 g_date->DayInYear())) {
257 int d1 = g_date->Date();
258 if ( d1 < g_date->OldDays() + g_date->DayInYear( 10,4 )) {
259 d1 = g_date->OldDays() + g_date->DayInYear( 10,4 );
265 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 ),
272 g_date->DayInYear( 15, 4 ) -
273 g_date->DayInYear())) {
279 int d1 = g_date->Date();
280 if ( d1 < g_date->OldDays() + g_date->DayInYear( 10,4 )) {
281 d1 = g_date->OldDays() + g_date->DayInYear( 10,4 );
290 g_date->DayInYear( 30,4 ) -
291 g_date->DayInYear())) {
296 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,8 ),
303 g_date->DayInYear())) {
317 g_date->DayInYear())) {
329 g_date->DayInYear())) {
344 g_date->DayInYear())) {
349 int d1 = g_date->Date();
350 if ( d1 < g_date->OldDays() + g_date->DayInYear( 5,8 )) {
351 d1 = g_date->OldDays() + g_date->DayInYear( 5,8 );
360 g_date->DayInYear())) {
369 g_msg->Warn( WARN_BUG,
"OWinterRye::Do(): "
370 "Unknown event type! ",
"" );