radiation_monochromatic Module

Contents

Functions

planck_function

Subroutines

delta_eddington delta_eddington_extensive delta_eddington_scat_od revert_delta_eddington setup_gas_optics set_gas_units setup_cloud_optics setup_aerosol_optics gas_optics cloud_optics add_aerosol_optics

Functions

publicelemental function planck_function(wavelength, temperature)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=jprb),	intent(in)			::	wavelength
real(kind=jprb),	intent(in)			::	temperature

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

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_gas_optics(config, directory)

Arguments

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

public subroutine set_gas_units(gas)

Arguments

Type	Intent	Optional	Attributes		Name
type(gas_type),	intent(inout)			::	gas

public subroutine setup_cloud_optics(config)

Arguments

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

public subroutine setup_aerosol_optics(config)

Arguments

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

public subroutine gas_optics(ncol, nlev, istartcol, iendcol, config, single_level, thermodynamics, gas, lw_albedo, od_lw, od_sw, ssa_sw, planck_hl, lw_emission, incoming_sw)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncol
integer,	intent(in)			::	nlev
integer,	intent(in)			::	istartcol
integer,	intent(in)			::	iendcol
type(config_type),	intent(in)			::	config
type(single_level_type),	intent(in)			::	single_level
type(thermodynamics_type),	intent(in)			::	thermodynamics
type(gas_type),	intent(in)			::	gas
real(kind=jprb),	intent(in),		dimension(config%n_g_lw,istartcol:iendcol)	::	lw_albedo
real(kind=jprb),	intent(out),		dimension(config%n_g_lw,nlev,istartcol:iendcol)	::	od_lw
real(kind=jprb),	intent(out),		dimension(config%n_g_sw,nlev,istartcol:iendcol)	::	od_sw
real(kind=jprb),	intent(out),		dimension(config%n_g_sw,nlev,istartcol:iendcol)	::	ssa_sw
real(kind=jprb),	intent(out),		dimension(config%n_g_lw,nlev+1,istartcol:iendcol)	::	planck_hl
real(kind=jprb),	intent(out),		dimension(config%n_g_lw,istartcol:iendcol)	::	lw_emission
real(kind=jprb),	intent(out),		dimension(config%n_g_sw,istartcol:iendcol)	::	incoming_sw

public subroutine 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)			::	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_g_sw,nlev,istartcol:iendcol)	::	od_sw_cloud
real(kind=jprb),	intent(out),		dimension(config%n_g_sw,nlev,istartcol:iendcol)	::	ssa_sw_cloud
real(kind=jprb),	intent(out),		dimension(config%n_g_sw,nlev,istartcol:iendcol)	::	g_sw_cloud

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