00001
00002
00003
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
00018
00019 cs = 7.231e-4*phycon.te*phycon.te03*phycon.te02;
00020 PutCS(cs,&TauLines[ipKI7745]);
00021 atom_level2(&TauLines[ipKI7745]);
00022
00023
00024
00025
00026 PutCS(2.2,&TauLines[ipxK03462]);
00027 atom_level2(&TauLines[ipxK03462]);
00028
00029
00030
00031 PutCS(4.3,&TauLines[ipxK04598]);
00032 PutCS(1.13,&TauLines[ipxK04154]);
00033 PutCS(1.3,&TauDummy);
00034
00035 atom_level3(&TauLines[ipxK04598],&TauLines[ipxK04154],&TauDummy);
00036
00037
00038
00039 cs = MIN2(1.505,0.274*phycon.te10*phycon.te05/phycon.te001/
00040 phycon.te001);
00041 PutCS(cs,&TauLines[ipxK06882]);
00042
00043 cs = MIN2(4.632,1.909*phycon.te10/phycon.te003);
00044 cs = MAX2(4.0,cs);
00045 PutCS(cs,&TauLines[ipxK06557]);
00046 PutCS(1.2,&TauDummy);
00047
00048 atom_level3(&TauLines[ipxK06882],&TauLines[ipxK06557],&TauDummy);
00049
00050
00051
00052 PutCS(4.5,&TauLines[ipxK07319]);
00053 atom_level2(&TauLines[ipxK07319]);
00054
00055
00056
00057 cs = MIN2(0.172,0.0109*phycon.te20*phycon.te02/
00058 phycon.te001/phycon.te001);
00059 cs = MAX2(0.111,cs);
00060 PutCS(0.115,&TauLines[ipxK11425]);
00061
00062 atom_level2(&TauLines[ipxK11425]);
00063
00064 return;
00065 }