ua636 - evaluate a weighted amospheric mass¶
- subroutine ua636(ktrl, eng, mpos, mb, rmass, ifail)¶
- Parameters:
ktrl [integer4,in] :: control parameter
eng [real8,in] :: Energy
mpos [zgeo,in] :: geographic location
mb [zvec,in] :: magnetic field vector (unused)
rmass [real8,out] :: weighted atmospheric mass
ifail [integer4,out] :: error flag (see Diagnostics)
Description¶
The subroutine
ua636()
provides an easy way to average atmospheric density numbers. The argumentktrl
is used to control the kind of average (see Table below). When the argumentktrl
is different from zero, the weighting includes particle cross sections evaluated by subroutineua637()
orua638()
. The cross sections compiled by Pierrard (see subroutineua637()
) are used whenktrl
is set to 1 or 2, while the Hassit cross sections (see subroutineua636()
) are used whenktrl
is set to 11 or 12. When the argumentktrl
is equal to 0, the density numbers are weighted only by the atomic mass of each component.
ktrl
Weight for the density numbers
0
Atomic mass
1,11
(Atomic mass) x (Proton cross section)
2,12
Proton cross section
1,2
Subroutine
ua637()
is used11,12
Subroutine
ua638()
is used (Hassit)
Note
The units of the output argument rmass
are function of the paramater ktrl
. The argument eng
is then used to indicate the particle energy. The argument mpos
indicates where the atmospheric densities have to be evaluated. The subroutine ua636()
can be used as argument of subroutine ud320()
. Be aware that before any call to the subroutine ua636()
, an atmospheric model has to be selected with the help of subroutine ua610()
.
History¶
Diagnostics¶
-63601, atmospheric model incompatible with ktrl parameter
-63602, illegal ktrl parameter
Common Blocks¶
Dependencies¶
Called by¶
None
Calls¶
See also¶
Reported Bugs¶
None
Examples¶
None
UNILIB/tags/v3.02