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

alai alai0 ald1 ald2 alfa almn bDormancy biomass_total_output_id blai co2ref co2sce daylen daylmn dlai dm dormhr ep epco g gwqLastday heat_unit_fract_output_id ialpha ibeta ic3c4 idorm ilcc leaf_area_index_output_id nih olai potentl rd root_depth_output_id rsd rzmaxup sdt sdw sla tb to transpiration_output_id ts tsav ub uob vegetation_temp_stress_oid vegetation_water_stress_oid ws wsav

Subroutines

dealloc_vegetation vegetation_adjust_energy_ratio vegetation_allocate vegetation_initialise vegetation_prepare_parameters vegetation_process vegetation_s_curve vegetation_s_curve_parameters vegetation_store_output vegetation_temperature_stress vegetation_water_stress

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	alai
real(kind=dp),	public,	save, dimension(:), allocatable	::	alai0
real(kind=dp),	public,	save, dimension(:), allocatable	::	ald1
real(kind=dp),	public,	save, dimension(:), allocatable	::	ald2
real(kind=dp),	public,	save	::	alfa
real(kind=dp),	public,	save, dimension(:), allocatable	::	almn
logical,	public,	save	::	bDormancy	=	.false.
integer,	public		::	biomass_total_output_id	=	0
real(kind=dp),	public,	save, dimension(:), allocatable	::	blai
real(kind=dp),	public,	save	::	co2ref
real(kind=dp),	public,	save	::	co2sce
real(kind=dp),	public,	save, dimension(:), allocatable	::	daylen
real(kind=dp),	public,	save, dimension(:), allocatable	::	daylmn
real(kind=dp),	public,	save, dimension(:), allocatable	::	dlai
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	dm
real(kind=dp),	public,	save, dimension(:), allocatable	::	dormhr
real(kind=dp),	public,	save	::	ep
real(kind=dp),	public,	save	::	epco	=	1.
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	g
real(kind=dp),	public,	save, dimension(:), allocatable	::	gwqLastday
integer,	public		::	heat_unit_fract_output_id	=	0
integer,	public,	save	::	ialpha
integer,	public,	save	::	ibeta
real(kind=dp),	public,	save	::	ic3c4
integer,	public,	save, dimension(:, :), allocatable	::	idorm
integer,	public,	save, dimension(:), allocatable	::	ilcc
integer,	public		::	leaf_area_index_output_id	=	0
integer,	public,	parameter	::	nih	=	7
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	olai
real(kind=dp),	public,	save	::	potentl
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	rd
integer,	public		::	root_depth_output_id	=	0
real(kind=dp),	public,	save, dimension(:, :, :), allocatable	::	rsd
real(kind=dp),	public,	save	::	rzmaxup	=	0.
real(kind=dp),	public,	save	::	sdt	=	0.
real(kind=dp),	public,	save	::	sdw	=	0.
real(kind=dp),	public,	save, dimension(:), allocatable	::	sla
real(kind=dp),	public,	save, dimension(:), allocatable	::	tb
real(kind=dp),	public,	save, dimension(:), allocatable	::	to
integer,	public		::	transpiration_output_id	=	0
real(kind=dp),	public,	save	::	ts
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	tsav
real(kind=dp),	public		::	ub	=	3.065
real(kind=dp),	public,	save	::	uob
integer,	public		::	vegetation_temp_stress_oid	=	0
integer,	public		::	vegetation_water_stress_oid	=	0
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	ws
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	wsav

Subroutines

public subroutine dealloc_vegetation()

Arguments

None

public subroutine vegetation_adjust_energy_ratio(j, je, beadj, be, nucr, tx)

Arguments

Type	Intent	Attributes		Name
integer			::	j
integer			::	je
real(kind=dp)			::	beadj
real(kind=dp),	intent(in),	dimension(:)	::	be
integer,	intent(in),	dimension(:, :)	::	nucr
real(kind=dp),	intent(in),	dimension(:)	::	tx

public subroutine vegetation_allocate(mb, nlut, mcrdb, meap)

Arguments

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

public subroutine vegetation_initialise(mb, nlut, mcrdb, meap, lat)

Arguments

Type	Intent		Name
integer,	intent(in)	::	mb
integer,	intent(in)	::	nlut
integer,	intent(in)	::	mcrdb
integer,	intent(in)	::	meap
real(kind=dp),	intent(in)	::	lat(:)

public subroutine vegetation_prepare_parameters(lat)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	lat(:)

public subroutine vegetation_process(j, je, k, n, wet, additionalGwUptake, avt, bWAM_Module, be, cva, dart, daycounter, fc, flu, frar, huharv, humi, hun, icc, ida, iy, iyr, mstruc, nbyr, nn, nucr, nveg, ra, rdmx, rwt, sbar, sep, snup, spup, ste, sumfc, swe, tmn, to, tx, uap, z, alai, olai)

Arguments

Type	Intent	Attributes		Name
integer			::	j
integer			::	je
integer			::	k
integer			::	n
integer			::	wet
real(kind=dp),	intent(inout),	dimension(:)	::	additionalGwUptake
real(kind=dp),	intent(in),	dimension(:)	::	avt
logical,	intent(in)		::	bWAM_Module
real(kind=dp),	intent(in),	dimension(:)	::	be
real(kind=dp),	intent(inout),	dimension(:, :)	::	cva
real(kind=dp),	intent(in),	dimension(:)	::	dart
integer,	intent(in)		::	daycounter
real(kind=dp),	intent(in),	dimension(:, :)	::	fc
real(kind=dp),	intent(in),	dimension(:)	::	flu
real(kind=dp),	intent(in),	dimension(:, :)	::	frar
real(kind=dp),	intent(inout),	dimension(:, :)	::	huharv
real(kind=dp),	intent(in),	dimension(:)	::	humi
integer,	intent(in),	dimension(:)	::	hun
integer,	intent(in)		::	icc
integer,	intent(in)		::	ida
integer,	intent(in)		::	iy
integer,	intent(in)		::	iyr
integer,	intent(in),	dimension(:, :, :)	::	mstruc
integer,	intent(in)		::	nbyr
integer,	intent(in)		::	nn
integer,	intent(in),	dimension(:, :)	::	nucr
integer,	intent(in),	dimension(:, :)	::	nveg
real(kind=dp),	intent(in),	dimension(:)	::	ra
real(kind=dp),	intent(in),	dimension(:)	::	rdmx
real(kind=dp),	intent(inout),	dimension(:, :)	::	rwt
real(kind=dp),	intent(in),	dimension(:)	::	sbar
real(kind=dp),	intent(inout)		::	sep
real(kind=dp),	intent(inout),	dimension(:, :)	::	snup
real(kind=dp),	intent(inout),	dimension(:, :)	::	spup
real(kind=dp),	intent(inout),	dimension(:, :, :)	::	ste
real(kind=dp),	intent(in),	dimension(:)	::	sumfc
real(kind=dp),	intent(in),	dimension(:, :)	::	swe
real(kind=dp),	intent(in),	dimension(:)	::	tmn
real(kind=dp),	intent(in),	dimension(:)	::	to
real(kind=dp),	intent(in),	dimension(:)	::	tx
real(kind=dp),	intent(out)		::	uap
real(kind=dp),	intent(in),	dimension(:, :)	::	z
real(kind=dp),	intent(inout),	dimension(:, :)	::	alai
real(kind=dp),	intent(inout),	dimension(:, :)	::	olai

public subroutine vegetation_s_curve(x1, x2, x3, x4)

Arguments

Type		Name
real(kind=dp)	::	x1
real(kind=dp)	::	x2
real(kind=dp)	::	x3
real(kind=dp)	::	x4

public subroutine vegetation_s_curve_parameters(x1, x2, x3, x4, x5, x6)

Arguments

Type		Name
real(kind=dp)	::	x1
real(kind=dp)	::	x2
real(kind=dp)	::	x3
real(kind=dp)	::	x4
real(kind=dp)	::	x5
real(kind=dp)	::	x6

public subroutine vegetation_store_output(j, je)

Arguments

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

public subroutine vegetation_temperature_stress(tgx, j, je, n, avt, nucr, nveg, tmn, to, tx)

Arguments

Type	Intent	Attributes		Name
real(kind=dp)			::	tgx
integer			::	j
integer			::	je
integer			::	n
real(kind=dp),	intent(in),	dimension(:)	::	avt
integer,	intent(in),	dimension(:, :)	::	nucr
integer,	intent(in),	dimension(:, :)	::	nveg
real(kind=dp),	intent(in),	dimension(:)	::	tmn
real(kind=dp),	intent(in),	dimension(:)	::	to
real(kind=dp),	intent(in),	dimension(:)	::	tx

public subroutine vegetation_water_stress(j, je, k, n, wet, additionalGwUptake, bWAM_Module, dart, daycounter, fc, frar, humi, icc, ida, iy, iyr, mstruc, nbyr, nn, nucr, nveg, rdmx, sbar, sep, ste, z)

Plant and total irrigation requirements are calculated here. If irr_opt == 1, these requirements are written to the output files, but the amount of water used for irrigation will be overwritten by input time series in: wam_withdraw_Transfer_Out() !!!

Arguments

Type	Intent	Attributes		Name
integer			::	j
integer			::	je
integer			::	k
integer			::	n
integer			::	wet
real(kind=dp),	intent(inout),	dimension(:)	::	additionalGwUptake
logical,	intent(in)		::	bWAM_Module
real(kind=dp),	intent(in),	dimension(:)	::	dart
integer,	intent(in)		::	daycounter
real(kind=dp),	intent(in),	dimension(:, :)	::	fc
real(kind=dp),	intent(in),	dimension(:, :)	::	frar
real(kind=dp),	intent(in),	dimension(:)	::	humi
integer,	intent(in)		::	icc
integer,	intent(in)		::	ida
integer,	intent(in)		::	iy
integer,	intent(in)		::	iyr
integer,	intent(in),	dimension(:, :, :)	::	mstruc
integer,	intent(in)		::	nbyr
integer,	intent(in)		::	nn
integer,	intent(in),	dimension(:, :)	::	nucr
integer,	intent(in),	dimension(:, :)	::	nveg
real(kind=dp),	intent(in),	dimension(:)	::	rdmx
real(kind=dp),	intent(in),	dimension(:)	::	sbar
real(kind=dp),	intent(inout)		::	sep
real(kind=dp),	intent(inout),	dimension(:, :, :)	::	ste
real(kind=dp),	intent(in),	dimension(:, :)	::	z

vegetation Module

Contents

Variables

Subroutines

Uses

Used by

Contents

Variables

Subroutines

Variables

Subroutines

public subroutine dealloc_vegetation()

Arguments

public subroutine vegetation_adjust_energy_ratio(j, je, beadj, be, nucr, tx)

Arguments

public subroutine vegetation_allocate(mb, nlut, mcrdb, meap)

Arguments

public subroutine vegetation_initialise(mb, nlut, mcrdb, meap, lat)

Arguments

public subroutine vegetation_prepare_parameters(lat)

Arguments

public subroutine vegetation_process(j, je, k, n, wet, additionalGwUptake, avt, bWAM_Module, be, cva, dart, daycounter, fc, flu, frar, huharv, humi, hun, icc, ida, iy, iyr, mstruc, nbyr, nn, nucr, nveg, ra, rdmx, rwt, sbar, sep, snup, spup, ste, sumfc, swe, tmn, to, tx, uap, z, alai, olai)

Arguments

public subroutine vegetation_s_curve(x1, x2, x3, x4)

Arguments

public subroutine vegetation_s_curve_parameters(x1, x2, x3, x4, x5, x6)

Arguments

public subroutine vegetation_store_output(j, je)

Arguments

public subroutine vegetation_temperature_stress(tgx, j, je, n, avt, nucr, nveg, tmn, to, tx)

Arguments

public subroutine vegetation_water_stress(j, je, k, n, wet, additionalGwUptake, bWAM_Module, dart, daycounter, fc, frar, humi, icc, ida, iy, iyr, mstruc, nbyr, nn, nucr, nveg, rdmx, sbar, sep, ste, z)

Arguments