mgt_harvgrain Subroutine

subroutine mgt_harvgrain(jj, iplant, iharvop)

Uses

  • proc~~mgt_harvgrain~~UsesGraph proc~mgt_harvgrain mgt_harvgrain carbon_module carbon_module proc~mgt_harvgrain->carbon_module module~basin_module basin_module proc~mgt_harvgrain->module~basin_module module~constituent_mass_module constituent_mass_module proc~mgt_harvgrain->module~constituent_mass_module module~hru_module hru_module proc~mgt_harvgrain->module~hru_module module~mgt_operations_module mgt_operations_module proc~mgt_harvgrain->module~mgt_operations_module module~organic_mineral_mass_module organic_mineral_mass_module proc~mgt_harvgrain->module~organic_mineral_mass_module module~plant_data_module plant_data_module proc~mgt_harvgrain->module~plant_data_module module~plant_module plant_module proc~mgt_harvgrain->module~plant_module

~ ~ ~ PURPOSE ~ ~ ~ this subroutine performs the harvest grain only operation

~ ~ ~ INCOMING VARIABLES ~ ~ ~ name |units |definition ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

~ ~ ~ OUTGOING VARIABLES ~ ~ ~ name |units |definition ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

check for minimum harvest index remove seed mass from total plant mass and calculate yield apply pest stress to harvest index - mass lost due to pests - don't add to residue add plant carbon for printing add seed mass from harveff to slow humus pool of soil - to preserve balances zero seed mass adjust foliar and internal pesticide for grain removal calculate amount of pesticide removed with yield

Arguments

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

Calls

proc~~mgt_harvgrain~~CallsGraph proc~mgt_harvgrain mgt_harvgrain hpc_d hpc_d proc~mgt_harvgrain->hpc_d