swr_origtile Subroutine

subroutine swr_origtile(tile_above_btm)

Uses

- soil_module
- hru_module
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 computes tile drainage using basic tile equations

compute tile flow using the original tile equations

(wt_above_btm - tile_above_btm) / wt_above_btm * (sw - fc)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	tile_above_btm