00001 /* This file is part of Cloudy and is copyright (C)1978-2010 by Gary J. Ferland and 00002 * others. For conditions of distribution and use see copyright notice in license.txt */ 00003 /*CoolMang compute manganese cooling */ 00004 #include "cddefines.h" 00005 #include "taulines.h" 00006 #include "lines_service.h" 00007 #include "atoms.h" 00008 #include "cooling.h" 00009 #include "phycon.h" 00010 00011 void CoolMang(void) 00012 { 00013 realnum cs; 00014 00015 DEBUG_ENTRY( "CoolMang()" ); 00016 00017 /* [Mn IX] 7968.5A 00018 * Y(ik) from 00019 * >>refer mn9 cs Pelan, J., & Berrington, K.A. 1995, A&A Suppl, 110, 209 */ 00020 PutCS(2.48,&TauLines[ipxMn0979]); 00021 atom_level2(&TauLines[ipxMn0979]); 00022 00023 /* [Mn 17] 1169.59, cs from 00024 * >>referold mn17 cs Saraph, H.E. & Tully, J.A. 1994, A&AS, 107, 29 */ 00025 /* >>refer mn17 cs Berrington,K.A.,Saraph, H.E. & Tully, J.A. 1998, A&AS, 129, 161 */ 00026 /*>>chng 06 jul 19 Changes made-Humeshkar Nemala*/ 00027 if(phycon.te < 1.151E6) 00028 { 00029 cs = (realnum)(0.107); 00030 } 00031 else if(phycon.te < 4.58E6) 00032 { 00033 cs = (realnum)((6.252E-03)*(phycon.te20*phycon.te003*phycon.te0005)); 00034 } 00035 else 00036 { 00037 cs = (realnum)((81.365)/(phycon.te40*phycon.te01*phycon.te004*phycon.te0002)); 00038 } 00039 /*PutCS(0.12,&TauLines[ipxMn1712]);*/ 00040 PutCS(cs,&TauLines[ipxMn1712]); 00041 atom_level2(&TauLines[ipxMn1712]); 00042 return; 00043 }