septic_system Derived Type

type, public :: septic_system


Components

Type Visibility Attributes Name Initial
character(len=13), public :: name = "default"
integer, public :: typ = 0

none |septic system type

integer, public :: yr = 0

|year the septic system became operational

integer, public :: opt = 0

none |Septic system operation flag (1=active,2=failing,0=not operated)

real, public :: cap = 0.

none |Number of permanent residents in the house

real, public :: area = 0.

m^2 |average area of drainfield of individual septic systems

integer, public :: tfail = 0

days |time until falling systems gets fixed

real, public :: z = 0.

mm |depth to the top of the biozone layer from the ground surface

real, public :: thk = 0.

mm |thickness of biozone layer

real, public :: strm_dist = 0.

km |distance to the stream from the septic

real, public :: density = 0.

|number of septic systems per square kilometer

real, public :: bd = 0.

kg/m^3 |density of biomass

real, public :: bod_dc = 0.

m^3/day |BOD decay rate coefficient

real, public :: bod_conv = 0.

|a conversion factor representing the proportion of mass bacterial growth and mass BOD degraded in the STE.

real, public :: fc1 = 0.

none |Linear coefficient for calculation of field capacity in the biozone

real, public :: fc2 = 0.

none |Exponential coefficient for calculation of field capacity in the biozone

real, public :: fecal = 0.

m^3/day |fecal coliform bacteria decay rate coefficient

real, public :: plq = 0.

none |conversion factor for plaque from TDS

real, public :: mrt = 0.

none |mortality rate coefficient

real, public :: rsp = 0.

none |respiration rate coefficient

real, public :: slg1 = 0.

none |slough-off calibration parameter

real, public :: slg2 = 0.

none |slough-off calibration parameter

real, public :: nitr = 0.

none |nitrification rate coefficient

real, public :: denitr = 0.

none |denitrification rate coefficient

real, public :: pdistrb = 0.

(L/kg) |Linear P sorption distribution coefficient

real, public :: psorpmax = 0.

(mg P/kg Soil) |Maximum P sorption capacity

real, public :: solpslp = 0.

|Slope of the linear effluent soluble P equation

real, public :: solpintc = 0.

|Intercept of the linear effluent soluble P equation