cloudy: /home66/gary/public_html/cloudy/c08_branch/source/cool

00001 /* This file is part of Cloudy and is copyright (C)1978-2008 by Gary J. Ferland and
00002  * others.  For conditions of distribution and use see copyright notice in license.txt */
00003 /*CoolFluo evaluate total cooling due to fluorine */
00004 #include "cddefines.h"
00005 #include "taulines.h"
00006 #include "lines_service.h"
00007 #include "phycon.h"
00008 #include "atoms.h"
00009 #include "cooling.h"
00010 
00011 void CoolFluo(void)
00012 {
00013         double cs;
00014 
00015         DEBUG_ENTRY( "CoolFluo()" );
00016 
00017         /* [F II] 29.33 micron, 67.2 micron
00018          * collision strength transition prob
00019          * >>refer      f2      cs      Galavis, M.E., et al. 1997, A&AS 123, 159
00020          * >>refer      f2      as      Buttler, K., & Zeippen, C.J., 1994, A&AS 108, 1 */
00021         PutCS(0.60,&TauLines[ipF0229]);
00022         PutCS(0.206,&TauLines[ipF0267]);
00023         PutCS(0.160,&TauDummy);
00024 
00025         /* subroutine atom_level3( t10,t21,t20) */
00026         atom_level3(&TauLines[ipF0229],&TauLines[ipF0267],&TauDummy);
00027 
00028         /* collision strength 
00029          * >>refer      f4      cs      Lennon, D.J. Burke, V.M. 1994, A&AS, 103, 273
00030          * [F IV] 44.07 microns */
00031         cs = MIN2(0.711,0.1245*phycon.te10*phycon.te05*phycon.te01*
00032           phycon.te001*phycon.te001);
00033         PutCS(cs,&TauLines[ipF444]);
00034 
00035         /* [F IV] 25.83 microns */
00036         cs = MIN2(1.89,0.2023*phycon.te20*phycon.te003*phycon.te003);
00037         PutCS(cs,&TauLines[ipF425]);
00038         cs = MIN2(0.451,0.02922*phycon.te20*phycon.te05);
00039         PutCS(cs,&TauDummy);
00040 
00041         /* subroutine atom_level3( t10,t21,t20) */
00042         atom_level3(&TauLines[ipF444],&TauLines[ipF425],&TauDummy);
00043         return;
00044 }
/home66/gary/public_html/cloudy/c08_branch/source/cool_fluo.cpp
