basin_control_codes Derived Type

type, public :: basin_control_codes


Components

Type Visibility Attributes Name Initial
character(len=16), public :: petfile = '         pet.cli'

potential et filename

character(len=16), public :: wwqfile = ""

watershed stream water quality filename

integer, public :: pet = 0

potential ET method code 0 = Priestley-Taylor 1 = Penman-Monteith 2 = Hargreaves method 3 = read in daily pot ET values

integer, public :: event = 0

event code

integer, public :: crk = 0

crack flow code 1 = compute flow in cracks

integer, public :: swift_out = 0

write to SWIFT input file 0 = do not write 1 = write to swift_hru.inp

integer, public :: sed_det = 0

max half-hour rainfall frac calc 0 = gen from triangular dist 1 = use monthly mean frac

integer, public :: rte = 0

water routing method 0 variable storage method 1 Muskingum method

integer, public :: deg = 0

channel degradation code 0 = do not compute 1 = compute (downcutting and widening)

integer, public :: wq = 0

stream water quality code 0 do not model 1 model (QUAL2E)

integer, public :: nostress = 0

redefined to the sequence number -- changed to no nutrient stress 0 = all stresses applied 1 = turn off all plant stress 2 = turn off nutrient plant stress only

integer, public :: cn = 0

not used

integer, public :: cfac = 0

0 = C-factor calc using CMIN 1 = for new C-factor from RUSLE (no min needed)

integer, public :: cswat = 0

carbon code = 0 Static soil carbon (old mineralization routines) = 1 C-FARM one carbon pool model = 2 Century model

integer, public :: lapse = 0

precip and temperature lapse rate control 0 = do not adjust for elevation 1 = adjust for elevation

integer, public :: uhyd = 1

Unit hydrograph method: 0 = triangular UH 1 = gamma function UH

integer, public :: sed_ch = 0

Instream sediment model 0 = Bagnold model 1 = Brownlie model 2 = Yang model

integer, public :: tdrn = 0

tile drainage eq code 1 = sim tile flow using subsurface drains (wt_shall) 0 = sim tile flow using subsurface origtile (wt_shall,d)

integer, public :: wtdn = 0

water table depth algorithms code 1 = sim wt_shall using subsurface new water table depth routine 0 = sim wt_shall using subsurface orig water table depth routine

integer, public :: sol_p_model = 0

1 = new soil P model

integer, public :: gampt = 0

0 = curve number; 1 = Green and Ampt

character(len=1), public :: atmo = "a"

atmospheric deposition interval "m" = monthly "y" = yearly "a" = annual

integer, public :: smax = 0

max depressional storage selection code 1 = dynamic stmaxd computed as a cunfction of random roughness and rain intensity 0 = static stmaxd read from .bsn for the global value or .sdr for specific hrus

integer, public :: qual2e = 0

0 = channel routine using QUAL2E 1 = channel routing with simplified nutrient transformations

integer, public :: gwflow = 0

0 = gwflow module not active; 1 = gwflow module active