inoput_gw3 Module

Contents

Subroutines

input_gw3 input_daylength gnuplot_gw3 gnuplot_leaf_gw3 output_gw3 output_factor output_harvest

Subroutines

public subroutine input_gw3(restart, max_angle, LDL, max_length, Apical_dominance_p, seedling_day, harvesting_day, RUE, max_leaf_angle, max_leaf_length, max_leaf_width, leaf_shape_rate, limit_leaf_day, peti_length, max_pod_number, source_convection_rate, source_limitation, seed_pod_rate, threshold)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	restart
real(kind=8),	intent(out)			::	max_angle
real(kind=8),	intent(out)			::	LDL
real(kind=8),	intent(out)			::	max_length
integer,	intent(out)			::	Apical_dominance_p
integer,	intent(out),		allocatable	::	seedling_day(:)
integer,	intent(out),		allocatable	::	harvesting_day(:)
real(kind=8),	intent(out)			::	RUE
real(kind=8),	intent(out)			::	max_leaf_angle
real(kind=8),	intent(out)			::	max_leaf_length
real(kind=8),	intent(out)			::	max_leaf_width
real(kind=8),	intent(out)			::	leaf_shape_rate
integer,	intent(out)			::	limit_leaf_day
real(kind=8),	intent(out)			::	peti_length
integer,	intent(out)			::	max_pod_number
real(kind=8),	intent(out)			::	source_convection_rate
real(kind=8),	intent(out)			::	source_limitation
real(kind=8),	intent(out)			::	seed_pod_rate
real(kind=8),	intent(out)			::	threshold

public subroutine input_daylength(day, daylength)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out),		allocatable	::	day(:,:)
real(kind=8),	intent(out),		allocatable	::	daylength(:)

public subroutine gnuplot_gw3(d_connect, d_node, step, day, day_ID)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	d_connect(:,:)
real(kind=8),	intent(in)			::	d_node(:,:)
integer,	intent(in)			::	step
integer,	intent(in)			::	day(:,:)
integer,	intent(in)			::	day_ID

public subroutine gnuplot_leaf_gw3(leaf_coord, peti_coord, d_node, step)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	leaf_coord(:,:,:,:)
real(kind=8),	intent(in)			::	peti_coord(:,:,:)
real(kind=8),	intent(in)			::	d_node(:,:)
integer,	intent(in)			::	step

public subroutine output_gw3(d_connect, d_node)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	d_connect(:,:)
real(kind=8),	intent(in)			::	d_node(:,:)

public subroutine output_factor(d_node, leaf_coord, occupied_area, step)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	d_node(:,:)
real(kind=8),	intent(in)			::	leaf_coord(:,:,:,:)
real(kind=8),	intent(out)			::	occupied_area
integer,	intent(in)			::	step

public subroutine output_harvest(d_pod, structural_TDW, d_node, seed_pod_rate, occupied_area)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	d_pod(:,:)
real(kind=8),	intent(in)			::	structural_TDW
real(kind=8),	intent(in)			::	d_node(:,:)
real(kind=8),	intent(in)			::	seed_pod_rate
real(kind=8),	intent(in)			::	occupied_area