callom_prt_vartypes Derived Type

type, public, extends(prt_vartypes) :: callom_prt_vartypes

Components

Type	Visibility	Attributes		Name		Initial
type(prt_vartype),	public,	allocatable	::	variables(:)
type(prt_bctype),	public,	allocatable	::	bc_inout(:)
type(prt_bctype),	public,	allocatable	::	bc_in(:)
type(prt_bctype),	public,	allocatable	::	bc_out(:)
real(kind=r8),	public		::	ode_opt_step

Type-Bound Procedures

procedure, public, non_overridable :: InitAllocate

private subroutine InitAllocate(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this

procedure, public, non_overridable :: InitPRTVartype

private subroutine InitPRTVartype(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this

procedure, public, non_overridable :: FlushBCs

private subroutine FlushBCs(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this

procedure, public, non_overridable :: InitializeInitialConditions

private subroutine InitializeInitialConditions(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this

procedure, public, non_overridable :: CheckInitialConditions

private subroutine CheckInitialConditions(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this

procedure, public, non_overridable :: RegisterBCIn

private subroutine RegisterBCIn(this, bc_id, bc_rval, bc_ival)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this
integer,	intent(in)			::	bc_id
real(kind=r8),	intent(inout),	optional,	target	::	bc_rval
integer,	intent(inout),	optional,	target	::	bc_ival

procedure, public, non_overridable :: RegisterBCOut

private subroutine RegisterBCOut(this, bc_id, bc_rval, bc_ival)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this
integer,	intent(in)			::	bc_id
real(kind=r8),	intent(inout),	optional,	target	::	bc_rval
integer,	intent(inout),	optional,	target	::	bc_ival

procedure, public, non_overridable :: RegisterBCInout => RegisterBCInOut

private subroutine RegisterBCInOut(this, bc_id, bc_rval, bc_ival)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this
integer,	intent(in)			::	bc_id
real(kind=r8),	intent(inout),	optional,	target	::	bc_rval
integer,	intent(inout),	optional,	target	::	bc_ival

procedure, public, non_overridable :: GetState

private function GetState(this, organ_id, element_id, position_id) result(state_val)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this
integer,	intent(in)			::	organ_id
integer,	intent(in)			::	element_id
integer,	intent(in),	optional		::	position_id

Return Value real(kind=r8)

procedure, public, non_overridable :: GetTurnover

private function GetTurnover(this, organ_id, element_id, position_id) result(turnover_val)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this
integer,	intent(in)			::	organ_id
integer,	intent(in)			::	element_id
integer,	intent(in),	optional		::	position_id

Return Value real(kind=r8)

procedure, public, non_overridable :: GetBurned

private function GetBurned(this, organ_id, element_id, position_id) result(burned_val)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this
integer,	intent(in)			::	organ_id
integer,	intent(in)			::	element_id
integer,	intent(in),	optional		::	position_id

Return Value real(kind=r8)

procedure, public, non_overridable :: GetNetAlloc

private function GetNetAlloc(this, organ_id, element_id, position_id) result(val_netalloc)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this
integer,	intent(in)			::	organ_id
integer,	intent(in)			::	element_id
integer,	intent(in),	optional		::	position_id

Return Value real(kind=r8)

procedure, public, non_overridable :: ZeroRates

private subroutine ZeroRates(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this

procedure, public, non_overridable :: CheckMassConservation

private subroutine CheckMassConservation(this, ipft, position_id)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this
integer,	intent(in)			::	ipft
integer,	intent(in)			::	position_id

procedure, public, non_overridable :: DeallocatePRTVartypes

private subroutine DeallocatePRTVartypes(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this

procedure, public, non_overridable :: WeightedFusePRTVartypes

private subroutine WeightedFusePRTVartypes(this, donor_prt_obj, recipient_fuse_weight)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this
class(prt_vartypes),	intent(in),		pointer	::	donor_prt_obj
real(kind=r8),	intent(in)			::	recipient_fuse_weight

procedure, public, non_overridable :: CopyPRTVartypes

private subroutine CopyPRTVartypes(this, donor_prt_obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes)				::	this
class(prt_vartypes),	intent(in),		pointer	::	donor_prt_obj

procedure, public :: DailyPRT => DailyPRTAllometricCarbon

private subroutine DailyPRTAllometricCarbon(this)

cohort%seed_prod = cohort%seed_prod + brepro_flux / hlm_freq_day cohort%dhdt = (h_sub-cohort%hite)/hlm_freq_day cohort%ddbhdt = (dbh_sub-dbh_in)/hlm_freq_day

Arguments

Type	Intent	Optional	Attributes		Name
class(callom_prt_vartypes)				::	this

procedure, public :: FastPRT => FastPRTAllometricCarbon

private subroutine FastPRTAllometricCarbon(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(callom_prt_vartypes)				::	this