28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/SpringBarleySeed.h"
59 m_field->SetMDates(0,0,g_date->DayInYear(1,8));
61 m_field->SetMDates(1,0,g_date->DayInYear(20,8));
62 m_field->SetMDates(0,1,g_date->DayInYear(5,8));
63 m_field->SetMDates(1,1,g_date->DayInYear(25,8));
64 m_field->SetMDates(0,2,g_date->DayInYear(15,8));
65 m_field->SetMDates(1,2,g_date->DayInYear(15,9));
70 g_msg->Warn( WARN_BUG,
"SpringBarleySeed::Do(): "
71 "Harvest too late for the next crop to start!!!",
"" );
75 for (
int i=0; i<noDates; i++)
86 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
87 if (g_date->Date() < d1)
90 g_msg->Warn( WARN_BUG,
"SpringBarleySeed::Do(): "
91 "Crop start attempt between 1st Jan & 1st July",
"" );
97 if (g_date->Date() > d1)
100 g_msg->Warn( WARN_BUG,
"SpringBarleySeed::Do(): "
101 "Crop start attempt after last possible start date",
"" );
109 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
116 d1 = g_date->OldDays() + g_date->DayInYear( 1,11 );
117 if ( g_date->Date() > d1 ) {
129 SimpleEvent( g_date->OldDays() + 365 + g_date->DayInYear( 15, 3 ),
136 g_date->DayInYear( 1,12 ) -
137 g_date->DayInYear())) {
141 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,3 )+365,
147 g_date->DayInYear( 10, 4 ) -
148 g_date->DayInYear())) {
157 g_date->DayInYear( 10,4 ) -
158 g_date->DayInYear())) {
163 int d1 = g_date->Date();
164 if ( d1 > g_date->OldDays() + g_date->DayInYear( 20,3 ))
165 d1 = g_date->OldDays() + g_date->DayInYear( 20,3 );
175 g_date->DayInYear( 10, 4 ) -
176 g_date->DayInYear())) {
181 int d1 = g_date->Date();
182 if ( d1 < g_date->OldDays() + g_date->DayInYear( 25,3 )) {
183 d1 = g_date->OldDays() + g_date->DayInYear( 25,3 );
191 g_date->DayInYear( 10, 4 ) -
192 g_date->DayInYear())) {
202 g_date->DayInYear( 10, 4 ) -
203 g_date->DayInYear())) {
208 int d1 = g_date->Date();
209 if ( d1 < g_date->OldDays() + g_date->DayInYear( 25,3 )) {
210 d1 = g_date->OldDays() + g_date->DayInYear( 25,3 );
218 g_date->DayInYear( 15,4 ) -
219 g_date->DayInYear())) {
225 int d1 = g_date->Date();
226 if ( d1 < g_date->OldDays() + g_date->DayInYear( 1,4 )) {
227 d1 = g_date->OldDays() + g_date->DayInYear( 1,4 );
237 g_date->DayInYear( 20,4 ) -
238 g_date->DayInYear())) {
248 g_date->DayInYear( 30,4 ) -
249 g_date->DayInYear())) {
254 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,5 ),
256 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,5 ),
258 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,5 ),
266 g_date->DayInYear( 25,5 ) -
267 g_date->DayInYear())) {
283 g_date->DayInYear( 25,5 ) -
284 g_date->DayInYear())) {
290 d1 = g_date->Date() + 10;
291 if ( d1 < g_date->OldDays() + g_date->DayInYear( 15,5 )) {
292 d1 = g_date->OldDays() + g_date->DayInYear( 15,5 );
307 g_date->DayInYear( 10,6 ) -
308 g_date->DayInYear())) {
325 g_date->DayInYear( 30,5 ) -
326 g_date->DayInYear())) {
332 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
344 g_date->DayInYear( 1,7 ) -
345 g_date->DayInYear())) {
351 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,8 ),
358 g_date->DayInYear())) {
364 if ( d1 < g_date->OldDays() +
m_field->GetMDates(0,1))
365 d1 = g_date->OldDays() +
m_field->GetMDates(0,1);
373 g_date->DayInYear())) {
407 g_date->DayInYear())) {
415 g_msg->Warn( WARN_BUG,
"SpringBarleySeed::Do(): "
416 "Unknown event type! ",
"" );