src/FDM/JSBSim/models/propulsion/FGTurbine.cpp

   1 /*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   2
   3  Module:       FGTurbine.cpp
   4  Author:       David Culp
   5  Date started: 03/11/2003
   6  Purpose:      This module models a turbine engine.
   7
   8  ------------- Copyright (C) 2003  David Culp (davidculp2@comcast.net) ---------
   9
  10  This program is free software; you can redistribute it and/or modify it under
  11  the terms of the GNU Lesser General Public License as published by the Free Software
  12  Foundation; either version 2 of the License, or (at your option) any later
  13  version.
  14
  15  This program is distributed in the hope that it will be useful, but WITHOUT
  16  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  17  FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public License for more
  18  details.
  19
  20  You should have received a copy of the GNU Lesser General Public License along with
  21  this program; if not, write to the Free Software Foundation, Inc., 59 Temple
  22  Place - Suite 330, Boston, MA  02111-1307, USA.
  23
  24  Further information about the GNU Lesser General Public License can also be found on
  25  the world wide web at http://www.gnu.org.
  26
  27 FUNCTIONAL DESCRIPTION
  28 --------------------------------------------------------------------------------
  29
  30 This class descends from the FGEngine class and models a turbine engine based
  31 on parameters given in the engine config file for this class
  32
  33 HISTORY
  34 --------------------------------------------------------------------------------
  35 03/11/2003  DPC  Created
  36 09/08/2003  DPC  Changed Calculate() and added engine phases
  37
  38 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  39 INCLUDES
  40 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*/
  41
  42 #include <vector>
  43 #include <sstream>
  44
  45 #include "FGTurbine.h"
  46
  47 namespace JSBSim {
  48
  49 static const char *IdSrc = "$Id$";
  50 static const char *IdHdr = ID_TURBINE;
  51
  52 /*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  53 CLASS IMPLEMENTATION
  54 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*/
  55
  56
  57 FGTurbine::FGTurbine(FGFDMExec* exec, Element *el, int engine_number)
  58   : FGEngine(exec, el, engine_number)
  59 {
  60   SetDefaults();
  61
  62   Load(exec, el);
  63   Debug(0);
  64 }
  65
  66 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  67
  68 FGTurbine::~FGTurbine()
  69 {
  70   delete IdleThrustLookup;
  71   delete MilThrustLookup;
  72   delete MaxThrustLookup;
  73   delete InjectionLookup;
  74   unbind();
  75   Debug(1);
  76 }
  77
  78 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  79 // The main purpose of Calculate() is to determine what phase the engine should
  80 // be in, then call the corresponding function.
  81
  82 double FGTurbine::Calculate(void)
  83 {
  84   TAT = (Auxiliary->GetTotalTemperature() - 491.69) * 0.5555556;
  85   dt = State->Getdt() * Propulsion->GetRate();
  86   ThrottlePos = FCS->GetThrottlePos(EngineNumber);
  87   if (ThrottlePos > 1.0) {
  88     AugmentCmd = ThrottlePos - 1.0;
  89     ThrottlePos -= AugmentCmd;
  90   } else {
  91     AugmentCmd = 0.0;
  92   }
  93
  94   // When trimming is finished check if user wants engine OFF or RUNNING
  95   if ((phase == tpTrim) && (dt > 0)) {
  96     if (Running && !Starved) {
  97       phase = tpRun;
  98       N2 = IdleN2 + ThrottlePos * N2_factor;
  99       N1 = IdleN1 + ThrottlePos * N1_factor;
 100       OilTemp_degK = 366.0;
 101       Cutoff = false;
 102       }
 103     else {
 104       phase = tpOff;
 105       Cutoff = true;
 106       EGT_degC = TAT;
 107       }
 108     }
 109
 110   if (!Running && Cutoff && Starter) {
 111      if (phase == tpOff) phase = tpSpinUp;
 112      }
 113   if (!Running && !Cutoff && (N2 > 15.0)) phase = tpStart;
 114   if (Cutoff && (phase != tpSpinUp)) phase = tpOff;
 115   if (dt == 0) phase = tpTrim;
 116   if (Starved) phase = tpOff;
 117   if (Stalled) phase = tpStall;
 118   if (Seized) phase = tpSeize;
 119
 120   switch (phase) {
 121     case tpOff:    Thrust = Off(); break;
 122     case tpRun:    Thrust = Run(); break;
 123     case tpSpinUp: Thrust = SpinUp(); break;
 124     case tpStart:  Thrust = Start(); break;
 125     case tpStall:  Thrust = Stall(); break;
 126     case tpSeize:  Thrust = Seize(); break;
 127     case tpTrim:   Thrust = Trim(); break;
 128     default: Thrust = Off();
 129   }
 130
 131   Thrust = Thruster->Calculate(Thrust); // allow thruster to modify thrust (i.e. reversing)
 132
 133   return Thrust;
 134 }
 135
 136 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 137
 138 double FGTurbine::Off(void)
 139 {
 140   double qbar = Auxiliary->Getqbar();
 141   Running = false;
 142   FuelFlow_pph = Seek(&FuelFlow_pph, 0, 1000.0, 10000.0);
 143   N1 = Seek(&N1, qbar/10.0, N1/2.0, N1/2.0);
 144   N2 = Seek(&N2, qbar/15.0, N2/2.0, N2/2.0);
 145   EGT_degC = Seek(&EGT_degC, TAT, 11.7, 7.3);
 146   OilTemp_degK = Seek(&OilTemp_degK, TAT + 273.0, 0.2, 0.2);
 147   OilPressure_psi = N2 * 0.62;
 148   NozzlePosition = Seek(&NozzlePosition, 1.0, 0.8, 0.8);
 149   EPR = Seek(&EPR, 1.0, 0.2, 0.2);
 150   Augmentation = false;
 151   return 0.0;
 152 }
 153
 154 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 155
 156 double FGTurbine::Run()
 157 {
 158   double idlethrust, milthrust, thrust;
 159   double N2norm;   // 0.0 = idle N2, 1.0 = maximum N2
 160
 161   idlethrust = MilThrust * IdleThrustLookup->GetValue();
 162   milthrust = (MilThrust - idlethrust) * MilThrustLookup->GetValue();
 163
 164   Running = true;
 165   Starter = false;
 166
 167   N2 = Seek(&N2, IdleN2 + ThrottlePos * N2_factor, delay, delay * 3.0);
 168   N1 = Seek(&N1, IdleN1 + ThrottlePos * N1_factor, delay, delay * 2.4);
 169   N2norm = (N2 - IdleN2) / N2_factor;
 170   thrust = idlethrust + (milthrust * N2norm * N2norm);
 171   EGT_degC = TAT + 363.1 + ThrottlePos * 357.1;
 172   OilPressure_psi = N2 * 0.62;
 173   OilTemp_degK = Seek(&OilTemp_degK, 366.0, 1.2, 0.1);
 174
 175   if (!Augmentation) {
 176     correctedTSFC = TSFC * (0.84 + (1-N2norm)*(1-N2norm));
 177     FuelFlow_pph = Seek(&FuelFlow_pph, thrust * correctedTSFC, 1000.0, 100000);
 178     if (FuelFlow_pph < IdleFF) FuelFlow_pph = IdleFF;
 179     NozzlePosition = Seek(&NozzlePosition, 1.0 - N2norm, 0.8, 0.8);
 180     thrust = thrust * (1.0 - BleedDemand);
 181     EPR = 1.0 + thrust/MilThrust;
 182   }
 183
 184   if (AugMethod == 1) {
 185     if ((ThrottlePos > 0.99) && (N2 > 97.0)) {Augmentation = true;}
 186     else {Augmentation = false;}
 187   }
 188
 189   if ((Augmented == 1) && Augmentation && (AugMethod < 2)) {
 190     thrust = MaxThrustLookup->GetValue() * MaxThrust;
 191     FuelFlow_pph = Seek(&FuelFlow_pph, thrust * ATSFC, 5000.0, 10000.0);
 192     NozzlePosition = Seek(&NozzlePosition, 1.0, 0.8, 0.8);
 193   }
 194
 195   if (AugMethod == 2) {
 196     if (AugmentCmd > 0.0) {
 197       Augmentation = true;
 198       double tdiff = (MaxThrust * MaxThrustLookup->GetValue()) - thrust;
 199       thrust += (tdiff * AugmentCmd);
 200       FuelFlow_pph = Seek(&FuelFlow_pph, thrust * ATSFC, 5000.0, 10000.0);
 201       NozzlePosition = Seek(&NozzlePosition, 1.0, 0.8, 0.8);
 202     } else {
 203       Augmentation = false;
 204     }
 205   }
 206
 207   if ((Injected == 1) && Injection) {
 208     thrust = thrust * InjectionLookup->GetValue();
 209   }
 210
 211   ConsumeFuel();
 212   if (Cutoff) phase = tpOff;
 213   if (Starved) phase = tpOff;
 214
 215   return thrust;
 216 }
 217
 218 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 219
 220 double FGTurbine::SpinUp(void)
 221 {
 222   Running = false;
 223   FuelFlow_pph = 0.0;
 224   N2 = Seek(&N2, 25.18, 3.0, N2/2.0);
 225   N1 = Seek(&N1, 5.21, 1.0, N1/2.0);
 226   EGT_degC = Seek(&EGT_degC, TAT, 11.7, 7.3);
 227   OilPressure_psi = N2 * 0.62;
 228   OilTemp_degK = Seek(&OilTemp_degK, TAT + 273.0, 0.2, 0.2);
 229   EPR = 1.0;
 230   NozzlePosition = 1.0;
 231   return 0.0;
 232 }
 233
 234 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 235
 236 double FGTurbine::Start(void)
 237 {
 238   if ((N2 > 15.0) && !Starved) {       // minimum 15% N2 needed for start
 239     Cranking = true;                   // provided for sound effects signal
 240     if (N2 < IdleN2) {
 241       N2 = Seek(&N2, IdleN2, 2.0, N2/2.0);
 242       N1 = Seek(&N1, IdleN1, 1.4, N1/2.0);
 243       EGT_degC = Seek(&EGT_degC, TAT + 363.1, 21.3, 7.3);
 244       FuelFlow_pph = Seek(&FuelFlow_pph, IdleFF, 103.7, 103.7);
 245       OilPressure_psi = N2 * 0.62;
 246       ConsumeFuel();
 247       }
 248     else {
 249       phase = tpRun;
 250       Running = true;
 251       Starter = false;
 252       Cranking = false;
 253       }
 254     }
 255   else {                 // no start if N2 < 15%
 256     phase = tpOff;
 257     Starter = false;
 258     }
 259
 260   return 0.0;
 261 }
 262
 263 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 264
 265 double FGTurbine::Stall(void)
 266 {
 267   double qbar = Auxiliary->Getqbar();
 268   EGT_degC = TAT + 903.14;
 269   FuelFlow_pph = IdleFF;
 270   N1 = Seek(&N1, qbar/10.0, 0, N1/10.0);
 271   N2 = Seek(&N2, qbar/15.0, 0, N2/10.0);
 272   ConsumeFuel();
 273   if (ThrottlePos < 0.01) phase = tpRun;        // clear the stall with throttle
 274
 275   return 0.0;
 276 }
 277
 278 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 279
 280 double FGTurbine::Seize(void)
 281 {
 282     double qbar = Auxiliary->Getqbar();
 283     N2 = 0.0;
 284     N1 = Seek(&N1, qbar/20.0, 0, N1/15.0);
 285     FuelFlow_pph = IdleFF;
 286     ConsumeFuel();
 287     OilPressure_psi = 0.0;
 288     OilTemp_degK = Seek(&OilTemp_degK, TAT + 273.0, 0, 0.2);
 289     Running = false;
 290     return 0.0;
 291 }
 292
 293 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 294
 295 double FGTurbine::Trim()
 296 {
 297     double idlethrust, milthrust, thrust, tdiff;
 298     idlethrust = MilThrust * IdleThrustLookup->GetValue();
 299     milthrust = (MilThrust - idlethrust) * MilThrustLookup->GetValue();
 300     thrust = (idlethrust + (milthrust * ThrottlePos * ThrottlePos))
 301           * (1.0 - BleedDemand);
 302
 303     if (AugMethod == 1) {
 304       if ((ThrottlePos > 0.99) && (N2 > 97.0)) {Augmentation = true;}
 305       else {Augmentation = false;}
 306     }
 307
 308     if ((Augmented == 1) && Augmentation && (AugMethod < 2)) {
 309       thrust = MaxThrust * MaxThrustLookup->GetValue();
 310     }
 311
 312     if (AugMethod == 2) {
 313       if (AugmentCmd > 0.0) {
 314         tdiff = (MaxThrust * MaxThrustLookup->GetValue()) - thrust;
 315         thrust += (tdiff * AugmentCmd);
 316       }
 317     }
 318
 319     if ((Injected == 1) && Injection) {
 320       thrust = thrust * InjectionLookup->GetValue();
 321     }
 322
 323     return thrust;
 324 }
 325
 326 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 327
 328 double FGTurbine::CalcFuelNeed(void)
 329 {
 330   return FuelFlow_pph /3600 * State->Getdt() * Propulsion->GetRate();
 331 }
 332
 333 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 334
 335 double FGTurbine::GetPowerAvailable(void) {
 336   if( ThrottlePos <= 0.77 )
 337     return 64.94*ThrottlePos;
 338   else
 339     return 217.38*ThrottlePos - 117.38;
 340 }
 341
 342 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 343
 344 double FGTurbine::Seek(double *var, double target, double accel, double decel) {
 345   double v = *var;
 346   if (v > target) {
 347     v -= dt * decel;
 348     if (v < target) v = target;
 349   } else if (v < target) {
 350     v += dt * accel;
 351     if (v > target) v = target;
 352   }
 353   return v;
 354 }
 355
 356 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 357
 358 void FGTurbine::SetDefaults(void)
 359 {
 360   N1 = N2 = 0.0;
 361   Type = etTurbine;
 362   MilThrust = 10000.0;
 363   MaxThrust = 10000.0;
 364   BypassRatio = 0.0;
 365   TSFC = 0.8;
 366   correctedTSFC = TSFC;
 367   ATSFC = 1.7;
 368   IdleN1 = 30.0;
 369   IdleN2 = 60.0;
 370   MaxN1 = 100.0;
 371   MaxN2 = 100.0;
 372   Augmented = 0;
 373   AugMethod = 0;
 374   Injected = 0;
 375   BleedDemand = 0.0;
 376   ThrottlePos = 0.0;
 377   AugmentCmd = 0.0;
 378   InletPosition = 1.0;
 379   NozzlePosition = 1.0;
 380   Augmentation = false;
 381   Injection = false;
 382   Reversed = false;
 383   Cutoff = true;
 384   phase = tpOff;
 385   Stalled = false;
 386   Seized = false;
 387   Overtemp = false;
 388   Fire = false;
 389   EGT_degC = 0.0;
 390   IdleThrustLookup = MilThrustLookup = MaxThrustLookup = InjectionLookup = 0;
 391 }
 392
 393 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 394
 395 bool FGTurbine::Load(FGFDMExec* exec, Element *el)
 396 {
 397   char property_prefix[80];
 398   snprintf(property_prefix, 80, "propulsion/engine[%u]/", EngineNumber);
 399
 400   if (el->FindElement("milthrust"))
 401     MilThrust = el->FindElementValueAsNumberConvertTo("milthrust","LBS");
 402   if (el->FindElement("maxthrust"))
 403     MaxThrust = el->FindElementValueAsNumberConvertTo("maxthrust","LBS");
 404   if (el->FindElement("bypassratio"))
 405     BypassRatio = el->FindElementValueAsNumber("bypassratio");
 406   if (el->FindElement("bleed"))
 407     BleedDemand = el->FindElementValueAsNumber("bleed");
 408   if (el->FindElement("tsfc"))
 409     TSFC = el->FindElementValueAsNumber("tsfc");
 410   if (el->FindElement("atsfc"))
 411     ATSFC = el->FindElementValueAsNumber("atsfc");
 412   if (el->FindElement("idlen1"))
 413     IdleN1 = el->FindElementValueAsNumber("idlen1");
 414   if (el->FindElement("idlen2"))
 415     IdleN2 = el->FindElementValueAsNumber("idlen2");
 416   if (el->FindElement("maxn1"))
 417     MaxN1 = el->FindElementValueAsNumber("maxn1");
 418   if (el->FindElement("maxn2"))
 419     MaxN2 = el->FindElementValueAsNumber("maxn2");
 420   if (el->FindElement("augmented"))
 421     Augmented = (int)el->FindElementValueAsNumber("augmented");
 422   if (el->FindElement("augmethod"))
 423     AugMethod = (int)el->FindElementValueAsNumber("augmethod");
 424   if (el->FindElement("injected"))
 425     Injected = (int)el->FindElementValueAsNumber("injected");
 426
 427   Element *function_element;
 428   string name;
 429   FGPropertyManager* PropertyManager = exec->GetPropertyManager();
 430
 431   while (true) {
 432     function_element = el->FindNextElement("function");
 433     if (!function_element) break;
 434     name = function_element->GetAttributeValue("name");
 435     if (name == "IdleThrust") {
 436       IdleThrustLookup = new FGFunction(PropertyManager, function_element, property_prefix);
 437     } else if (name == "MilThrust") {
 438       MilThrustLookup = new FGFunction(PropertyManager, function_element, property_prefix);
 439     } else if (name == "AugThrust") {
 440       MaxThrustLookup = new FGFunction(PropertyManager, function_element, property_prefix);
 441     } else if (name == "Injection") {
 442       InjectionLookup = new FGFunction(PropertyManager, function_element, property_prefix);
 443     } else {
 444       cerr << "Unknown function type: " << name << " in turbine definition." <<
 445       endl;
 446     }
 447   }
 448
 449   // Pre-calculations and initializations
 450
 451   delay = 60.0 / (BypassRatio + 3.0);
 452   N1_factor = MaxN1 - IdleN1;
 453   N2_factor = MaxN2 - IdleN2;
 454   OilTemp_degK = (Auxiliary->GetTotalTemperature() - 491.69) * 0.5555556 + 273.0;
 455   IdleFF = pow(MilThrust, 0.2) * 107.0;  // just an estimate
 456
 457   bindmodel();
 458   return true;
 459 }
 460
 461 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 462
 463 string FGTurbine::GetEngineLabels(string delimeter)
 464 {
 465   std::ostringstream buf;
 466
 467   buf << Name << "_N1[" << EngineNumber << "]" << delimeter
 468       << Name << "_N2[" << EngineNumber << "]" << delimeter
 469       << Thruster->GetThrusterLabels(EngineNumber, delimeter);
 470
 471   return buf.str();
 472 }
 473
 474 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 475
 476 string FGTurbine::GetEngineValues(string delimeter)
 477 {
 478   std::ostringstream buf;
 479
 480   buf << N1 << delimeter
 481       << N2 << delimeter
 482       << Thruster->GetThrusterValues(EngineNumber, delimeter);
 483
 484   return buf.str();
 485 }
 486
 487 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 488
 489 void FGTurbine::bindmodel()
 490 {
 491   char property_name[80];
 492
 493   snprintf(property_name, 80, "propulsion/engine[%u]/n1", EngineNumber);
 494   PropertyManager->Tie( property_name, &N1);
 495   snprintf(property_name, 80, "propulsion/engine[%u]/n2", EngineNumber);
 496   PropertyManager->Tie( property_name, &N2);
 497   snprintf(property_name, 80, "propulsion/engine[%u]/thrust", EngineNumber);
 498   PropertyManager->Tie( property_name, this, &FGTurbine::GetThrust);
 499 }
 500
 501 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 502
 503 void FGTurbine::unbind()
 504 {
 505   char property_name[80];
 506
 507   snprintf(property_name, 80, "propulsion/engine[%u]/n1", EngineNumber);
 508   PropertyManager->Untie(property_name);
 509   snprintf(property_name, 80, "propulsion/engine[%u]/n2", EngineNumber);
 510   PropertyManager->Untie(property_name);
 511   snprintf(property_name, 80, "propulsion/engine[%u]/thrust", EngineNumber);
 512   PropertyManager->Untie(property_name);
 513 }
 514
 515 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 516 //    The bitmasked value choices are as follows:
 517 //    unset: In this case (the default) JSBSim would only print
 518 //       out the normally expected messages, essentially echoing
 519 //       the config files as they are read. If the environment
 520 //       variable is not set, debug_lvl is set to 1 internally
 521 //    0: This requests JSBSim not to output any messages
 522 //       whatsoever.
 523 //    1: This value explicity requests the normal JSBSim
 524 //       startup messages
 525 //    2: This value asks for a message to be printed out when
 526 //       a class is instantiated
 527 //    4: When this value is set, a message is displayed when a
 528 //       FGModel object executes its Run() method
 529 //    8: When this value is set, various runtime state variables
 530 //       are printed out periodically
 531 //    16: When set various parameters are sanity checked and
 532 //       a message is printed out when they go out of bounds
 533
 534 void FGTurbine::Debug(int from)
 535 {
 536   if (debug_lvl <= 0) return;
 537
 538   if (debug_lvl & 1) { // Standard console startup message output
 539     if (from == 0) { // Constructor
 540
 541     }
 542     if (from == 2) { // called from Load()
 543       cout << "\n    Engine Name: "         << Name << endl;
 544       cout << "      MilThrust:   "         << MilThrust << endl;
 545       cout << "      MaxThrust:   "         << MaxThrust << endl;
 546       cout << "      BypassRatio: "         << BypassRatio << endl;
 547       cout << "      TSFC:        "         << TSFC << endl;
 548       cout << "      ATSFC:       "         << ATSFC << endl;
 549       cout << "      IdleN1:      "         << IdleN1 << endl;
 550       cout << "      IdleN2:      "         << IdleN2 << endl;
 551       cout << "      MaxN1:       "         << MaxN1 << endl;
 552       cout << "      MaxN2:       "         << MaxN2 << endl;
 553       cout << "      Augmented:   "         << Augmented << endl;
 554       cout << "      AugMethod:   "         << AugMethod << endl;
 555       cout << "      Injected:    "         << Injected << endl;
 556       cout << "      MinThrottle: "         << MinThrottle << endl;
 557
 558       cout << endl;
 559     }
 560   }
 561   if (debug_lvl & 2 ) { // Instantiation/Destruction notification
 562     if (from == 0) cout << "Instantiated: FGTurbine" << endl;
 563     if (from == 1) cout << "Destroyed:    FGTurbine" << endl;
 564   }
 565   if (debug_lvl & 4 ) { // Run() method entry print for FGModel-derived objects
 566   }
 567   if (debug_lvl & 8 ) { // Runtime state variables
 568   }
 569   if (debug_lvl & 16) { // Sanity checking
 570   }
 571   if (debug_lvl & 64) {
 572     if (from == 0) { // Constructor
 573       cout << IdSrc << endl;
 574       cout << IdHdr << endl;
 575     }
 576   }
 577 }
 578 }