mgt_harvgrain

subroutine mgt_harvgrain(jj, iplant, iharvop)

Uses

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

~ ~ ~ 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 yld_rto = fraction of total plant mass removed as yield track pesticide removed with yield (diagnostic only) BUG FIX: original code kept yld_rto fraction instead of (1-yld_rto) Correct: remove the yield fraction, keep the residual fraction

Arguments

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

mgt_harvgrain Subroutine

Contents

subroutine mgt_harvgrain(jj, iplant, iharvop)

Uses

Arguments