~ ~ ~ PURPOSE ~ ~ ~
this subroutine calculates the amount of phosphorus lost from the soil
profile in runoff and the movement of soluble phosphorus from the first
to the second layer via percolation
~ ~ ~ INCOMING VARIABLES ~ ~ ~
name |units |definition
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
ihru |none |HRU number
surfq(:) |mm H2O |surface runoff generated on day in HRU
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
~ ~ ~ SUBROUTINES/FUNCTIONS CALLED ~ ~ ~
Intrinsic: Min, Max
~ ~ ~ ~ ~ ~ END SPECIFICATIONS ~ ~ ~ ~ ~ ~
compute soluble P lost in surface runoff units ==> surqsolp = [kg/ha * mm] / [t/m^3 * mm * m^3/t] = kg/ha compute soluble P leaching leach p from bottom layer perc p to next layer tile p