ua634 - compute mass density from number density¶
- subroutine ua634(dens, nsp, ksp, kflg, cs, tmass, ifail)¶
- Parameters:
dens (30) [real8,in] :: number density (see note in
ua630()
)nsp [integer4,in] :: number of species
ksp (30) [integer4,in] :: list of species codes
kflg [integer4,in] :: control parameter
cs (30) [real8,in] :: cross section (see note in
ua630()
)tmass [real8,out] :: averaged mass
ifail [integer4,out] :: error flag (see Diagnostics)
Description¶
The subroutine
ua634()
averages the number densities of atmospheric component with different weighting. The weighting algorithm is selected by the argumentkflg
:
when
kflg=0
, the number densities are weighted with the atomic mass of the constituents and argument tmass corresponds to the total mass;when
kflg=1
, the number densities are weighted by the atomic mass of the constituents and the factor stored in argumentcs
;when
kflg=2
, the number densities are only weighted by the factor stored in argumentcs
.Generally the argument
cs
is used to specify a particle cross section.
Diagnostics¶
-63401, invalid species code
-63402, invalid value for kflg
Common Blocks¶
Dependencies¶
Called by
Calls¶
None
See also¶
None
Reported Bugs¶
None
Examples¶
None
UNILIB/tags/v3.02