~ ~ ~ PURPOSE ~ ~ ~ this subroutine computes the lake hydrologic pesticide balance.
calculate average depth of reservoir sor conc/sol conc = Koc * frac_oc = Kd -> (sor mass/mass sed) / (sol mass/mass water) = Kd -> sor mass/sol mass = Kd * (kg sed)/(L water) --> sol mass/tot mass = 1 / (1 + Kd * (kg sed)/(L water)) water column --> kg sed/L water = t/m3 = t / (m3 - (t * m3/t)) --> sedvol = sed/particle density(2.65) assume; fraction organic = 1%;\; por=0.8; density=2.6 t/m^3 benthic layer --> kg sed/L water = t/m3 = bd (t sed/m3 total) / por --> por*total gives volume of water determine pesticide lost through reactions in water layer add decay to daughter pesticides determine pesticide lost through volatilization determine amount of pesticide settling to sediment layer determine pesticide resuspended into lake water determine pesticide diffusing from sediment to water determine pesticide lost from sediment by reactions add decay to daughter pesticides determine pesticide lost from sediment by burial calculate soluble pesticide transported out of reservoir calculate sorbed pesticide transported out of reservoir update concentration of pesticide in lake water and sediment set outgoing pesticide for routing
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | jres |