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