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