~ ~ ~ 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 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 slow humus pool of soil 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 |