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

ano3 anora anors bk bn1 bn2 bn3 bnu1 bnu2 bp1 bp2 bp3 bpu1 bpu2 cdn cmn cnb csf degNgrw degNsub degNsur degPsur dflow dkd humn inuhd inusb inutr percn plab pma pms porg rcn retNgrw retNsub retNsur retPsur salpf sasnf saspf sbnup sbpup sdnit sfomn sfomp shumn shump ssf ssfn strsn strsp uap uno3 xnflow yno3 yon yph ysp

Subroutines

dealloc_nutrient nutrient_allocate nutrient_fertilisation nutrient_initialise nutrient_leaching nutrient_nitrate_cycle nutrient_nitrate_leaching nutrient_nitrate_uptake nutrient_phosphorus_cycle nutrient_phosphorus_loss nutrient_phosphorus_uptake vegetation_nutrient_stress

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

Contents

Variables

Subroutines

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