00001
00002
00003
00004
00005 #define NCOLNT 10000L
00006
00010 void tfidle(
00011 bool lgForceUpdate);
00012
00013 EXTERN struct t_thermal {
00014
00016 double dTemper;
00017
00020 bool lgPredNextTe;
00021
00024 bool lgTSetOn;
00025
00028 float ConstTemp;
00029
00031 float ConstGrainTemp;
00032
00036 long int nUnstable;
00037 bool lgUnstable;
00038
00040 float thist,
00041 tlowst;
00042
00044 bool lgTeHigh;
00045
00049 bool lgEdnGTcm;
00050
00052 bool lgTLaw;
00053
00056 bool lgTeBD96;
00058 float T0BD96,
00060 SigmaBD96;
00061
00063 float T0SN99;
00064 bool lgTeSN99;
00065
00071 float collam[NCOLNT];
00072 double cooling[NCOLNT],
00073 heatnt[NCOLNT];
00074 long int ncltot;
00075 # define NCOLNT_LAB_LEN 15
00076 char chClntLab[NCOLNT][NCOLNT_LAB_LEN+1];
00077
00080 bool lgColNeg;
00081
00084 bool lgCNegChk;
00085
00087 float CoolHeatMax;
00088 float wlCoolHeatMax;
00089 char chCoolHeatMax[NCOLNT_LAB_LEN+1];
00090
00092 double totcol,
00094 ctot,
00096 heatl,
00098 coolheat;
00099
00101 double dCooldT;
00102
00104 float tsq1,
00105 halfte;
00106
00110 double te_update;
00111
00113 bool lgCExtraOn;
00114 float CoolExtra,
00115 cextpw;
00116
00121 bool lgCoolEvalOK;
00122
00124 float GBarMax;
00125 long int ipMaxExtra;
00126
00128 double char_tran_heat , char_tran_cool;
00129
00131 double HeatNet,
00132
00134 HeatLowEnr ,
00135
00137 HeatHiEnr ,
00138
00140 htot,
00141
00143 power,
00144
00146 dHeatdT;
00147
00149 double heating[LIMELM][LIMELM];
00150
00152 double FreeFreeTotHeat;
00153
00155 float HeatLineMax;
00156 long int levlmax,
00157 ipHeatlmax;
00158
00160 # define NGRID 100
00161
00162 float TeGrid[NGRID],
00163 HtGrid[NGRID],
00164 ClGrid[NGRID];
00165
00166 long int ipGrid,
00167 nZonGrid[NGRID];
00168
00169 } thermal;