28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/WWheatPTreatment.h"
66 m_field->SetMDates(0,0,g_date->DayInYear(20,8));
69 m_field->SetMDates(1,0,g_date->DayInYear(20,8));
71 m_field->SetMDates(1,1,g_date->DayInYear(20,8));
72 m_field->SetMDates(0,2,g_date->DayInYear(5,8));
73 m_field->SetMDates(1,2,g_date->DayInYear(25,8));
74 m_field->SetMDates(0,3,g_date->DayInYear(10,8));
75 m_field->SetMDates(1,3,g_date->DayInYear(15,9));
76 m_field->SetMDates(0,4,g_date->DayInYear(15,8));
77 m_field->SetMDates(1,4,g_date->DayInYear(15,10));
86 g_msg->Warn( WARN_BUG,
"WWheatPTreatment::Do(): "
87 "Harvest too late for the next crop to start!!!",
"" );
91 for (
int i=0; i<noDates; i++) {
106 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
107 if (g_date->Date() < d1 ) {
109 printf (
"Poly: %d\n",
m_field->GetPoly());
110 g_msg->Warn( WARN_BUG,
"WWheatPTreatment::Do(): "
111 "Crop start attempt between 1st Jan & 1st July",
"" );
117 if (g_date->Date() > d1)
120 g_msg->Warn( WARN_BUG,
"WWheatPTrial::Do(): "
121 "Crop start attempt after last possible start date",
"" );
129 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
136 d1 = g_date->OldDays() + g_date->DayInYear( 21,8 );
150 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
160 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
174 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
186 g_date->DayInYear( 1,10 ) - g_date->DayInYear())) {
202 g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
206 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,9 ),
212 g_date->DayInYear( 10,10 ) - g_date->DayInYear())) {
216 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,9 ),
222 g_date->DayInYear( 20,10 ) - g_date->DayInYear())) {
233 g_date->DayInYear( 27,10 ) - g_date->DayInYear())) {
238 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,9 ),
245 if (
m_field->GetVegBiomass()>0)
249 g_date->DayInYear( 30,10 ) - g_date->DayInYear()))
256 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,9 ),
264 g_date->DayInYear( 5,10 ) - g_date->DayInYear())) {
269 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 )+365,
277 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
285 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,4 ),
289 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 ),
292 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,4 ),
294 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4 ),
296 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,4 ),
298 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,4 ),
300 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
312 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
325 g_date->DayInYear( 10,5 ) - g_date->DayInYear())) {
337 g_date->DayInYear( 10,5 ) - g_date->DayInYear())) {
342 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,5 ),
350 g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
389 g_date->DayInYear(25, 4) - g_date->DayInYear())) {
394 if ((g_date->Date() + 7)<(g_date->OldDays() + g_date->DayInYear(15, 6)))
395 SimpleEvent(g_date->OldDays() + g_date->DayInYear(25, 4),
417 if ((g_date->Date() + 5)<(g_date->OldDays() + g_date->DayInYear(2, 5)))
425 g_date->DayInYear( 1,6 ) - g_date->DayInYear())) {
434 g_date->DayInYear( 15,4 ) - g_date->DayInYear())) {
439 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4 ),
441 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
449 g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
456 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,8 ),
464 g_date->DayInYear( 5,5 ) - g_date->DayInYear())) {
473 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
478 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,8 ),
486 g_date->DayInYear( 20,4 ) - g_date->DayInYear())) {
490 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 21,4 ),
499 g_date->DayInYear( 1,5 ) - g_date->DayInYear())) {
508 g_date->DayInYear( 20,8 ) - g_date->DayInYear()))
520 m_field->GetMDates(1,0) - g_date->DayInYear())) {
539 m_field->GetMDates(1,1) - g_date->DayInYear())) {
550 m_field->GetMDates(1,2) - g_date->DayInYear())) {
562 m_field->GetMDates(1,3) - g_date->DayInYear())) {
575 m_field->GetMDates(1,4) - g_date->DayInYear())) {
585 g_msg->Warn( WARN_BUG,
"WWheatPTreatment::Do(): "
586 "Unknown event type! ",
"" );