swr_percmain Subroutine

subroutine swr_percmain()

Uses

  • proc~~swr_percmain~~UsesGraph proc~swr_percmain swr_percmain module~basin_module basin_module proc~swr_percmain->module~basin_module module~gwflow_module gwflow_module proc~swr_percmain->module~gwflow_module module~hru_module hru_module proc~swr_percmain->module~hru_module module~hydrograph_module hydrograph_module proc~swr_percmain->module~hydrograph_module module~septic_data_module septic_data_module proc~swr_percmain->module~septic_data_module module~soil_module soil_module proc~swr_percmain->module~soil_module module~hydrograph_module->module~basin_module module~time_module time_module module~hydrograph_module->module~time_module module~carbon_module carbon_module module~soil_module->module~carbon_module

~ ~ ~ PURPOSE ~ ~ ~ this subroutine is the master soil percolation component.

~ ~ ~ INCOMING VARIABLES ~ ~ ~ name |units |definition ~ ~ ~ OUTGOING VARIABLES ~ ~ ~ name |units |definition ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ new water table depth equations 01/2009 c |none |a factor used to convert airvol to wtd dg |mm |soil layer thickness in HRU new water table depth equations 01/2009 latq(:) |mm H2O |total lateral flow in soil profile for the |day in HRU lyrtile |mm H2O |drainage tile flow in soil layer for day new water table depth equations 01/2009 ne_p |mm/hr |effective porosity in HRU for all soil profile layers ne_w |mm/hr |effective porosity in HRU for soil layers above wtd new water table depth equations 01/2009 qtile |mm H2O |drainage tile flow in soil profile for the day sepday |mm H2O |micropore percolation from soil layer sepbtm(:) |mm H2O |percolation from bottom of soil profile for |the day in HRU sw_excess |mm H2O |amount of water in excess of field capacity |stored in soil layer on the current day new water table depth equations 01/2009 new water table depth equations 01/2009 wt_shall |mm H2O |shallow water table height above bottom of soil profile ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ w2 |mm | y1 |mm |dummy variable for wat ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

initialize water entering first soil layer ht1%flo is infiltration from overland flow routing calculate crack flow add water moving into soil layer from overlying layer septic tank inflow to biozone layer J.Jeong

determine gravity drained water in layer initialize variables for current layer calculate tile flow (lyrtile), lateral flow (latlyr) and percolation (sepday) summary calculations redistribute soil water if above saturation (high water table) update soil profile water compute shallow water table depth and tile flow drainmod tile equations 08/11/2006 drainmod wt_shall equations 10/23/2006 drainmod wt_shall equations 10/23/2006

Start Daniel"s tile equations modifications 01/2006 drainmod tile equations compute tile flow using drainmod tile equations compute tile flow using existing tile equations End Daniel"s tile equations modifications 01/2006

update soil profile water after tile drainage update soil profile water

Arguments

None

Calls

proc~~swr_percmain~~CallsGraph proc~swr_percmain swr_percmain amin1 amin1 proc~swr_percmain->amin1 gwflow_soil gwflow_soil proc~swr_percmain->gwflow_soil swr_drains swr_drains proc~swr_percmain->swr_drains swr_origtile swr_origtile proc~swr_percmain->swr_origtile swr_percmacro swr_percmacro proc~swr_percmain->swr_percmacro swr_percmicro swr_percmicro proc~swr_percmain->swr_percmicro swr_satexcess swr_satexcess proc~swr_percmain->swr_satexcess