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_vana.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
/*CoolVana compute vanadium 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
#include "
phycon.h
"
12
13
void
CoolVana
(
void
)
14
{
15
realnum
a21,
16
a31,
17
a32,
18
g1,
19
g2,
20
g3,
21
p2,
22
p3,
23
cs;
24
25
DEBUG_ENTRY
(
"CoolVana()"
);
26
27
/* V Vanadium cooling - element 23
28
*
29
* V III 8823 */
30
a21 = 0.05f;
31
a31 = 0.10f;
32
a32 = 0.00;
33
g1 = 28.;
34
g2 = 12.;
35
g3 = 18.;
36
37
/* [V III] 8823, multiplet average */
38
p3 = (
realnum
)
atom_pop3
(g1,g2,g3,g1,g2,g3,a21,a31,a32,16303.,606.,&p2,
39
dense
.
xIonDense
[
ipVANADIUM
][2], 0.,0.,0.);
40
41
CoolHeavy
.
V38830
= p2*a21*2.25e-12;
42
CoolHeavy
.
V38507
= p3*a31*2.34e-12;
43
CoolAdd
(
"V 3"
,8823,
CoolHeavy
.
V38830
);
44
CoolAdd
(
"V 3"
,8507,
CoolHeavy
.
V38507
);
45
46
/* V IV */
47
a21 = 0.054f;
48
a31 = 0.039f;
49
a32 = 0.007f;
50
g1 = 21.;
51
g2 = 5.;
52
g3 = 9.;
53
/* POP3(G1,G2,G3,O12,O13,O23,A21,A31,A32,E12,E23,P2,ABUND,GAM2)
54
* energies are in kelvin */
55
p3 = (
realnum
)
atom_pop3
(g1,g2,g3,g1,g2,g3,a21,a31,a32,15159.,3437.,&p2,
56
dense
.
xIonDense
[
ipVANADIUM
][3], 0.,0.,0.);
57
/* 7735 ang - 3=>1 */
58
CoolHeavy
.
V47741
= p3*a31*2.57e-12;
59
/* 9489 - 2=>1 */
60
CoolHeavy
.
V49496
= p2*a21*2.09e-12;
61
/* 4.19 microns 3=>2 */
62
CoolHeavy
.
V44p2m
= p3*a32*4.74e-13;
63
CoolAdd
(
"V 4"
,7735,
CoolHeavy
.
V47741
);
64
CoolAdd
(
"V 4"
,9489,
CoolHeavy
.
V49496
);
65
CoolAdd
(
"V 4"
,42,
CoolHeavy
.
V44p2m
);
66
67
/* [V VII] 1.3038 mic
68
* Y(ik) from
69
* >>refer v7 cs Pelan, J., & Berrington, K.A. 1995, A&A Suppl, 110, 209 */
70
PutCS
(2.39,&
TauLines
[
ipVa07130
]);
71
atom_level2
(&
TauLines
[ipVa07130]);
72
73
/* [V 15] 1721.38, cs from
74
* >>referold v15 cs Saraph, H.E. & Tully, J.A. 1994, A&AS, 107, 29 */
75
/* >>refer v15 cs Berrington,K.A.,Saraph, H.E. & Tully, J.A. 1998, A&AS, 129, 161 */
76
/*>>chng 06 jul 19 Changes made-Humeshkar Nemala*/
77
if
(
phycon
.
te
< 3.566E6)
78
{
79
cs = (
realnum
)(0.0149*
phycon
.
te10
*
phycon
.
te05
*
phycon
.
te004
*
phycon
.
te0003
);
80
}
81
else
82
{
83
cs = (
realnum
)(47.350653/((
phycon
.
te40
/
phycon
.
te02
)*
phycon
.
te0002
));
84
}
85
86
/*PutCS(0.10,&TauLines[ipVa15172]);*/
87
PutCS
(cs,&
TauLines
[
ipVa15172
]);
88
atom_level2
(&
TauLines
[ipVa15172]);
89
return
;
90
}
Generated for cloudy by
1.8.3.1