nutrient – 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.

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=dp),	public,	save, dimension(:, :, :), allocatable	::	ano3
real(kind=dp),	public,	save, dimension(:, :, :), allocatable	::	anora
real(kind=dp),	public,	save, dimension(:, :, :), allocatable	::	anors
real(kind=dp),	public,	save	::	bk	=	.0006
real(kind=dp),	public,	save, dimension(:), allocatable	::	bn1
real(kind=dp),	public,	save, dimension(:), allocatable	::	bn2
real(kind=dp),	public,	save, dimension(:), allocatable	::	bn3
real(kind=dp),	public,	save, dimension(:), allocatable	::	bnu1
real(kind=dp),	public,	save, dimension(:), allocatable	::	bnu2
real(kind=dp),	public,	save, dimension(:), allocatable	::	bp1
real(kind=dp),	public,	save, dimension(:), allocatable	::	bp2
real(kind=dp),	public,	save, dimension(:), allocatable	::	bp3
real(kind=dp),	public,	save, dimension(:), allocatable	::	bpu1
real(kind=dp),	public,	save, dimension(:), allocatable	::	bpu2
real(kind=dp),	public,	save	::	cdn	=	-1.4
real(kind=dp),	public,	save	::	cmn	=	.0003
real(kind=dp),	public,	save	::	cnb
real(kind=dp),	public,	save	::	csf
real(kind=dp),	public,	save	::	degNgrw	=	0.3
real(kind=dp),	public,	save	::	degNsub	=	0.3
real(kind=dp),	public,	save	::	degNsur	=	0.02
real(kind=dp),	public,	save	::	degPsur	=	0.02
real(kind=dp),	public,	save, dimension(:, :, :), allocatable	::	dflow
real(kind=dp),	public,	save	::	dkd	=	175.
real(kind=dp),	public,	save	::	humn
integer,	public,	save	::	inuhd	=	1
integer,	public,	save	::	inusb	=	1
integer,	public,	save	::	inutr	=	1
logical,	public,	save	::	nutrient_on	=	.false.
real(kind=dp),	public,	save	::	percn
real(kind=dp),	public,	save, dimension(:, :, :), allocatable	::	plab
real(kind=dp),	public,	save, dimension(:, :, :), allocatable	::	pma
real(kind=dp),	public,	save, dimension(:, :, :), allocatable	::	pms
real(kind=dp),	public,	save, dimension(:, :, :), allocatable	::	porg
real(kind=dp),	public,	save	::	rcn	=	1.
real(kind=dp),	public,	save	::	retNgrw	=	15000.0
real(kind=dp),	public,	save	::	retNsub	=	365.0
real(kind=dp),	public,	save	::	retNsur	=	5.0
real(kind=dp),	public,	save	::	retPsur	=	20.0
real(kind=dp),	public,	save	::	salpf
real(kind=dp),	public,	save	::	sasnf	=	0.
real(kind=dp),	public,	save	::	saspf
real(kind=dp),	public,	save	::	sbnup	=	0.
real(kind=dp),	public,	save	::	sbpup	=	0.
real(kind=dp),	public,	save	::	sdnit	=	0.
real(kind=dp),	public,	save	::	sfomn	=	0.
real(kind=dp),	public,	save	::	sfomp
real(kind=dp),	public,	save	::	shumn	=	0.
real(kind=dp),	public,	save	::	shump
real(kind=dp),	public,	save	::	ssf
real(kind=dp),	public,	save	::	ssfn
real(kind=dp),	public,	save	::	strsn
real(kind=dp),	public,	save	::	strsp
real(kind=dp),	public,	save	::	uap
real(kind=dp),	public,	save	::	uno3
real(kind=dp),	public,	save, dimension(20)	::	xnflow
real(kind=dp),	public,	save	::	yno3
real(kind=dp),	public,	save	::	yon
real(kind=dp),	public,	save	::	yph
real(kind=dp),	public,	save	::	ysp

Subroutines

public subroutine dealloc_nutrient()

Arguments

None

public subroutine nutrient_allocate(mb, mcrdb, meap, ml)

Arguments

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

public subroutine nutrient_fertilisation(j, je, ii, fen, feno, fep)

Arguments

Type	Intent	Attributes		Name
integer			::	j
integer			::	je
integer			::	ii
real(kind=dp),	intent(in),	dimension(:)	::	fen
real(kind=dp),	intent(in),	dimension(:)	::	feno
real(kind=dp),	intent(in),	dimension(:)	::	fep

public subroutine nutrient_initialise(mb, mcrdb, meap, ml)

Arguments

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

public subroutine nutrient_leaching(j, jea, k, bd, cbn, flate, flu, fon, fop, frar, nn, poe, preinf, psp, qd, rsd, rtn, ste, te, ul, yone, yphe)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	j
integer,	intent(in)		::	jea
integer,	intent(in)		::	k
real(kind=dp),	intent(in),	dimension(:)	::	bd
real(kind=dp),	intent(in),	dimension(:, :)	::	cbn
real(kind=dp),	intent(in),	dimension(:, :, :)	::	flate
real(kind=dp),	intent(in),	dimension(:)	::	flu
real(kind=dp),	intent(inout),	dimension(:, :, :)	::	fon
real(kind=dp),	intent(inout),	dimension(:, :, :)	::	fop
real(kind=dp),	intent(in),	dimension(:, :)	::	frar
integer,	intent(in)		::	nn
real(kind=dp),	intent(in),	dimension(:, :, :)	::	poe
real(kind=dp),	intent(in),	dimension(:, :)	::	preinf
real(kind=dp),	intent(in)		::	psp
real(kind=dp),	intent(in)		::	qd
real(kind=dp),	intent(inout),	dimension(:, :, :)	::	rsd
real(kind=dp),	intent(in)		::	rtn
real(kind=dp),	intent(in),	dimension(:, :, :)	::	ste
real(kind=dp),	intent(in),	dimension(:, :, :)	::	te
real(kind=dp),	intent(in),	dimension(:, :)	::	ul
real(kind=dp),	intent(inout),	dimension(:)	::	yone
real(kind=dp),	intent(inout),	dimension(:)	::	yphe

public subroutine nutrient_nitrate_cycle(j, je, k, cbn, flu, fon, fop, frar, nn, rsd, rtn, ste, te, ul, yone)

Arguments

Type	Intent	Attributes		Name
integer			::	j
integer			::	je
integer			::	k
real(kind=dp),	intent(in),	dimension(:, :)	::	cbn
real(kind=dp),	intent(in),	dimension(:)	::	flu
real(kind=dp),	intent(inout),	dimension(:, :, :)	::	fon
real(kind=dp),	intent(in),	dimension(:, :, :)	::	fop
real(kind=dp),	intent(in),	dimension(:, :)	::	frar
integer,	intent(in)		::	nn
real(kind=dp),	intent(inout),	dimension(:, :, :)	::	rsd
real(kind=dp),	intent(in)		::	rtn
real(kind=dp),	intent(in),	dimension(:, :, :)	::	ste
real(kind=dp),	intent(in),	dimension(:, :, :)	::	te
real(kind=dp),	intent(in),	dimension(:, :)	::	ul
real(kind=dp),	intent(inout),	dimension(:)	::	yone

public subroutine nutrient_nitrate_leaching(j, je, k, flate, nn, poe, preinf, qd, ul)

Arguments

Type	Intent	Attributes		Name
integer			::	j
integer			::	je
integer			::	k
real(kind=dp),	intent(in),	dimension(:, :, :)	::	flate
integer,	intent(in)		::	nn
real(kind=dp),	intent(in),	dimension(:, :, :)	::	poe
real(kind=dp),	intent(in),	dimension(:, :)	::	preinf
real(kind=dp),	intent(in)		::	qd
real(kind=dp),	intent(in),	dimension(:, :)	::	ul

public subroutine nutrient_nitrate_uptake(j, je, nv, dm, flu, frar, g, ida, nn, snup)

Arguments

Type	Intent	Attributes		Name
integer			::	j
integer			::	je
integer			::	nv
real(kind=dp),	intent(in),	dimension(:, :)	::	dm
real(kind=dp),	intent(in),	dimension(:)	::	flu
real(kind=dp),	intent(in),	dimension(:, :)	::	frar
real(kind=dp),	intent(in),	dimension(:, :)	::	g
integer,	intent(in)		::	ida
integer,	intent(in)		::	nn
real(kind=dp),	intent(inout),	dimension(:, :)	::	snup

public subroutine nutrient_phosphorus_cycle(j, je, flu, fon, fop, frar, nn, psp, rsd, yphe)

Arguments

Type	Intent	Attributes		Name
integer			::	j
integer			::	je
real(kind=dp),	intent(in),	dimension(:)	::	flu
real(kind=dp),	intent(in),	dimension(:, :, :)	::	fon
real(kind=dp),	intent(inout),	dimension(:, :, :)	::	fop
real(kind=dp),	intent(in),	dimension(:, :)	::	frar
integer,	intent(in)		::	nn
real(kind=dp),	intent(in)		::	psp
real(kind=dp),	intent(in),	dimension(:, :, :)	::	rsd
real(kind=dp),	intent(inout),	dimension(:)	::	yphe

public subroutine nutrient_phosphorus_loss(j, je, k, bd, qd)

Arguments

Type	Intent	Attributes		Name
integer			::	j
integer			::	je
integer			::	k
real(kind=dp),	intent(in),	dimension(:)	::	bd
real(kind=dp),	intent(in)		::	qd

public subroutine nutrient_phosphorus_uptake(j, je, nv, dm, flu, frar, g, ida, nn, spup)

Arguments

Type	Intent	Attributes		Name
integer			::	j
integer			::	je
integer			::	nv
real(kind=dp),	intent(in),	dimension(:, :)	::	dm
real(kind=dp),	intent(in),	dimension(:)	::	flu
real(kind=dp),	intent(in),	dimension(:, :)	::	frar
real(kind=dp),	intent(in),	dimension(:, :)	::	g
integer,	intent(in)		::	ida
integer,	intent(in)		::	nn
real(kind=dp),	intent(inout),	dimension(:, :)	::	spup

public subroutine vegetation_nutrient_stress(u1, u2, uu)

Arguments

Type		Name
real(kind=dp)	::	u1
real(kind=dp)	::	u2
real(kind=dp)	::	uu

nutrient Module

Contents

Variables

Subroutines

Uses

Used by

Variables

Subroutines

public subroutine dealloc_nutrient()

Arguments

public subroutine nutrient_allocate(mb, mcrdb, meap, ml)

Arguments

public subroutine nutrient_fertilisation(j, je, ii, fen, feno, fep)

Arguments

public subroutine nutrient_initialise(mb, mcrdb, meap, ml)

Arguments

public subroutine nutrient_leaching(j, jea, k, bd, cbn, flate, flu, fon, fop, frar, nn, poe, preinf, psp, qd, rsd, rtn, ste, te, ul, yone, yphe)

Arguments

public subroutine nutrient_nitrate_cycle(j, je, k, cbn, flu, fon, fop, frar, nn, rsd, rtn, ste, te, ul, yone)

Arguments

public subroutine nutrient_nitrate_leaching(j, je, k, flate, nn, poe, preinf, qd, ul)

Arguments

public subroutine nutrient_nitrate_uptake(j, je, nv, dm, flu, frar, g, ida, nn, snup)

Arguments

public subroutine nutrient_phosphorus_cycle(j, je, flu, fon, fop, frar, nn, psp, rsd, yphe)

Arguments

public subroutine nutrient_phosphorus_loss(j, je, k, bd, qd)

Arguments

public subroutine nutrient_phosphorus_uptake(j, je, nv, dm, flu, frar, g, ida, nn, spup)

Arguments

public subroutine vegetation_nutrient_stress(u1, u2, uu)

Arguments