radiation_cloud_cover Module

Uses

- PARKIND1
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

Variables

OverlapName MaxCloudFrac

Enumerations

unnamed

Functions

beta2alpha cloud_cover

Subroutines

cum_cloud_cover_max_ran cum_cloud_cover_exp_ran cum_cloud_cover_exp_exp

Variables

Type	Visibility	Attributes		Name		Initial
character(len=*),	public,	parameter	::	OverlapName(0:2)	=	(/'Max-Ran', 'Exp-Ran', 'Exp-Exp'/)
real(kind=jprb),	public,	parameter	::	MaxCloudFrac	=	1.0_jprb-epsilon(1.0_jprb)*10.0_jprb

Enumerations

enum, bind(c)

Enumerators

enumerator	::	IOverlapMaximumRandom	=	0
enumerator	::	IOverlapExponentialRandom	=	1
enumerator	::	IOverlapExponential	=	2

Functions

publicelemental function beta2alpha(beta, frac1, frac2)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=jprb),	intent(in)			::	beta
real(kind=jprb),	intent(in)			::	frac1
real(kind=jprb),	intent(in)			::	frac2

Return Value real(kind=jprb)

public function cloud_cover(nlev, i_overlap_scheme, frac, overlap_param, is_beta_overlap)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nlev
integer,	intent(in)			::	i_overlap_scheme
real(kind=jprb),	intent(in)			::	frac(nlev)
real(kind=jprb),	intent(in)			::	overlap_param(nlev-1)
logical,	intent(in),	optional		::	is_beta_overlap

Return Value real(kind=jprb)

Subroutines

public subroutine cum_cloud_cover_max_ran(nlev, frac, cum_cloud_cover, pair_cloud_cover)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nlev
real(kind=jprb),	intent(in)			::	frac(nlev)
real(kind=jprb),	intent(out)			::	cum_cloud_cover(nlev)
real(kind=jprb),	intent(out)			::	pair_cloud_cover(nlev-1)

public subroutine cum_cloud_cover_exp_ran(nlev, frac, overlap_param, cum_cloud_cover, pair_cloud_cover, is_beta_overlap)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nlev
real(kind=jprb),	intent(in)			::	frac(nlev)
real(kind=jprb),	intent(in)			::	overlap_param(nlev-1)
real(kind=jprb),	intent(out)			::	cum_cloud_cover(nlev)
real(kind=jprb),	intent(out)			::	pair_cloud_cover(nlev-1)
logical,	intent(in),	optional		::	is_beta_overlap

public subroutine cum_cloud_cover_exp_exp(nlev, frac, overlap_param, cum_cloud_cover, pair_cloud_cover, is_beta_overlap)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nlev
real(kind=jprb),	intent(in)			::	frac(nlev)
real(kind=jprb),	intent(in)			::	overlap_param(nlev-1)
real(kind=jprb),	intent(out)			::	cum_cloud_cover(nlev)
real(kind=jprb),	intent(out)			::	pair_cloud_cover(nlev-1)
logical,	intent(in),	optional		::	is_beta_overlap