radiation_general_cloud_optics 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

Subroutines

delta_eddington delta_eddington_extensive delta_eddington_extensive_vec delta_eddington_scat_od revert_delta_eddington setup_general_cloud_optics general_cloud_optics save_general_cloud_optics

Subroutines

publicelemental subroutine delta_eddington(od, ssa, g)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=jprb),	intent(inout)			::	od
real(kind=jprb),	intent(inout)			::	ssa
real(kind=jprb),	intent(inout)			::	g

publicelemental subroutine delta_eddington_extensive(od, scat_od, scat_od_g)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=jprb),	intent(inout)			::	od
real(kind=jprb),	intent(inout)			::	scat_od
real(kind=jprb),	intent(inout)			::	scat_od_g

public subroutine delta_eddington_extensive_vec(ng, od, scat_od, scat_od_g)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ng
real(kind=jprb),	intent(inout),		dimension(ng)	::	od
real(kind=jprb),	intent(inout),		dimension(ng)	::	scat_od
real(kind=jprb),	intent(inout),		dimension(ng)	::	scat_od_g

publicelemental subroutine delta_eddington_scat_od(od, scat_od, g)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=jprb),	intent(inout)			::	od
real(kind=jprb),	intent(inout)			::	scat_od
real(kind=jprb),	intent(inout)			::	g

publicelemental subroutine revert_delta_eddington(od, ssa, g)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=jprb),	intent(inout)			::	od
real(kind=jprb),	intent(inout)			::	ssa
real(kind=jprb),	intent(inout)			::	g

public subroutine setup_general_cloud_optics(config)

Arguments

Type	Intent	Optional	Attributes		Name
type(config_type),	intent(inout)			::	config

public subroutine general_cloud_optics(nlev, istartcol, iendcol, config, thermodynamics, cloud, od_lw_cloud, ssa_lw_cloud, g_lw_cloud, od_sw_cloud, ssa_sw_cloud, g_sw_cloud)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nlev
integer,	intent(in)			::	istartcol
integer,	intent(in)			::	iendcol
type(config_type),	intent(in),		target	::	config
type(thermodynamics_type),	intent(in)			::	thermodynamics
type(cloud_type),	intent(in)			::	cloud
real(kind=jprb),	intent(out),		dimension(config%n_bands_lw,nlev,istartcol:iendcol)	::	od_lw_cloud
real(kind=jprb),	intent(out),		dimension(config%n_bands_lw_if_scattering,nlev,istartcol:iendcol)	::	ssa_lw_cloud
real(kind=jprb),	intent(out),		dimension(config%n_bands_lw_if_scattering,nlev,istartcol:iendcol)	::	g_lw_cloud
real(kind=jprb),	intent(out),		dimension(config%n_bands_sw,nlev,istartcol:iendcol)	::	od_sw_cloud
real(kind=jprb),	intent(out),		dimension(config%n_bands_sw,nlev,istartcol:iendcol)	::	ssa_sw_cloud
real(kind=jprb),	intent(out),		dimension(config%n_bands_sw,nlev,istartcol:iendcol)	::	g_sw_cloud

public subroutine save_general_cloud_optics(config, file_prefix, iverbose)

Arguments

Type	Intent	Optional	Attributes		Name
type(config_type),	intent(in)			::	config
character(len=*),	intent(in)			::	file_prefix
integer,	intent(in),	optional		::	iverbose