cloudy  trunk
 All Data Structures Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
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 doxygen 1.8.3.1