~ ~ ~ PURPOSE ~ ~ ~ this subroutine performs the harvest operation for above ground biomass (no kill)
remove yield from seed, leaf, and stem - using hi_ovr for all parts check if above ground > minimum biomass to cut apply pest stress to harvest index - mass lost due to pests - don't add to residue add plant carbon for printing adjust foliar and internal pesticide for plant removal calculate amount of pesticide removed with yield and clippings add pesticide in clippings to soil surface update remaining plant organic pools add clippings (biomass left behind) to surface residue pool update total residue pool calculation for dead roots allocations, resetting phenology, updating other pools reset leaf area index and fraction of growing season assume the lai biomass relationship - 0.5 lai decline for biomass removal
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | jj | |||
| integer, | intent(in) | :: | iplant | |||
| integer, | intent(in) | :: | iharvop |