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_fluo.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
/*CoolFluo evaluate total cooling due to fluorine */
4
#include "
cddefines.h
"
5
#include "
taulines.h
"
6
#include "
lines_service.h
"
7
#include "
phycon.h
"
8
#include "
atoms.h
"
9
#include "
cooling.h
"
10
11
void
CoolFluo
(
void
)
12
{
13
double
cs;
14
15
DEBUG_ENTRY
(
"CoolFluo()"
);
16
17
/* [F II] 29.33 micron, 67.2 micron
18
* collision strength transition prob
19
* >>refer f2 cs Galavis, M.E., et al. 1997, A&AS 123, 159
20
* >>refer f2 as Buttler, K., & Zeippen, C.J., 1994, A&AS 108, 1 */
21
PutCS
(0.60,&
TauLines
[
ipF0229
]);
22
PutCS
(0.206,&
TauLines
[
ipF0267
]);
23
PutCS
(0.160,&
TauDummy
);
24
25
/* subroutine atom_level3( t10,t21,t20) */
26
atom_level3
(&
TauLines
[ipF0229],&
TauLines
[ipF0267],&
TauDummy
);
27
28
/* collision strength
29
* >>refer f4 cs Lennon, D.J. Burke, V.M. 1994, A&AS, 103, 273
30
* [F IV] 44.07 microns */
31
cs =
MIN2
(0.711,0.1245*
phycon
.
te10
*
phycon
.
te05
*
phycon
.
te01
*
32
phycon
.
te001
*
phycon
.
te001
);
33
PutCS
(cs,&
TauLines
[
ipF444
]);
34
35
/* [F IV] 25.83 microns */
36
cs =
MIN2
(1.89,0.2023*
phycon
.
te20
*
phycon
.
te003
*
phycon
.
te003
);
37
PutCS
(cs,&
TauLines
[
ipF425
]);
38
cs =
MIN2
(0.451,0.02922*
phycon
.
te20
*
phycon
.
te05
);
39
PutCS
(cs,&
TauDummy
);
40
41
/* subroutine atom_level3( t10,t21,t20) */
42
atom_level3
(&
TauLines
[ipF444],&
TauLines
[ipF425],&
TauDummy
);
43
return
;
44
}
Generated for cloudy by
1.8.1.1