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_pota.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
/*CoolPota compute potassium cooling */
4
#include "
cddefines.h
"
5
#include "
taulines.h
"
6
#include "
phycon.h
"
7
#include "
lines_service.h
"
8
#include "
atoms.h
"
9
#include "
cooling.h
"
10
11
void
CoolPota
(
void
)
12
{
13
double
cs;
14
15
DEBUG_ENTRY
(
"CoolPota()"
);
16
17
/* potasium lines
18
* KI 7745 */
19
cs = 7.231e-4*
phycon
.
te
*
phycon
.
te03
*
phycon
.
te02
;
20
PutCS
(cs,&
TauLines
[
ipKI7745
]);
21
atom_level2
(&
TauLines
[ipKI7745]);
22
23
/* [K III] 4.62 microns
24
* Y(ik) from
25
* >>refer k3 cs Pelan, J., & Berrington, K.A. 1995, A&A Suppl, 110, 209 */
26
PutCS
(2.2,&
TauLines
[
ipxK03462
]);
27
atom_level2
(&
TauLines
[ipxK03462]);
28
29
/* [KIV] 5.983, 15.39 mic, cs from
30
* >>refer k4 cs Galavis, M.E., Mendoza, C., & Zeippen, C.J. 1995, A&AS, 111, 347 */
31
PutCS
(4.3,&
TauLines
[
ipxK04598
]);
32
PutCS
(1.13,&
TauLines
[
ipxK04154
]);
33
PutCS
(1.3,&
TauDummy
);
34
/* atom_level3( t10,t21,t20) */
35
atom_level3
(&
TauLines
[ipxK04598],&
TauLines
[ipxK04154],&
TauDummy
);
36
37
/* [KVI] 8.823, 5.575 mic, cs from
38
* >>refer k6 cs Galavis, M.E., Mendoza, C., & Zeippen, C.J. 1995, A&AS, 111, 347 */
39
cs =
MIN2
(1.505,0.274*
phycon
.
te10
*
phycon
.
te05
/
phycon
.
te001
/
40
phycon
.
te001
);
41
PutCS
(cs,&
TauLines
[
ipxK06882
]);
42
43
cs =
MIN2
(4.632,1.909*
phycon
.
te10
/
phycon
.
te003
);
44
cs =
MAX2
(4.0,cs);
45
PutCS
(cs,&
TauLines
[
ipxK06557
]);
46
PutCS
(1.2,&
TauDummy
);
47
48
atom_level3
(&
TauLines
[ipxK06882],&
TauLines
[ipxK06557],&
TauDummy
);
49
50
/* [K VII] 3.189 microns cs from
51
* >>refer k7 cs Saraph, H.E., & Storey, P.J. A&AS, 115, 151 */
52
PutCS
(4.5,&
TauLines
[
ipxK07319
]);
53
atom_level2
(&
TauLines
[ipxK07319]);
54
55
/* K 11 4249.99A, cs from
56
* >>refer k11 cs Saraph, H.E. & Tully, J.A. 1994, A&AS, 107, 29 */
57
cs =
MIN2
(0.172,0.0109*
phycon
.
te20
*
phycon
.
te02
/
58
phycon
.
te001
/
phycon
.
te001
);
59
cs =
MAX2
(0.111,cs);
60
PutCS
(0.115,&
TauLines
[
ipxK11425
]);
61
62
atom_level2
(&
TauLines
[ipxK11425]);
63
64
return
;
65
}
Generated for cloudy by
1.8.1.1