cloudy  trunk
 All Data Structures Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
cool_mang.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 /*CoolMang compute manganese cooling */
4 #include "cddefines.h"
5 #include "taulines.h"
6 #include "lines_service.h"
7 #include "atoms.h"
8 #include "cooling.h"
9 #include "phycon.h"
10 
11 void CoolMang(void)
12 {
13  realnum cs;
14 
15  DEBUG_ENTRY( "CoolMang()" );
16 
17  /* [Mn IX] 7968.5A
18  * Y(ik) from
19  * >>refer mn9 cs Pelan, J., & Berrington, K.A. 1995, A&A Suppl, 110, 209 */
20  PutCS(2.48,&TauLines[ipxMn0979]);
21  atom_level2(&TauLines[ipxMn0979]);
22 
23  /* [Mn 17] 1169.59, cs from
24  * >>referold mn17 cs Saraph, H.E. & Tully, J.A. 1994, A&AS, 107, 29 */
25  /* >>refer mn17 cs Berrington,K.A.,Saraph, H.E. & Tully, J.A. 1998, A&AS, 129, 161 */
26  /*>>chng 06 jul 19 Changes made-Humeshkar Nemala*/
27  if(phycon.te < 1.151E6)
28  {
29  cs = (realnum)(0.107);
30  }
31  else if(phycon.te < 4.58E6)
32  {
33  cs = (realnum)((6.252E-03)*(phycon.te20*phycon.te003*phycon.te0005));
34  }
35  else
36  {
37  cs = (realnum)((81.365)/(phycon.te40*phycon.te01*phycon.te004*phycon.te0002));
38  }
39  /*PutCS(0.12,&TauLines[ipxMn1712]);*/
40  PutCS(cs,&TauLines[ipxMn1712]);
41  atom_level2(&TauLines[ipxMn1712]);
42  return;
43 }

Generated for cloudy by doxygen 1.8.3.1