📄 readmgt.f
字号:
subroutine readmgt
!! ~ ~ ~ PURPOSE ~ ~ ~
!! this subroutine reads data from the HRU/subbasin management input file
!! (.mgt). This file contains data related to management practices used in
!! the HRU/subbasin.
!! ~ ~ ~ INCOMING VARIABLES ~ ~ ~
!! name |units |definition
!! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
!! bactkddb(:)|none |bacteria partition coefficient:
!! |1: all bacteria in solution
!! |0: all bacteria sorbed to soil particles
!! bactlpdb(:)|# bact/kg manure |concentration of less persistent
!! |bacteria in manure(fertilizer)
!! bactpdb(:) |# bact/kg manure |concentration of persistent bacteria
!! |in manure(fertilizer)
!! bio_e(:) |(kg/ha)/(MJ/m**2)|biomass-energy ratio
!! |The potential (unstressed) growth rate per
!! |unit of intercepted photosynthetically
!! |active radiation.
!! biomix(:) |none |biological mixing efficiency.
!! |Mixing of soil due to activity of earthworms
!! |and other soil biota. Mixing is performed at
!! |the end of every calendar year.
!! cnyld(:) |kg N/kg yield |fraction of nitrogen in yield
!! deptil(:) |mm |depth of mixing caused by operation
!! effmix(:) |none |mixing efficiency of operation
!! fcimp(:) |fraction |fraction of HRU area that is classified
!! |as directly connected impervious
!! fimp(:) |fraction |fraction of HRU area that is
!! |impervious (both directly and
!! |indirectly connected)
!! fminn(:) |kg minN/kg fert |fraction of mineral N (NO3 + NH3)
!! fminp(:) |kg minP/kg fert |fraction of mineral P
!! fnh3n(:) |kg NH3-N/kg minN |fraction of NH3-N in mineral N
!! forgn(:) |kg orgN/kg fert |fraction of organic N
!! forgp(:) |kg orgP/kg fert |fraction of organic P
!! hvsti(:) |(kg/ha)/(kg/ha) |harvest index: crop yield/aboveground
!! |biomass
!! ihru |none |HRU number
!! iurban(:) |none |urban simulation code:
!! |0 no urban sections in HRU
!! |1 urban sections in HRU, simulate using USGS
!! | regression equations
!! |2 urban sections in HRU, simulate using
!! | build up/wash off algorithm
!! mp |none |maximum number of pesticides used in
!! |watershed
!! ndays(:) |julian date |julian date for last day of preceding
!! |month (where the array location is the
!! |number of the month) The dates are for
!! |leap years
!! urbcn2(:) |none |Moisture condition II curve number for
!! |impervious areas
!! urblu(:) |none |urban land type identification number from
!! |urban.dat
!! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
!! ~ ~ ~ OUTGOING VARIABLES ~ ~ ~
!! name |units |definition
!! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
!! afrt_surface(:) |none |fraction of fertilizer which is applied
!! |to top 10 mm of soil (the remaining
!! |fraction is applied to first soil
!! |layer)
!! lai_init(:,:,:) |none |initial leaf area index of transplants
!! auto_eff(:) |none |fertilizer application efficiency
!! |calculated as the amount of N applied
!! |divided by the amount of N removed at
!! |harvest
!! auto_nyr(:) |kg NO3-N/ha |maximum NO3-N content allowed to be
!! |applied in one year
!! auto_napp(:) |kg NO3-N/ha |maximum NO3-N content allowed in one
!! |fertilizer application
!! auto_nstrs(:) |none |nitrogen stress factor which triggers
!! |auto fertilization
!! auto_wstr(:,:,:)|none or mm |water stress factor which triggers auto
!! |irrigation
!! fr_curb(:,:,:) |none |availability factor, the fraction of the
!! |curb length that is sweepable
!! bio_init(:,:,:) |kg/ha |initial biomass of transplants
!! bio_min(:) |kg/ha |minimum plant biomass for grazing
!! bio_ms(:) |kg/ha |cover/crop biomass
!! bio_targ(:,:,:) |kg/ha |biomass target
!! bio_eat(:,:,:) |(kg/ha)/day |dry weight of biomass removed by grazing
!! |daily
!! bio_trmp(:,:,:) |(kg/ha)/day |dry weight of biomass removed by
!! |trampling daily
!! cfrt_id(:,:,:) |none |fertilizer/manure id number from database
!! cfrt_kg(:,:,:) |kg/ha |amount of fertilzier applied to HRU on a
!! |given day
!! cn2(:) |none |SCS runoff curve number for moisture
!! |condition II
!! cnop(:,:,:) |none |SCS runoff curve number for moisture
!! |condition II
!! ddrain(:) |mm |depth to the sub-surface drain
!! divmax(:) |mm H2O or |maximum daily irrigation diversion from
!! | 10^4 m^3 H2O|the reach (when IRRSC=1): when value is
!! |positive the units are mm H2O; when the
!! |value is negative, the units are (10**4
!! |m^3 H2O
!! filterw(:) |m |filter strip width for bacteria transport
!! flowfr(:) |none |fraction of available flow in reach that
!! |is allowed to be applied to the HRU
!! flowmin(:) |m**3/s |minimum instream flow for irrigation
!! |diversions when IRRSC=1, irrigation water
!! |will be diverted only when streamflow is
!! |at or above FLOWMIN.
!! frt_kg(:,:,:) |kg/ha |amount of fertilizer applied to HRU
!! frt_surface(:,:,:) |none |fraction of fertilizer which is applied
!! |to the top 10 mm of soil (the remaining
!! |fraction is applied to the first soil
!! |layer)
!! fsred(:) |none |reduction in bacteria loading from filter
!! |strip
!! gdrain(:) |hrs |drain tile lag time: the amount of time
!! |between the transfer of water from the
!! |soil to the drain tile and the release
!! |of the water from the drain tile to the
!! |reach.
!! harveff(:,:,:) |none |harvest efficiency: fraction of harvested
!! |yield that is removed from HRU; the
!! |remainder becomes residue on the soil
!! |surface
!! hi_ovr(:,:,:) |(kg/ha)/(kg/ha)|harvest index target specified at
!! |harvest
!! hi_targ(:,:,:) |(kg/ha)/(kg/ha)|harvest index target of cover defined
!! |at planting
!! hrupest(:) |none |pesticide use flag:
!! | 0: no pesticides used in HRU
!! | 1: pesticides used in HRU
!! iafer(:,:,:) |julian date |date of auto fertilization
!! |initialization
!! iairr(:,:,:) |julian date |date of auto irrigation initialization
!! icfert(:,:,:) |julian date |date of continuous fertilization
!! |initialization
!! idplt(:,:,:) |none |land cover code from crop.dat
!! iurban(:) |none |urban simulation code:
!! |0 no urban sections in HRU
!! |1 urban sections in HRU, simulate using USGS
!! | regression equations
!! |2 urban sections in HRU, simulate using build
!! | up/wash off algorithm
!! wstrs_id(:,:,:) |none |water stress identifier
!! |1: plant water demand
!! |2: soil water deficit
!! ifert(:,:,:) |julian date |date of fertilizer application
!! ifrt_freq(:,:,:)|days |number of days between applications in
!! |continuous fertilizer operation
!! manure_id(:,:,:) |none |manure (fertilizer) identification
!! |number from fert.dat
!! igraz(:,:,:) |julian date |date grazing operation begins
!! igro(:) |none |land cover status code. This code
!! |informs the model whether or not a land
!! |cover is growing at the beginning of
!! |the simulation
!! |0 no land cover growing
!! |1 land cover growing
!! ihv(:,:,:) |julian date |date of harvest and kill operation
!! ihvo(:,:,:) |julian date |date of harvest operation
!! iir(:,:,:) |julian date |date of irrigation operation
!! ikill(:,:,:) |julian date |date of kill operation
!! iop(:,:,:) |julian date |date of tillage operation
!! ipest(:,:,:) |none |pesticide identification number from
!! |pest.dat
!! iplant(:,:,:) |julian date |date of planting/beginning of growing
!! |season
!! ipst(:,:,:) |julian date |date of pesticide application
!! imp_trig(:,:,:) |none |release/impound action code:
!! |0 begin impounding water
!! |1 release impounded water
!! irelease(:,:,:) |julian date |date of impound/release operation
!! irr_amt(:,:,:) |mm H2O |depth of irrigation water applied to
!! |HRU
!! irr_salt(:,:,:) |mg/kg |concentration of salt in irrigation
!! |water
!! irrno(:) |none |irrigation source location
!! |if IRRSC=1, IRRNO is the number of the
!! | reach
!! |if IRRSC=2, IRRNO is the number of the
!! | reservoir
!! |if IRRSC=3, IRRNO is the number of the
!! | subbasin
!! |if IRRSC=4, IRRNO is the number of the
!! | subbasin
!! |if IRRSC=5, not used
!! irrsc(:) |none |irrigation source code:
!! |1 divert water from reach
!! |2 divert water from reservoir
!! |3 divert water from shallow aquifer
!! |4 divert water from deep aquifer
!! |5 divert water from source outside
!! | watershed
!! isweep(:,:,:) |julian date |date of street sweeping operation
!! kirr(:) |NA |irrigation in HRU
!! laiday(:) |m**2/m**2 |leaf area index
!! fert_days(:,:,:) |none |number of days continuous fertilization
!! |will be simulated
!! grz_days(:,:,:) |none |number of days grazing will be simulated
!! nmgt(:) |none |management code (for GIS output only)
!! nope(:) |none |sequence number of pesticide in NPNO(:)
!! npmx |none |number of different pesticides used in
!! |the simulation
!! npno(:) |none |array of unique pesticides used in
!! |watershed
!! nrot(:) |none |number of years of rotation
!! phu_plt(1,1,:) |heat units |total number of heat units to bring
!! |plant to maturity
!! phuacc(:) |none |fraction of plant heat units
!! |accumulated
!! phuaf(:,:,:) |none |fraction of plant heat units at which
!! |auto fertilization is initialized
!! phuai(:,:,:) |none |fraction of plant heat units at which
!! |auto irrigation is initialized
!! phucf(:,:,:) |none |fraction of plant heat units at which
!! |continuous fertilization is initialized
!! phug(:,:,:) |none |fraction of plant heat units at which
!! |grazing begins
!! phuh(:,:,:) |none |fraction of plant heat units at which
!! |harvest and kill operation occurs
!! phuho(:,:,:) |none |fraction of plant heat units at which
!! |harvest operation occurs
!! phuimp(:,:,:) |none |fraction of heat units at which impound
!! |release operation occurs
!! phuirr(:,:,:) |none |fraction of plant heat units at which
!! |irrigation occurs
!! phuk(:,:,:) |none |fraction of plant heat units at which
!! |kill operation occurs
!! phun(:,:,:) |none |fraction of plant heat units at which
!! |fertilization occurs
!! phup(:,:,:) |none |fraction of solar heat units at which
!! |planting occurs
!! phupst(:,:,:) |none |fraction of plant heat units at which
!! |pesticide application occurs
!! phusw(:,:,:) |none |fraction of heat units at which sweeping
!! |operation occurs
!! phut(:,:,:) |none |fraction of heat units (base zero or
!! |plant) at which tillage occurs
!! pst_kg(:,:,:) |kg/ha |amount of pesticide applied to HRU
!! sumix(:) |none |sum of all tillage mixing efficiencies
!! |for HRU
!! sweepeff(:,:,:) |none |removal efficiency of sweeping
!! |operation
!! tdrain(:) |hrs |time to drain soil to field capacity
!! tnylda(:,:,:) |kg N/kg yield |estimated/target nitrogen content of
!! |yield used in autofertilization
!! trapeff(:) |none |filter strip trapping efficiency (used for
!! |everything but bacteria)
!! urblu(:) |none |urban land type identification number from
!! |urban.dat
!! usle_p(:) |none |USLE equation support practice (P) factor
!! manure_kg(:,:,:) |(kg/ha)/day |dry weight of manure deposited on HRU
!! |daily
!! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -