shr_fire_emis_mod Module

Uses

Variables

Type	Visibility	Attributes		Name		Initial
logical,	public		::	shr_fire_emis_elevated	=	.true.
character(len=CS),	public		::	shr_fire_emis_fields_token	=	''
character(len=CL),	public		::	shr_fire_emis_factors_file	=	''
character(len=CS),	public		::	shr_fire_emis_ztop_token	=	'Sl_fztop'
type(shr_fire_emis_mechcomp_t),	public,	pointer	::	shr_fire_emis_mechcomps(:)
type(shr_fire_emis_comp_t),	public,	pointer	::	shr_fire_emis_linkedlist
integer,	public		::	shr_fire_emis_comps_n	=	0
integer,	public		::	shr_fire_emis_mechcomps_n	=	0

Derived Types

type, public :: shr_fire_emis_comp_t

Components

Type	Visibility	Attributes		Name		Initial
character(len=name_len),	public		::	name
integer,	public		::	index
real(kind=r8),	public,	pointer	::	emis_factors(:)
real(kind=r8),	public		::	coeff
real(kind=r8),	public		::	molec_weight
type(shr_fire_emis_comp_t),	public,	pointer	::	next_emiscomp

type, public :: shr_fire_emis_comp_ptr

Components

Type	Visibility	Attributes		Name		Initial
type(shr_fire_emis_comp_t),	public,	pointer	::	ptr

type, public :: shr_fire_emis_mechcomp_t

Components

Type	Visibility	Attributes		Name		Initial
character(len=name_len),	public		::	name
type(shr_fire_emis_comp_ptr),	public,	pointer	::	emis_comps(:)
integer,	public		::	n_emis_comps

Subroutines

public subroutine shr_fire_emis_readnl(NLFileName, ID, emis_fields)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	NLFileName
integer,	intent(in)			::	ID
character(len=*),	intent(out)			::	emis_fields