cloudy trunk
|
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 }