38 #include "../../Landscape/ls.h"
39 #include "../../Landscape/cropprogs/AgroChemIndustryCereal.h"
77 m_field->SetMDates(0,0,g_date->DayInYear(20,8));
79 m_field->SetMDates(1,0,g_date->DayInYear(20,8));
81 m_field->SetMDates(1,1,g_date->DayInYear(20,8));
82 m_field->SetMDates(0,2,g_date->DayInYear(5,8));
83 m_field->SetMDates(1,2,g_date->DayInYear(25,8));
84 m_field->SetMDates(0,3,g_date->DayInYear(10,8));
85 m_field->SetMDates(1,3,g_date->DayInYear(15,9));
86 m_field->SetMDates(0,4,g_date->DayInYear(15,8));
87 m_field->SetMDates(1,4,g_date->DayInYear(15,10));
95 g_msg->Warn( WARN_BUG,
"AgroChemIndustryCereal::Do(): "
96 "Harvest too late for the next crop to start!!!",
"" );
100 for (
int i=0; i<noDates; i++)
116 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
117 if (g_date->Date() < d1)
120 g_msg->Warn( WARN_BUG,
"AgroChemIndustryCereal::Do(): "
121 "Crop start attempt between 1st Jan & 1st July",
"" );
127 if (g_date->Date() > d1)
130 g_msg->Warn( WARN_BUG,
"AgroChemIndustryCereal::Do(): "
131 "Crop start attempt after last possible start date",
"" );
138 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
145 d1 = g_date->OldDays() + g_date->DayInYear( 21,8 );
146 if ( g_date->Date() > d1 ) {
163 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
173 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
187 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
199 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
215 g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
219 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,9 ),
225 g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
229 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,9 ),
235 g_date->DayInYear( 20,10 ) - g_date->DayInYear())) {
246 g_date->DayInYear( 27,10 ) - g_date->DayInYear())) {
251 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,9 ),
258 if (
m_field->GetVegBiomass()>0)
262 g_date->DayInYear( 30,10 ) - g_date->DayInYear()))
269 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,9 ),
277 g_date->DayInYear( 5,10 ) - g_date->DayInYear())) {
282 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 )+365,
290 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
298 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,4 ),
302 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 ),
305 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,4 ),
307 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4 ),
309 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,4 ),
313 d1=g_date->OldDays() + g_date->DayInYear();
320 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,4 ),
322 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
330 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
342 g_date->DayInYear( 10,5 ) - g_date->DayInYear())) {
354 g_date->DayInYear( 10,5 ) - g_date->DayInYear())) {
359 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,5 ),
367 g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
411 g_date->DayInYear( 25,4 ) - g_date->DayInYear())) {
417 if ((g_date->Date()+7)<( g_date->OldDays() + g_date->DayInYear( 15,6 )))
418 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4),
428 g_date->DayInYear( 5,5 ) - g_date->DayInYear())) {
439 g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
444 if ((g_date->Date()+5)<( g_date->OldDays() + g_date->DayInYear( 2,5 )))
445 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 2,5 ),
454 g_date->DayInYear( 1,6 ) - g_date->DayInYear())) {
463 g_date->DayInYear( 15,4 ) - g_date->DayInYear())) {
468 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4 ),
470 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
478 g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
484 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,8 ),
492 g_date->DayInYear( 5,5 ) - g_date->DayInYear())) {
501 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
506 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,8 ),
514 g_date->DayInYear( 20,4 ) - g_date->DayInYear())) {
518 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 21,4 ),
527 g_date->DayInYear( 1,5 ) - g_date->DayInYear())) {
536 g_date->DayInYear( 20,8 ) - g_date->DayInYear()))
548 m_field->GetMDates(1,0) - g_date->DayInYear())) {
567 m_field->GetMDates(1,1) - g_date->DayInYear())) {
578 m_field->GetMDates(1,2) - g_date->DayInYear())) {
590 m_field->GetMDates(1,3) - g_date->DayInYear())) {
603 m_field->GetMDates(1,4) - g_date->DayInYear())) {
613 g_msg->Warn( WARN_BUG,
"AgroChemIndustryCereal::Do(): "
614 "Unknown event type! ",
"" );