mgt_harvbiomass Subroutine

subroutine mgt_harvbiomass(jj, iplant, iharvop)

Uses

  • proc~~mgt_harvbiomass~~UsesGraph proc~mgt_harvbiomass mgt_harvbiomass module~carbon_module carbon_module proc~mgt_harvbiomass->module~carbon_module module~constituent_mass_module constituent_mass_module proc~mgt_harvbiomass->module~constituent_mass_module module~mgt_operations_module mgt_operations_module proc~mgt_harvbiomass->module~mgt_operations_module module~organic_mineral_mass_module organic_mineral_mass_module proc~mgt_harvbiomass->module~organic_mineral_mass_module module~plant_data_module plant_data_module proc~mgt_harvbiomass->module~plant_data_module module~plant_module plant_module proc~mgt_harvbiomass->module~plant_module module~soil_module soil_module proc~mgt_harvbiomass->module~soil_module

~ ~ ~ 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

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: jj
integer, intent(in) :: iplant
integer, intent(in) :: iharvop