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_tita.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
/*CoolTita compute titanium cooling */
4
#include "
cddefines.h
"
5
#include "
taulines.h
"
6
#include "
coolheavy.h
"
7
#include "
dense.h
"
8
#include "
lines_service.h
"
9
#include "
atoms.h
"
10
#include "
cooling.h
"
11
12
void
CoolTita
(
void
)
13
{
14
realnum
a21,
15
a31,
16
a32,
17
p2,
18
p3;
19
20
DEBUG_ENTRY
(
"CoolTita()"
);
21
22
/* Ti Titanium cooling
23
*
24
* these are 3 lines estimated by Jim Kingdon
25
* a's are bad, collision strengths just one */
26
a21 = 0.015f;
27
a31 = 0.032f;
28
a32 = 0.002f;
29
30
/* POP3(G1,G2,G3,O12,O13,O23,A21,A31,A32,E12,E23,P2,ABUND,GAM2)
31
* energies are in kelvin */
32
p3 = (
realnum
)
atom_pop3
(21.,5.,9.,21.,5.0,9.0,a21,a31,a32,11844.,3148.4,&p2,
33
dense
.
xIonDense
[
ipTITANIUM
][2],0.,0.,0.);
34
35
/* multiplet at roughly 9594 */
36
CoolHeavy
.
Ti3l31
= p3*a31*2.07e-12;
37
/* multiplet at roughly 4.57 microns */
38
39
CoolHeavy
.
Ti3l32
= p3*a32*4.35e-13;
40
/* multiplet at roughly 1.21 microns */
41
42
CoolHeavy
.
Ti3l21
= p2*a21*1.64e-12;
43
CoolAdd
(
"Ti 3"
,9594,
CoolHeavy
.
Ti3l31
);
44
CoolAdd
(
"Ti 3"
,4,
CoolHeavy
.
Ti3l32
);
45
CoolAdd
(
"Ti 3"
,1,
CoolHeavy
.
Ti3l21
);
46
47
/* [Ti VI] 1.7150 mic
48
* Y(ik) from
49
* >>refer ti6 cs Pelan, J., & Berrington, K.A. 1995, A&A Suppl, 110, 209 */
50
PutCS
(3.48,&
TauLines
[
ipTi06172
]);
51
atom_level2
(&
TauLines
[ipTi06172]);
52
53
/* [Ti XIV] 2117.79, cs from
54
* >>refer ti14 cs Saraph, H.E. & Tully, J.A. 1994, A&AS, 107, 29 */
55
PutCS
(0.23,&
TauLines
[
ipTi14212
]);
56
atom_level2
(&
TauLines
[ipTi14212]);
57
return
;
58
}
Generated for cloudy by
1.8.4