erosion_module Module

add erosion outputs for each event divide erosion outputs by number of events

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.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Variables

Type	Visibility	Attributes		Name		Initial
type(erosion_output),	public,	dimension(:), allocatable	::	ero_output
type(erosion_output_header),	public		::	ero_hdr
type(erosion_header_units),	public		::	ero_hdr_units
type(erosion_output_variables),	public		::	ero_1
type(erosion_output_variables),	public		::	ero_2
type(erosion_output_variables),	public		::	ero_3

Interfaces

public interface operator (+)

public function ero_add(ero_1, ero_2) result(ero_3)

Arguments

Type	Intent	Optional	Attributes		Name
type(erosion_output_variables),	intent(in)			::	ero_1
type(erosion_output_variables),	intent(in)			::	ero_2

Return Value type(erosion_output_variables)

public interface operator (/)

public function ero_divide(ero_1, const) result(ero_2)

Arguments

Type	Intent	Optional	Attributes		Name
type(erosion_output_variables),	intent(in)			::	ero_1
real,	intent(in)			::	const

Return Value type(erosion_output_variables)

Derived Types

type, public :: erosion_output_variables

Components

Type	Visibility	Attributes		Name		Initial
real,	public		::	sedyld	=	0.
real,	public		::	precip	=	0.
real,	public		::	surfq	=	0.
real,	public		::	peak	=	0.
real,	public		::	k	=	0.
real,	public		::	s	=	0.
real,	public		::	l	=	0.
real,	public		::	ls	=	0.
real,	public		::	p	=	0.
real,	public		::	c	=	0.
real,	public		::	rsd_m	=	0.
real,	public		::	rsd_pctcov	=	0.
real,	public		::	rsd_cfac	=	0.
real,	public		::	can_lai3	=	0.
real,	public		::	canhgt	=	0.
real,	public		::	can_cfac	=	0.

type, public :: erosion_output

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	n_events	=	0.
type(erosion_output_variables),	public		::	ero_d
type(erosion_output_variables),	public		::	ero_ave

type, public :: erosion_output_header

Components

Type	Visibility	Attributes		Name		Initial
character(len=6),	public		::	hru	=	" hru"
character(len=6),	public		::	neve	=	"events"
character(len=6),	public		::	sedyld	=	"sedyld"
character(len=6),	public		::	precip	=	"precip"
character(len=9),	public		::	peak	=	"peak_rate"
character(len=8),	public		::	k	=	"k_factor"
character(len=16),	public		::	s	=	" slope"
character(len=12),	public		::	l	=	" length"
character(len=12),	public		::	ls	=	" ls_factor"
character(len=12),	public		::	p	=	" p_factor"
character(len=12),	public		::	c	=	" c_factor"
character(len=12),	public		::	rsd_m	=	" rsd_m"
character(len=12),	public		::	rsd_pctcov	=	" rsd_pctcov"
character(len=12),	public		::	rsd_cfac	=	" rsd_cfac"
character(len=12),	public		::	can_lai3	=	" can_lai3"
character(len=12),	public		::	canhgt	=	" can_hgt"
character(len=12),	public		::	can_cfac	=	" can_cfac"

type, public :: erosion_header_units

Components

Type	Visibility	Attributes		Name		Initial
character(len=6),	public		::	hru	=	" "
character(len=6),	public		::	neve	=	" "
character(len=6),	public		::	sedyld	=	" t/ha"
character(len=6),	public		::	precip	=	" mm"
character(len=8),	public		::	peak	=	" m3/s"
character(len=8),	public		::	k	=	" "
character(len=16),	public		::	s	=	" m/m"
character(len=12),	public		::	l	=	" m"
character(len=12),	public		::	ls	=	" "
character(len=12),	public		::	p	=	" "
character(len=12),	public		::	c	=	" "
character(len=12),	public		::	rsd_m	=	" kg/ha"
character(len=12),	public		::	rsd_pctcov	=	" percent"
character(len=12),	public		::	rsd_cfac	=	" "
character(len=12),	public		::	can_lai3	=	" "
character(len=12),	public		::	canhgt	=	" m"
character(len=12),	public		::	can_cfac	=	" "

Functions

public function ero_add(ero_1, ero_2) result(ero_3)

Arguments

Type	Intent	Optional	Attributes		Name
type(erosion_output_variables),	intent(in)			::	ero_1
type(erosion_output_variables),	intent(in)			::	ero_2

Return Value type(erosion_output_variables)

public function ero_divide(ero_1, const) result(ero_2)

Arguments

Type	Intent	Optional	Attributes		Name
type(erosion_output_variables),	intent(in)			::	ero_1
real,	intent(in)			::	const

Return Value type(erosion_output_variables)