manure_allocation_module

routines for hydrograph module

Uses

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

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
type(manure_demand_amount),	public		::	manure_amtz
type(source_manure_output),	public		::	malloz
type(manure_allocation),	public,	dimension(:), allocatable	::	mallo
type(mallo_header),	public		::	mallo_hdr
type(mallo_header_units),	public		::	mallo_hdr_units

Interfaces

public interface operator (+)

public function mallout_add(mallo1, mallo2) result(mallo3)

Arguments

Type	Intent	Optional	Attributes		Name
type(source_manure_output),	intent(in)			::	mallo1
type(source_manure_output),	intent(in)			::	mallo2

Return Value type(source_manure_output)

public interface operator (/)

public function mallo_div_const(mallo1, const) result(mallo2)

Arguments

Type	Intent	Optional	Attributes		Name
type(source_manure_output),	intent(in)			::	mallo1
real,	intent(in)			::	const

Return Value type(source_manure_output)

Derived Types

type, public :: manure_demand_amount

Components

Type	Visibility		Name		Initial
integer,	public	::	mallo_obj	=	0
integer,	public	::	src_obj	=	0
real,	public	::	app_t_ha	=	0.
integer,	public	::	app_method	=	0

type, public :: source_manure_output

Components

Type	Visibility		Name		Initial
real,	public	::	stor	=	0.
real,	public	::	prod	=	0.
real,	public	::	withdr	=	0.

type, public :: manure_source_objects

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	num	=	0
character(len=3),	public		::	mois_typ	=	""
character(len=25),	public		::	manure_typ	=	""
real,	public		::	lat	=	0.
real,	public		::	long	=	0.
real,	public		::	stor_init	=	0.
real,	public		::	stor_max	=	0.
real,	public,	dimension (12)	::	prod_mon	=	0.
integer,	public		::	fertdb	=	0
type(source_manure_output),	public		::	bal_d
type(source_manure_output),	public		::	bal_m
type(source_manure_output),	public		::	bal_y
type(source_manure_output),	public		::	bal_a

type, public :: manure_demand_objects

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	num	=	0
character(len=10),	public		::	ob_typ	=	""
integer,	public		::	ob_num	=	0
character(len=25),	public		::	dtbl	=	""
character(len=2),	public		::	right	=	""
integer,	public		::	dtbl_num	=	0
type(manure_demand_amount),	public		::	manure_amt
real,	public,	dimension(:), allocatable	::	withdr
real,	public,	dimension(:), allocatable	::	withdr_m
real,	public,	dimension(:), allocatable	::	withdr_y
real,	public,	dimension(:), allocatable	::	withdr_a

type, public :: manure_allocation

Components

Type	Visibility	Attributes		Name		Initial
character(len=25),	public		::	name	=	""
character(len=25),	public		::	rule_typ	=	""
integer,	public		::	src_obs	=	0
integer,	public		::	dmd_obs	=	0
type(source_manure_output),	public		::	tot
type(manure_source_objects),	public,	dimension(:), allocatable	::	src
type(manure_demand_objects),	public,	dimension(:), allocatable	::	dmd

type, public :: mallo_header

Components

Type	Visibility		Name		Initial
character(len=6),	public	::	day	=	" jday"
character(len=6),	public	::	mo	=	" mon"
character(len=6),	public	::	day_mo	=	" day "
character(len=6),	public	::	yrc	=	" yr "
character(len=8),	public	::	idmd	=	" unit "
character(len=16),	public	::	dmd_typ	=	"dmd_typ "
character(len=16),	public	::	dmd_num	=	" dmd_num "
character(len=12),	public	::	src1_obj	=	" src1_obj "
character(len=12),	public	::	src1_typ	=	" src1_typ "
character(len=12),	public	::	src1_num	=	" src1_num "
character(len=15),	public	::	dmd1	=	" demand "	ha-m \|demand - muni or irrigation
character(len=15),	public	::	s1out	=	"src1_withdraw "	ha-m \|withdrawal from source 1
character(len=12),	public	::	s1un	=	" src1_unmet"	ha-m \|unmet from source 1
character(len=12),	public	::	src2_typ	=	" src2_typ "
character(len=12),	public	::	src2_num	=	" src2_num "
character(len=15),	public	::	dmd2	=	" demand "	ha-m \|demand - muni or irrigation
character(len=15),	public	::	s2out	=	"src2_withdraw "	ha-m \|withdrawal from source 2
character(len=12),	public	::	s2un	=	" src2_unmet"	ha-m \|unmet from source 2
character(len=12),	public	::	src3_typ	=	" src3_typ "
character(len=12),	public	::	src3_num	=	" src3_num "
character(len=15),	public	::	dmd3	=	" demand "	ha-m \|demand - muni or irrigation
character(len=15),	public	::	s3out	=	"src3_withdraw "	ha-m \|withdrawal from source 3
character(len=12),	public	::	s3un	=	" src3_unmet"	ha-m \|unmet from source 3

type, public :: mallo_header_units

Components

Type	Visibility		Name		Initial
character(len=8),	public	::	day	=	" "
character(len=8),	public	::	mo	=	" "
character(len=8),	public	::	day_mo	=	" "
character(len=8),	public	::	yrc	=	" "
character(len=8),	public	::	idmd	=	" "
character(len=16),	public	::	dmd_typ	=	" "
character(len=16),	public	::	dmd_num	=	" "
character(len=12),	public	::	src1_obj	=	" "
character(len=12),	public	::	src1_typ	=	" "
character(len=8),	public	::	src1_num	=	" "
character(len=15),	public	::	dmd1	=	"m^3 "	ha-m \|demand - muni or irrigation
character(len=15),	public	::	s1out	=	"m^3 "	ha-m \|withdrawal from source 1
character(len=9),	public	::	s1un	=	"m^3 "	ha-m \|unmet from source 1
character(len=15),	public	::	src2_typ	=	" "
character(len=15),	public	::	src2_num	=	" "
character(len=15),	public	::	dmd2	=	"m^3 "	ha-m \|demand - muni or irrigation
character(len=15),	public	::	s2out	=	"m^3 "	ha-m \|withdrawal from source 2
character(len=15),	public	::	s2un	=	"m^3 "	ha-m \|unmet from source 2
character(len=15),	public	::	src3_typ	=	" "
character(len=15),	public	::	src3_num	=	" "
character(len=15),	public	::	dmd3	=	"m^3 "	ha-m \|demand - muni or irrigation
character(len=15),	public	::	s3out	=	"m^3 "	ha-m \|withdrawal from source 3
character(len=15),	public	::	s3un	=	"m^3 "	ha-m \|unmet from source 3

Functions

public function mallout_add(mallo1, mallo2) result(mallo3)

Arguments

Type	Intent	Optional	Attributes		Name
type(source_manure_output),	intent(in)			::	mallo1
type(source_manure_output),	intent(in)			::	mallo2

Return Value type(source_manure_output)

public function mallo_div_const(mallo1, const) result(mallo2)

Arguments

Type	Intent	Optional	Attributes		Name
type(source_manure_output),	intent(in)			::	mallo1
real,	intent(in)			::	const

manure_allocation_module Module

Contents

Variables

Interfaces

Derived Types

Functions

Uses

Used by

Variables

Interfaces

public interface operator (+)

public function mallout_add(mallo1, mallo2) result(mallo3)

Arguments

Return Value type(source_manure_output)

public interface operator (/)

public function mallo_div_const(mallo1, const) result(mallo2)

Arguments

Return Value type(source_manure_output)

Derived Types

type, public :: manure_demand_amount

Components

type, public :: source_manure_output

Components

type, public :: manure_source_objects

Components

type, public :: manure_demand_objects

Components

type, public :: manure_allocation

Components

type, public :: mallo_header

Components

type, public :: mallo_header_units

Components

Functions

public function mallout_add(mallo1, mallo2) result(mallo3)

Arguments

Return Value type(source_manure_output)

public function mallo_div_const(mallo1, const) result(mallo2)

Arguments

Return Value type(source_manure_output)