# Subroutine to calculate performance parameters for a gas turbine
# Based on the GAS_TURBINE performace macro in CFX-TASCflow.  The
# disclaimer from TASCflow:
#
# Some of the definitions used in these macros have
# alternate forms in the common literature.  Constant fluid specific
# heats are assumed.  Please check the definitions in the macros to
# be sure you get what you expect.

# Macro GUI begin
#
# macro name = Gas Turbine Performance
# macro subroutine = turbinePerformTurbo
# macro report file = TurbinePerform_report.html
# macro related files = turbinePerform.cse, turboMacroUtilities.cse
#
# macro parameter = Domains
#  type = Domain
#
# macro parameter = Ref Radius
#  type = Float
#  quantity type = length
#  range = 0.0001 [m], 0.1 [m]
#  default = 0.05 [m]
#
# macro parameter = Fluid Gamma
#  type = Float
#  range = 1, 2
#  default = 1.4
#
# Macro GUI end

! no warnings 'redefine';
! use strict 'vars';

! sub turbinePerformTurbo {
! my ( $domainList, $rRadius, $gamma ) = @_;
!
# Create all turbo prameters
! my @retVal = collectTurboInfo($domainList);
! if ( !@retVal ) {
!   exit 1;
! }
!
# Execute the standard turbine performance macro
! turbinePerform(@retVal, $rRadius, $gamma);
!}
