| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | Num | |||
| real(kind=r64), | intent(in) | :: | NdotFuel | |||
| real(kind=r64), | intent(in) | :: | NdotCO2 | |||
| real(kind=r64), | intent(in) | :: | NdotH20 | |||
| real(kind=r64), | intent(out) | :: | LHV |
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
SUBROUTINE FigureLHVofFuel(Num,NdotFuel, NdotCO2, NdotH20, LHV)
! SUBROUTINE INFORMATION:
! AUTHOR B Griffith
! DATE WRITTEN Aug 2005
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Calculate LHV
! METHODOLOGY EMPLOYED:
! ANNEX 42 eq. 6 method from molar enthalpies
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: Num
REAL(r64) , INTENT(IN) :: NdotFuel
REAL(r64) , INTENT(IN) :: NdotCO2
REAL(r64) , INTENT(IN) :: NdotH20
REAL(r64) , INTENT(OUT):: LHV
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
REAL(r64) :: DelfHfuel
REAL(r64) :: DelfHCO2
REAL(r64) :: DelfHH20
INTEGER ::I
REAL(r64) :: h_i
INTEGER :: CO2dataID
INTEGER :: WaterDataID
INTEGER :: thisGasID
CO2dataID = 1 !hard-coded in SetupFuelAndAirConstituentData
WaterDataID = 4 !hard-coded in SetupFuelAndAirConstituentData
DelfHfuel = 0.0d0
DO I = 1, FuelSupply(FuelCell(Num)%FuelSupNum)%NumConstituents
thisGasID = FuelSupply(FuelCell(Num)%FuelSupNum)%GasLibID(i)
h_i = GasPhaseThermoChemistryData(thisGasID)%StdRefMolarEnthOfForm
DelfHfuel = DelfHfuel + NdotFuel * h_i * FuelSupply(FuelCell(Num)%FuelSupNum)%ConstitMolalFract(i)
ENDDO
DelfHCO2 = GasPhaseThermoChemistryData(CO2dataID)%StdRefMolarEnthOfForm * NdotCO2
DelfHH20 = GasPhaseThermoChemistryData(WaterDataID)%StdRefMolarEnthOfForm * NdotH20
LHV = (DelfHfuel - DelfHCO2 - DelfHH20) / NdotFuel !Equation 6
RETURN
END SUBROUTINE FigureLHVofFuel