43 #include "../../Landscape/ls.h"
44 #include "../../Landscape/cropprogs/NLBeetSpring.h"
84 a_field->SetMDates(0, 0, g_date->DayInYear(10, 12));
85 a_field->SetMDates(1, 0, g_date->DayInYear(10, 12));
87 a_field->SetMConstants(0, 1);
97 if (a_ev->
m_startday > g_date->DayInYear(1, 7)) {
98 if (a_field->GetMDates(0, 0) >= a_ev->
m_startday)
100 g_msg->Warn(WARN_BUG,
"NLBeetSpring::Do(): ",
"Harvest too late for the next crop to start!!!");
102 g_msg->Warn(
"Next Crop ", (
double)almassnum);
105 for (
int i = 0; i < noDates; i++) {
106 if (a_field->GetMDates(0, i) >= a_ev->
m_startday) {
107 a_field->SetMDates(0, i, a_ev->
m_startday - 1);
109 if (a_field->GetMDates(1, i) >= a_ev->
m_startday) {
110 a_field->SetMConstants(i, 0);
111 a_field->SetMDates(1, i, a_ev->
m_startday - 1);
119 if (g_date->Date() > d1) {
121 g_msg->Warn(WARN_BUG,
"NLBeetSpring::Do(): ",
"Crop start attempt after last possible start date");
123 g_msg->Warn(WARN_BUG,
"Previous Crop ", prev);
125 g_msg->Warn(
"Next Crop ", (
double)almassnum);
137 d1 = g_date->OldDays() + g_date->DayInYear(1, 3);
138 if (g_date->Date() >= d1) d1 += 365;
141 if (a_field->GetSoilType() == 2 || a_field->GetSoilType() == 6) {
157 if (!a_farm->
SpringPlough(a_field, 0.0, g_date->DayInYear(30, 3) - g_date->DayInYear())) {
168 if (a_ev->
m_lock || a_farm->DoIt_prob(0.60))
170 if (!a_farm->FP_NPK(a_field, 0.0, g_date->DayInYear(10, 4) - g_date->DayInYear())) {
178 if (a_ev->
m_lock || a_farm->DoIt_prob(0.60))
180 if (!a_farm->FA_NPK(a_field, 0.0, g_date->DayInYear(10, 4) - g_date->DayInYear())) {
188 if (!a_farm->PreseedingCultivator(a_field, 0.0, g_date->DayInYear(14, 4) - g_date->DayInYear())) {
195 if (!a_farm->SpringSow(a_field, 0.0, g_date->DayInYear(15, 4) - g_date->DayInYear())) {
202 if (a_farm->IsStockFarmer())
210 if (a_field->GetGreenBiomass() <= 0) {
215 if (!a_farm->FP_AmmoniumSulphate(a_field, 0.0, g_date->DayInYear(15, 5) - g_date->DayInYear())) {
223 if (a_field->GetGreenBiomass() <= 0) {
229 if (!a_farm->FA_AmmoniumSulphate(a_field, 0.0, g_date->DayInYear(15, 5) - g_date->DayInYear())) {
239 if (a_field->GetGreenBiomass() <= 0)
241 if (a_ev->
m_lock || a_farm->DoIt_prob(0.75))
243 if (!a_farm->HerbicideTreat(a_field, 0.0, g_date->DayInYear(20, 4) - g_date->DayInYear())) {
255 if (a_field->GetGreenBiomass() <= 0) {
260 if (!a_farm->HerbicideTreat(a_field, 0.0, g_date->DayInYear(30, 4) - g_date->DayInYear())) {
269 if (!a_farm->HerbicideTreat(a_field, 0.0, g_date->DayInYear(15, 5) - g_date->DayInYear())) {
278 if (!a_farm->HerbicideTreat(a_field, 0.0, g_date->DayInYear(30, 5) - g_date->DayInYear())) {
287 if (!a_farm->FungicideTreat(a_field, 0.0, g_date->DayInYear(5, 8) - g_date->DayInYear())) {
294 if (a_ev->
m_lock || a_farm->DoIt_prob(0.75))
296 if (!a_farm->FungicideTreat(a_field, 0.0, g_date->DayInYear(25, 8) - g_date->DayInYear())) {
307 if (!a_farm->FungicideTreat(a_field, 0.0, g_date->DayInYear(15, 9) - g_date->DayInYear())) {
317 if (!a_farm->Harvest(a_field, 0.0, a_field->GetMDates(0, 0) - g_date->DayInYear())) {
326 g_msg->Warn(WARN_BUG,
"NLBeetSpring::Do(): "
327 "Unknown event type! ",
"");