erosion – SWIM

Uses

- utilities
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.

Used by

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.

Subroutines

dealloc_erosion erosion_allocate erosion_cklsp_factor erosion_enritchment_ratio erosion_initialise erosion_organic_nitrate_loss erosion_phosphorus_loss erosion_read_input erosion_soil_loss

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=dp),	public,	save, dimension(:), allocatable	::	chc
real(kind=dp),	public,	save	::	chcc0	=	1.
real(kind=dp),	public,	save, dimension(:), allocatable	::	chxk
real(kind=dp),	public,	save	::	chxkc0	=	1.
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	cklsp
real(kind=dp),	public,	save	::	conn
real(kind=dp),	public,	save	::	cpp
real(kind=dp),	public,	save, dimension(:), allocatable	::	css
real(kind=dp),	public,	save, dimension(:), allocatable	::	cvm
real(kind=dp),	public,	save, dimension(5)	::	dia	=	(/14.14, 3.16, 1.41, 5.48, 22.36/)
real(kind=dp),	public,	save, dimension(:), allocatable	::	ecp
real(kind=dp),	public,	save	::	er
integer,	public,	save	::	nsz	=	5
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	parsz
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	pct
real(kind=dp),	public,	save, dimension(:), allocatable	::	sl
real(kind=dp),	public,	save	::	xcklsp
real(kind=dp),	public,	save	::	xnorg
real(kind=dp),	public,	save	::	xnorgp
real(kind=dp),	public,	save	::	xporg
real(kind=dp),	public,	save	::	xpsedp
real(kind=dp),	public,	save, dimension(:), allocatable	::	yone
real(kind=dp),	public,	save, dimension(:), allocatable	::	yphe

Subroutines

public subroutine dealloc_erosion()

Arguments

None

public subroutine erosion_allocate(mb, mcrdb, meap)

Arguments

Type	Intent		Name
integer,	intent(in)	::	mb
integer,	intent(in)	::	mcrdb
integer,	intent(in)	::	meap

public subroutine erosion_cklsp_factor(j, je, k, cva, ek, igro, nucr, is_cropland, is_natural_vegetation, is_forest)

Arguments

Type	Intent	Attributes		Name
integer			::	j
integer			::	je
integer			::	k
real(kind=dp),	intent(in),	dimension(:, :)	::	cva
real(kind=dp),	intent(in),	dimension(:)	::	ek
integer,	intent(in),	dimension(:, :)	::	igro
integer,	intent(in),	dimension(:, :)	::	nucr
logical,	intent(in)		::	is_cropland
logical,	intent(in)		::	is_natural_vegetation
logical,	intent(in)		::	is_forest

public subroutine erosion_enritchment_ratio(j, da, da9, flu, pr, precip, rp, xqd, yd)

Arguments

Type	Intent	Attributes		Name
integer			::	j
real(kind=dp),	intent(in)		::	da
real(kind=dp),	intent(in)		::	da9
real(kind=dp),	intent(in),	dimension(:)	::	flu
real(kind=dp),	intent(in)		::	pr
real(kind=dp),	intent(in)		::	precip
real(kind=dp),	intent(in)		::	rp
real(kind=dp),	intent(in)		::	xqd
real(kind=dp),	intent(in)		::	yd

public subroutine erosion_initialise(mb, mcrdb, meap, subbasin_input_file_id, da, flu, stp, slope_length, tc, tp6, tp5, al, chl, chnn, chd, chss)

Arguments

Type	Intent		Name
integer,	intent(in)	::	mb
integer,	intent(in)	::	mcrdb
integer,	intent(in)	::	meap
integer,	intent(in)	::	subbasin_input_file_id
real(kind=dp),	intent(in)	::	da
real(kind=dp),	intent(in)	::	flu(:)
real(kind=dp),	intent(in)	::	stp(:)
real(kind=dp),	intent(in)	::	slope_length(:)
real(kind=dp),	intent(in)	::	tc(:)
real(kind=dp),	intent(in)	::	tp6(:)
real(kind=dp),	intent(in)	::	tp5(:)
real(kind=dp),	intent(out)	::	al(:)
real(kind=dp),	intent(in)	::	chl(:,:)
real(kind=dp),	intent(in)	::	chnn(:)
real(kind=dp),	intent(in)	::	chd(:)
real(kind=dp),	intent(in)	::	chss(:)

public subroutine erosion_organic_nitrate_loss(j, da9, yd, yon)

! if (yon.lt.xnorgp) yon = 0.

Arguments

Type	Intent		Name
integer		::	j
real(kind=dp),	intent(in)	::	da9
real(kind=dp),	intent(in)	::	yd
real(kind=dp),	intent(inout)	::	yon

public subroutine erosion_phosphorus_loss(j, da9, yd, yph)

! if (yph.lt.xporgp) yph = 0.

Arguments

Type	Intent		Name
integer		::	j
real(kind=dp),	intent(in)	::	da9
real(kind=dp),	intent(in)	::	yd
real(kind=dp),	intent(inout)	::	yph

public subroutine erosion_read_input(subbasin_input_file_id)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	subbasin_input_file_id

public subroutine erosion_soil_loss(aff, pr, xqd, yd)

Arguments

Type	Intent		Name
real(kind=dp),	intent(in)	::	aff
real(kind=dp),	intent(in)	::	pr
real(kind=dp),	intent(in)	::	xqd
real(kind=dp),	intent(inout)	::	yd

erosion Module

Contents

Variables

Subroutines

Uses

Used by

Contents

Variables

Subroutines

Variables

Subroutines

public subroutine dealloc_erosion()

Arguments

public subroutine erosion_allocate(mb, mcrdb, meap)

Arguments

public subroutine erosion_cklsp_factor(j, je, k, cva, ek, igro, nucr, is_cropland, is_natural_vegetation, is_forest)

Arguments

public subroutine erosion_enritchment_ratio(j, da, da9, flu, pr, precip, rp, xqd, yd)

Arguments

public subroutine erosion_initialise(mb, mcrdb, meap, subbasin_input_file_id, da, flu, stp, slope_length, tc, tp6, tp5, al, chl, chnn, chd, chss)

Arguments

public subroutine erosion_organic_nitrate_loss(j, da9, yd, yon)

Arguments

public subroutine erosion_phosphorus_loss(j, da9, yd, yph)

Arguments

public subroutine erosion_read_input(subbasin_input_file_id)

Arguments

public subroutine erosion_soil_loss(aff, pr, xqd, yd)

Arguments