growthmod Module

Contents

Subroutines

initialize_gw3 growth_gw3 update_factor_gw3 detect_start count_br_per_node detect_light_area get_old generate_pod

Subroutines

public subroutine initialize_gw3(d_connect, d_node, peti_coord, leaf_coord, max_leaf_angle, max_leaf_length, max_leaf_width, leaf_shape_rate, peti_length, max_length)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out),		allocatable	::	d_connect(:,:)
real(kind=8),	intent(out),		allocatable	::	d_node(:,:)
real(kind=8),	intent(out),		allocatable	::	peti_coord(:,:,:)
real(kind=8),	intent(out),		allocatable	::	leaf_coord(:,:,:,:)
real(kind=8),	intent(in)			::	max_leaf_angle
real(kind=8),	intent(in)			::	max_leaf_length
real(kind=8),	intent(in)			::	max_leaf_width
real(kind=8),	intent(in)			::	leaf_shape_rate
real(kind=8),	intent(in)			::	peti_length
real(kind=8),	intent(in)			::	max_length

public subroutine growth_gw3(node, d_connect, d_node, max_angle, max_length, Apical_dominance_p, max_leaf_angle, max_leaf_length, max_leaf_width, leaf_shape_rate, peti_coord, leaf_coord, peti_length)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	node
integer,	intent(inout),		allocatable	::	d_connect(:,:)
real(kind=8),	intent(inout),		allocatable	::	d_node(:,:)
real(kind=8),	intent(in)			::	max_angle
real(kind=8),	intent(in)			::	max_length
integer,	intent(in)			::	Apical_dominance_p
real(kind=8),	intent(in)			::	max_leaf_angle
real(kind=8),	intent(in)			::	max_leaf_length
real(kind=8),	intent(in)			::	max_leaf_width
real(kind=8),	intent(in)			::	leaf_shape_rate
real(kind=8),	intent(inout),		allocatable	::	peti_coord(:,:,:)
real(kind=8),	intent(inout),		allocatable	::	leaf_coord(:,:,:,:)
real(kind=8),	intent(in)			::	peti_length

public subroutine update_factor_gw3(d_connect, d_node, RUE, num_node, leaf_coord, day, daylength, limit_leaf_day, day_ID)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	d_connect(:,:)
real(kind=8),	intent(inout)			::	d_node(:,:)
real(kind=8),	intent(in)			::	RUE
integer,	intent(in)			::	num_node
real(kind=8),	intent(in)			::	leaf_coord(:,:,:,:)
integer,	intent(in)			::	day(:,:)
real(kind=8),	intent(in)			::	daylength(:)
integer,	intent(in)			::	limit_leaf_day
integer,	intent(in)			::	day_ID

public subroutine detect_start(start, finish, seedling_day, harvesting_day, day)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	start
integer,	intent(out)			::	finish
integer,	intent(in)			::	seedling_day(:)
integer,	intent(in)			::	harvesting_day(:)
integer,	intent(in)			::	day(:,:)

public subroutine count_br_per_node(node_number, br_per_node, d_connect)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	node_number
integer,	intent(out)			::	br_per_node
integer,	intent(in)			::	d_connect(:,:)

public subroutine detect_light_area(leaf_coord, light_area, total_area, node_ID, leaf_ID)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	leaf_coord(:,:,:,:)
real(kind=8),	intent(out)			::	light_area
real(kind=8),	intent(out)			::	total_area
integer,	intent(in)			::	node_ID
integer,	intent(in)			::	leaf_ID

public subroutine get_old(d_connect, limit_leaf_day)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout)			::	d_connect(:,:)
integer,	intent(in)			::	limit_leaf_day

public subroutine generate_pod(d_node, d_pod, source_convection_rate, source_limitation)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(inout)			::	d_node(:,:)
real(kind=8),	intent(inout)			::	d_pod(:,:)
real(kind=8),	intent(in)			::	source_convection_rate
real(kind=8),	intent(in)			::	source_limitation