fates_history_interface_type Derived Type

type, public :: fates_history_interface_type

Components

Type	Visibility	Attributes		Name		Initial
type(fates_history_variable_type),	public,	allocatable	::	hvars(:)
type(fates_io_variable_kind_type),	public		::	dim_kinds(fates_history_num_dim_kinds)
type(fates_io_dimension_type),	public		::	dim_bounds(fates_history_num_dimensions)
type(iovar_map_type),	public,	pointer	::	iovar_map(:)			THESE WERE EXPLICITLY PRIVATE WHEN TYPE WAS PUBLIC

Type-Bound Procedures

procedure, public :: Init

private subroutine Init(this, num_threads, fates_bounds)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(inout)			::	this
integer,	intent(in)			::	num_threads
type(fates_bounds_type),	intent(in)			::	fates_bounds

procedure, public :: SetThreadBoundsEach

private subroutine SetThreadBoundsEach(this, thread_index, thread_bounds)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(inout)			::	this
integer,	intent(in)			::	thread_index
type(fates_bounds_type),	intent(in)			::	thread_bounds

procedure, public :: initialize_history_vars

private subroutine initialize_history_vars(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(inout)			::	this

procedure, public :: assemble_history_output_types

private subroutine assemble_history_output_types(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(inout)			::	this

procedure, public :: update_history_dyn

private subroutine update_history_dyn(this, nc, nsites, sites)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type)				::	this
integer,	intent(in)			::	nc
integer,	intent(in)			::	nsites
type(ed_site_type),	intent(inout),		target	::	sites(nsites)

procedure, public :: update_history_prod

private subroutine update_history_prod(this, nc, nsites, sites, dt_tstep)

! canopy leaf carbon balance

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type)				::	this
integer,	intent(in)			::	nc
integer,	intent(in)			::	nsites
type(ed_site_type),	intent(inout),		target	::	sites(nsites)
real(kind=r8),	intent(in)			::	dt_tstep

procedure, public :: update_history_cbal

private subroutine update_history_cbal(this, nc, nsites, sites, bc_in)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type)				::	this
integer,	intent(in)			::	nc
integer,	intent(in)			::	nsites
type(ed_site_type),	intent(inout),		target	::	sites(nsites)
type(bc_in_type),	intent(in)			::	bc_in(nsites)

procedure, public :: update_history_hydraulics

private subroutine update_history_hydraulics(this, nc, nsites, sites, dt_tstep)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type)				::	this
integer,	intent(in)			::	nc
integer,	intent(in)			::	nsites
type(ed_site_type),	intent(inout),		target	::	sites(nsites)
real(kind=r8),	intent(in)			::	dt_tstep

procedure, public :: num_history_vars

private function num_history_vars(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: patch_index

private function patch_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: column_index

private function column_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levgrnd_index

private function levgrnd_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levscpf_index

private function levscpf_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levscls_index

private function levscls_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levpft_index

private function levpft_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levage_index

private function levage_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levfuel_index

private function levfuel_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levcwdsc_index

private function levcwdsc_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levcan_index

private function levcan_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levcnlf_index

private function levcnlf_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levcnlfpft_index

private function levcnlfpft_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levscag_index

private function levscag_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levscagpft_index

private function levscagpft_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levagepft_index

private function levagepft_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levheight_index

private function levheight_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levelem_index

private function levelem_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levelpft_index

private function levelpft_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levelcwd_index

private function levelcwd_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer

procedure, public :: levelage_index

private function levelage_index(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(fates_history_interface_type),	intent(in)			::	this

Return Value integer