cloudy
trunk
Main Page
Related Pages
Data Structures
Files
File List
Globals
All
Data Structures
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Macros
Pages
source
cool_mang.cpp
Go to the documentation of this file.
1
/* This file is part of Cloudy and is copyright (C)1978-2008 by Gary J. Ferland and
2
* others. For conditions of distribution and use see copyright notice in license.txt */
3
/*CoolMang compute manganese cooling */
4
#include "
cddefines.h
"
5
#include "
taulines.h
"
6
#include "
lines_service.h
"
7
#include "
atoms.h
"
8
#include "
cooling.h
"
9
#include "
phycon.h
"
10
11
void
CoolMang
(
void
)
12
{
13
realnum
cs;
14
15
DEBUG_ENTRY
(
"CoolMang()"
);
16
17
/* [Mn IX] 7968.5A
18
* Y(ik) from
19
* >>refer mn9 cs Pelan, J., & Berrington, K.A. 1995, A&A Suppl, 110, 209 */
20
PutCS
(2.48,&
TauLines
[
ipxMn0979
]);
21
atom_level2
(&
TauLines
[ipxMn0979]);
22
23
/* [Mn 17] 1169.59, cs from
24
* >>referold mn17 cs Saraph, H.E. & Tully, J.A. 1994, A&AS, 107, 29 */
25
/* >>refer mn17 cs Berrington,K.A.,Saraph, H.E. & Tully, J.A. 1998, A&AS, 129, 161 */
26
/*>>chng 06 jul 19 Changes made-Humeshkar Nemala*/
27
if
(
phycon
.
te
< 1.151E6)
28
{
29
cs = (
realnum
)(0.107);
30
}
31
else
if
(
phycon
.
te
< 4.58E6)
32
{
33
cs = (
realnum
)((6.252E-03)*(
phycon
.
te20
*
phycon
.
te003
*
phycon
.
te0005
));
34
}
35
else
36
{
37
cs = (
realnum
)((81.365)/(
phycon
.
te40
*
phycon
.
te01
*
phycon
.
te004
*
phycon
.
te0002
));
38
}
39
/*PutCS(0.12,&TauLines[ipxMn1712]);*/
40
PutCS
(cs,&
TauLines
[
ipxMn1712
]);
41
atom_level2
(&
TauLines
[ipxMn1712]);
42
return
;
43
}
Generated for cloudy by
1.8.1.2