radiation_aerosol_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

Functions

dry_aerosol_mass_extinction

Subroutines

delta_eddington delta_eddington_extensive delta_eddington_extensive_vec delta_eddington_scat_od revert_delta_eddington setup_aerosol_optics setup_general_aerosol_optics setup_general_aerosol_optics_legacy add_aerosol_optics add_aerosol_optics_direct aerosol_extinction

Functions

public function dry_aerosol_mass_extinction(config, itype, wavelength)

Arguments

Type	Intent	Optional	Attributes		Name
type(config_type),	intent(in),		target	::	config
integer,	intent(in)			::	itype
real(kind=jprb),	intent(in)			::	wavelength

Return Value real(kind=jprb)

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_aerosol_optics(config)

Arguments

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

public subroutine setup_general_aerosol_optics(config)

Arguments

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

public subroutine setup_general_aerosol_optics_legacy(config, file_name)

Arguments

Type	Intent	Optional	Attributes		Name
type(config_type),	intent(inout),		target	::	config
character(len=*),	intent(in)			::	file_name

public subroutine add_aerosol_optics(nlev, istartcol, iendcol, config, thermodynamics, gas, aerosol, od_lw, ssa_lw, g_lw, od_sw, ssa_sw, g_sw)

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(gas_type),	intent(in)			::	gas
type(aerosol_type),	intent(in)			::	aerosol
real(kind=jprb),	intent(inout),		dimension(config%n_g_lw,nlev,istartcol:iendcol)	::	od_lw
real(kind=jprb),	intent(out),		dimension(config%n_g_lw_if_scattering,nlev,istartcol:iendcol)	::	ssa_lw
real(kind=jprb),	intent(out),		dimension(config%n_g_lw_if_scattering,nlev,istartcol:iendcol)	::	g_lw
real(kind=jprb),	intent(inout),		dimension(config%n_g_sw,nlev,istartcol:iendcol)	::	od_sw
real(kind=jprb),	intent(inout),		dimension(config%n_g_sw,nlev,istartcol:iendcol)	::	ssa_sw
real(kind=jprb),	intent(out),		dimension(config%n_g_sw,nlev,istartcol:iendcol)	::	g_sw

public subroutine add_aerosol_optics_direct(nlev, istartcol, iendcol, config, aerosol, od_lw, ssa_lw, g_lw, od_sw, ssa_sw, g_sw)

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(aerosol_type),	intent(in)			::	aerosol
real(kind=jprb),	intent(inout),		dimension(config%n_g_lw,nlev,istartcol:iendcol)	::	od_lw
real(kind=jprb),	intent(out),		dimension(config%n_g_lw_if_scattering,nlev,istartcol:iendcol)	::	ssa_lw
real(kind=jprb),	intent(out),		dimension(config%n_g_lw_if_scattering,nlev,istartcol:iendcol)	::	g_lw
real(kind=jprb),	intent(inout),		dimension(config%n_g_sw,nlev,istartcol:iendcol)	::	od_sw
real(kind=jprb),	intent(inout),		dimension(config%n_g_sw,nlev,istartcol:iendcol)	::	ssa_sw
real(kind=jprb),	intent(out),		dimension(config%n_g_sw,nlev,istartcol:iendcol)	::	g_sw

public subroutine aerosol_extinction(ncol, istartcol, iendcol, config, wavelength, mixing_ratio, relative_humidity, extinction)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncol
integer,	intent(in)			::	istartcol
integer,	intent(in)			::	iendcol
type(config_type),	intent(in),		target	::	config
real(kind=jprb),	intent(in)			::	wavelength
real(kind=jprb),	intent(in)			::	mixing_ratio(ncol,config%n_aerosol_types)
real(kind=jprb),	intent(in)			::	relative_humidity(ncol)
real(kind=jprb),	intent(out)			::	extinction(ncol)