cloudy trunk
|
00001 /* This file is part of Cloudy and is copyright (C)1978-2008 by Gary J. Ferland and 00002 * others. For conditions of distribution and use see copyright notice in license.txt */ 00003 00004 #ifndef _THERMAL_H_ 00005 #define _THERMAL_H_ 00006 00007 /* thermal.h */ 00008 00009 #define NCOLNT 10000L 00010 00013 void TempChange( 00014 double TempNew , 00015 /* option to force update of all variables */ 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 /* _THERMAL_H_ */