radiation_ifs_rrtm Module

Contents

Subroutines

setup_gas_optics set_gas_units gas_optics planck_function_atmos planck_function_surf planck_function

Subroutines

public subroutine setup_gas_optics(config, directory)

Arguments

Type	Intent	Optional	Attributes		Name
type(config_type),	intent(inout),		target	::	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 gas_optics(ncol, nlev, istartcol, iendcol, config, single_level, thermodynamics, gas, od_lw, od_sw, ssa_sw, lw_albedo, 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(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(in),	optional,	dimension(config%n_g_lw,istartcol:iendcol)	::	lw_albedo
real(kind=jprb),	intent(out),	optional,	dimension(config%n_g_lw,nlev+1,istartcol:iendcol)	::	planck_hl
real(kind=jprb),	intent(out),	optional,	dimension(config%n_g_lw,istartcol:iendcol)	::	lw_emission
real(kind=jprb),	intent(out),	optional,	dimension(config%n_g_sw,istartcol:iendcol)	::	incoming_sw

public subroutine planck_function_atmos(nlev, istartcol, iendcol, config, thermodynamics, PFRAC, planck_hl)

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
real(kind=jprb),	intent(in)			::	PFRAC(istartcol:iendcol,JPGPT_LW,nlev)
real(kind=jprb),	intent(out),		dimension(config%n_g_lw,nlev+1,istartcol:iendcol)	::	planck_hl

public subroutine planck_function_surf(istartcol, iendcol, config, temperature, PFRAC, planck_surf)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	istartcol
integer,	intent(in)			::	iendcol
type(config_type),	intent(in)			::	config
real(kind=jprb),	intent(in)			::	temperature(:)
real(kind=jprb),	intent(in)			::	PFRAC(istartcol:iendcol,JPGPT_LW)
real(kind=jprb),	intent(out),		dimension(config%n_g_lw,istartcol:iendcol)	::	planck_surf

public subroutine planck_function(config, temperature, planck_surf)

Arguments

Type	Intent	Optional	Attributes		Name
type(config_type),	intent(in)			::	config
real(kind=jprb),	intent(in)			::	temperature
real(kind=jprb),	intent(out),		dimension(config%n_g_lw)	::	planck_surf