radiation_overlap Module

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Contents

Functions

calc_beta_overlap_matrix calc_alpha_overlap_matrix calc_alpha_overlap_matrix_simple

Subroutines

calc_overlap_matrices

Functions

publicpure function calc_beta_overlap_matrix(nreg, op, frac_upper, frac_lower, frac_threshold) result(overlap_matrix)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nreg
real(kind=jprb),	intent(in),		dimension(nreg)	::	op
real(kind=jprb),	intent(in),		dimension(nreg)	::	frac_upper
real(kind=jprb),	intent(in),		dimension(nreg)	::	frac_lower
real(kind=jprb),	intent(in)			::	frac_threshold

Return Value real(kind=jprb), (nreg,nreg)

publicpure function calc_alpha_overlap_matrix(nreg, op, op_inhom, frac_upper, frac_lower) result(overlap_matrix)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nreg
real(kind=jprb),	intent(in)			::	op
real(kind=jprb),	intent(in)			::	op_inhom
real(kind=jprb),	intent(in),		dimension(nreg)	::	frac_upper
real(kind=jprb),	intent(in),		dimension(nreg)	::	frac_lower

Return Value real(kind=jprb), (nreg,nreg)

publicpure function calc_alpha_overlap_matrix_simple(nreg, op, op_inhom, cf_upper, cf_lower) result(overlap_matrix)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nreg
real(kind=jprb),	intent(in)			::	op
real(kind=jprb),	intent(in)			::	op_inhom
real(kind=jprb),	intent(in)			::	cf_upper
real(kind=jprb),	intent(in)			::	cf_lower

Return Value real(kind=jprb), (nreg,nreg)

Subroutines

public subroutine calc_overlap_matrices(nlev, nreg, istartcol, iendcol, region_fracs, overlap_param, u_matrix, v_matrix, decorrelation_scaling, cloud_fraction_threshold, cloud_cover, use_beta_overlap)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nlev
integer,	intent(in)			::	nreg
integer,	intent(in)			::	istartcol
integer,	intent(in)			::	iendcol
real(kind=jprb),	intent(in),		dimension(1:nreg,nlev,istartcol:iendcol)	::	region_fracs
real(kind=jprb),	intent(in),		dimension(:,:)	::	overlap_param
real(kind=jprb),	intent(out),		dimension(nreg,nreg,nlev+1,istartcol:iendcol)	::	u_matrix
real(kind=jprb),	intent(out),		dimension(nreg,nreg,nlev+1,istartcol:iendcol)	::	v_matrix
real(kind=jprb),	intent(in),	optional		::	decorrelation_scaling
real(kind=jprb),	intent(in),	optional		::	cloud_fraction_threshold
real(kind=jprb),	intent(out),	optional		::	cloud_cover(:)
logical,	intent(in),	optional		::	use_beta_overlap