mgt_harvtuber Subroutine

subroutine mgt_harvtuber(jj, iplant, iharvop)

Uses

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

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

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

multiply root biomass by harvest efficiency remove harvested root mass from existing root mass update root fractions in each layer allocate remaining dead roots, N, P to soil layers apply pest stress to harvest index - mass lost due to pests - don't add to residue adjust foliar and internal pesticide for grain removal calculate amount of pesticide removed with yield add above ground mass to residue pool zero all plant components - assume tuber harvest kills plant

Arguments

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

Calls

proc~~mgt_harvtuber~~CallsGraph proc~mgt_harvtuber mgt_harvtuber pl_rootfr pl_rootfr proc~mgt_harvtuber->pl_rootfr