patch_state_updater_type Derived Type

type, public :: patch_state_updater_type

Constructor

public interface patch_state_updater_type

private function constructor(bounds) result(this)

Arguments

Type	Intent	Optional	Attributes		Name
type(bounds_type),	intent(in)			::	bounds

Return Value type(patch_state_updater_type)

Type-Bound Procedures

procedure, public :: set_old_weights

private subroutine set_old_weights(this, bounds)

Arguments

Type	Intent	Optional	Attributes		Name
class(patch_state_updater_type),	intent(inout)			::	this
type(bounds_type),	intent(in)			::	bounds

procedure, public :: set_new_weights

private subroutine set_new_weights(this, bounds)

Arguments

Type	Intent	Optional	Attributes		Name
class(patch_state_updater_type),	intent(inout)			::	this
type(bounds_type),	intent(in)			::	bounds

procedure, public :: update_patch_state

private subroutine update_patch_state(this, bounds, num_filterp_with_inactive, filterp_with_inactive, var, flux_out_col_area, flux_out_grc_area, seed, seed_addition)

Arguments

Type	Intent	Optional	Attributes		Name
class(patch_state_updater_type),	intent(in)			::	this
type(bounds_type),	intent(in)			::	bounds
integer,	intent(in)			::	num_filterp_with_inactive
integer,	intent(in)			::	filterp_with_inactive(:)
real(kind=r8),	intent(inout)			::	var(bounds%begp:)
real(kind=r8),	intent(inout),	optional		::	flux_out_col_area(bounds%begp:)
real(kind=r8),	intent(inout),	optional		::	flux_out_grc_area(bounds%begp:)
real(kind=r8),	intent(in),	optional		::	seed(bounds%begp:)
real(kind=r8),	intent(inout),	optional		::	seed_addition(bounds%begp:)

procedure, public :: update_patch_state_partition_flux_by_type

private subroutine update_patch_state_partition_flux_by_type(this, bounds, num_filterp_with_inactive, filterp_with_inactive, flux1_fraction_by_pft_type, var, flux1_out, flux2_out, seed, seed_addition)

Arguments

Type	Intent	Optional	Attributes		Name
class(patch_state_updater_type),	intent(in)			::	this
type(bounds_type),	intent(in)			::	bounds
integer,	intent(in)			::	num_filterp_with_inactive
integer,	intent(in)			::	filterp_with_inactive(:)
real(kind=r8),	intent(in)			::	flux1_fraction_by_pft_type(0:)
real(kind=r8),	intent(inout)			::	var(bounds%begp:)
real(kind=r8),	intent(inout)			::	flux1_out(bounds%begp:)
real(kind=r8),	intent(inout)			::	flux2_out(bounds%begp:)
real(kind=r8),	intent(in),	optional		::	seed(bounds%begp:)
real(kind=r8),	intent(inout),	optional		::	seed_addition(bounds%begp:)

procedure, public :: old_weight_was_zero

private function old_weight_was_zero(this, bounds)

Arguments

Type	Intent	Optional	Attributes		Name
class(patch_state_updater_type),	intent(in)			::	this
type(bounds_type),	intent(in)			::	bounds

Return Value logical, (bounds%begp:bounds%endp)

procedure, public :: patch_grew

private function patch_grew(this, bounds)

Arguments

Type	Intent	Optional	Attributes		Name
class(patch_state_updater_type),	intent(in)			::	this
type(bounds_type),	intent(in)			::	bounds

Return Value logical, (bounds%begp:bounds%endp)

procedure, public :: patch_initiating

private function patch_initiating(this, bounds)

Arguments

Type	Intent	Optional	Attributes		Name
class(patch_state_updater_type),	intent(in)			::	this
type(bounds_type),	intent(in)			::	bounds

Return Value logical, (bounds%begp:bounds%endp)