00001
00002
00003
00004 #ifndef _THERMAL_H_
00005 #define _THERMAL_H_
00006
00007
00008
00009 #define NCOLNT 10000L
00010
00013 void TempChange(
00014 double TempNew ,
00015
00016 bool lgForceUpdate);
00017
00021 void TempChange(
00022 double TempNew );
00023
00024 EXTERN struct t_thermal {
00025
00027 double dTemper;
00028
00031 bool lgPredNextTe;
00032
00035 bool lgTemperatureConstant;
00036
00041 bool lgTemperatureConstantCommandParsed;
00042
00047 realnum ConstTemp;
00048
00050 realnum ConstGrainTemp;
00051
00055 long int nUnstable;
00056 bool lgUnstable;
00057
00059 realnum thist,
00060 tlowst;
00061
00063 bool lgTeHigh;
00064
00068 bool lgEdnGTcm;
00069
00071 bool lgTLaw;
00072
00075 bool lgTeBD96;
00077 realnum T0BD96,
00079 SigmaBD96;
00080
00082 realnum T0SN99;
00083 bool lgTeSN99;
00084
00090 realnum collam[NCOLNT];
00091 double cooling[NCOLNT],
00092 heatnt[NCOLNT];
00093 long int ncltot;
00094 # define NCOLNT_LAB_LEN 15
00095 char chClntLab[NCOLNT][NCOLNT_LAB_LEN+1];
00096
00099 bool lgCNegChk;
00100
00102 realnum CoolHeatMax;
00103 realnum wlCoolHeatMax;
00104 char chCoolHeatMax[NCOLNT_LAB_LEN+1];
00105
00107 double totcol,
00109 ctot,
00111 heatl,
00113 coolheat;
00114
00116 double dCooldT;
00117
00119 double tsq1,
00120 halfte;
00121
00125 double te_update;
00126
00128 bool lgCExtraOn;
00129 realnum CoolExtra,
00130 cextpw;
00131
00136 bool lgCoolEvalOK;
00137
00139 realnum GBarMax;
00140 long int ipMaxExtra;
00141
00143 double char_tran_heat , char_tran_cool;
00144
00146 double HeatNet,
00147
00149 HeatLowEnr ,
00150
00152 HeatHiEnr ,
00153
00155 htot,
00156
00158 power,
00159
00161 dHeatdT;
00162
00164 double heating[LIMELM][LIMELM];
00165
00167 double FreeFreeTotHeat;
00168
00170 realnum HeatLineMax;
00171 long int levlmax,
00172 ipHeatlmax;
00173
00175 # define NGRID 100
00176
00177 realnum TeGrid[NGRID],
00178 HtGrid[NGRID],
00179 ClGrid[NGRID];
00180
00181 long int ipGrid,
00182 nZonGrid[NGRID];
00183
00184 } thermal;
00185
00186 #endif