00001 /* This file is part of Cloudy and is copyright (C)1978-2013 by Gary J. Ferland and 00002 * others. For conditions of distribution and use see copyright notice in license.txt */ 00003 /*CoolPota compute potassium cooling */ 00004 #include "cddefines.h" 00005 #include "taulines.h" 00006 #include "phycon.h" 00007 #include "lines_service.h" 00008 #include "atoms.h" 00009 #include "cooling.h" 00010 00011 void CoolPota(void) 00012 { 00013 double cs; 00014 00015 DEBUG_ENTRY( "CoolPota()" ); 00016 00017 /* potasium lines 00018 * KI 7745 */ 00019 cs = 7.231e-4*phycon.te*phycon.te03*phycon.te02; 00020 PutCS(cs,TauLines[ipKI7745]); 00021 atom_level2(TauLines[ipKI7745]); 00022 00023 /* [K III] 4.62 microns 00024 * Y(ik) from 00025 * >>refer k3 cs Pelan, J., & Berrington, K.A. 1995, A&A Suppl, 110, 209 */ 00026 PutCS(2.2,TauLines[ipxK03462]); 00027 atom_level2(TauLines[ipxK03462]); 00028 00029 /* [KIV] 5.983, 15.39 mic, cs from 00030 * >>refer k4 cs Galavis, M.E., Mendoza, C., & Zeippen, C.J. 1995, A&AS, 111, 347 */ 00031 PutCS(4.3,TauLines[ipxK04598]); 00032 PutCS(1.13,TauLines[ipxK04154]); 00033 PutCS(1.3,*TauDummy); 00034 /* atom_level3( t10,t21,t20) */ 00035 atom_level3(TauLines[ipxK04598],TauLines[ipxK04154],*TauDummy); 00036 00037 /* [K VII] 3.189 microns cs from 00038 * >>refer k7 cs Saraph, H.E., & Storey, P.J. A&AS, 115, 151 */ 00039 PutCS(4.5,TauLines[ipxK07319]); 00040 atom_level2(TauLines[ipxK07319]); 00041 00042 return; 00043 }