/* This file is part of Cloudy and is copyright (C)1978-2013 by Gary J. Ferland and
 * others.  For conditions of distribution and use see copyright notice in license.txt */
/*CoolPota compute potassium cooling */
#include "cddefines.h"
#include "taulines.h"
#include "phycon.h"
#include "lines_service.h"
#include "atoms.h"
#include "cooling.h"

void CoolPota(void)
{
	double cs;

	DEBUG_ENTRY( "CoolPota()" );

	/* potasium lines
	 * KI 7745 */
	cs = 7.231e-4*phycon.te*phycon.te03*phycon.te02;
	PutCS(cs,TauLines[ipKI7745]);
	atom_level2(TauLines[ipKI7745]);

	/* [K III] 4.62 microns
	 * Y(ik) from 
	 * >>refer	k3	cs	Pelan, J., & Berrington, K.A. 1995, A&A Suppl, 110, 209 */
	PutCS(2.2,TauLines[ipxK03462]);
	atom_level2(TauLines[ipxK03462]);

	/* [KIV] 5.983, 15.39 mic, cs from 
	 * >>refer	k4	cs	Galavis, M.E., Mendoza, C., & Zeippen, C.J. 1995, A&AS, 111, 347 */
	PutCS(4.3,TauLines[ipxK04598]);
	PutCS(1.13,TauLines[ipxK04154]);
	PutCS(1.3,*TauDummy);
	/* atom_level3(  t10,t21,t20) */
	atom_level3(TauLines[ipxK04598],TauLines[ipxK04154],*TauDummy);

	/* [K VII] 3.189 microns cs from 
	 * >>refer	k7	cs	Saraph, H.E., & Storey, P.J. A&AS, 115, 151 */
	PutCS(4.5,TauLines[ipxK07319]);
	atom_level2(TauLines[ipxK07319]);

	return;
}