Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | SurfNum |
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.
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 MapIntConvClassificationToHcModels(SurfNum)
! SUBROUTINE INFORMATION:
! AUTHOR Brent Griffith
! DATE WRITTEN Aug 2010
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Map Hc model equation data from central structure to surface structure
! METHODOLOGY EMPLOYED:
! Long case statement depends on surface classification determined in DynamicIntConvSurfaceClassification
! then simply map data stored in InsideFaceAdaptiveConvectionAlgo into the surface's structure
! if model type is user-defined, also store the index to the user curve to be used.
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: SurfNum ! surface pointer index
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
SELECT CASE (Surface(SurfNum)%IntConvClassification)
CASE ( InConvClass_A1_VertWalls )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolVertWallEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolVertWallUserCurveNum
ENDIF
CASE ( InConvClass_A1_StableHoriz )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolStableHorizEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolStableHorizUserCurveNum
ENDIF
CASE ( InConvClass_A1_UnstableHoriz )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolUnstableHorizEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolUnstableHorizUserCurveNum
ENDIF
CASE ( InConvClass_A1_HeatedFloor )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolHeatedFloorEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolHeatedFloorUserCurveNum
ENDIF
CASE ( InConvClass_A1_ChilledCeil )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolChilledCeilingEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolChilledCeilingUserCurveNum
ENDIF
CASE ( InConvClass_A1_StableTilted )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolStableTiltedEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolStableTiltedUserCurveNum
ENDIF
CASE ( InConvClass_A1_UnstableTilted )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolUnstableTiltedEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolUnstableTiltedUserCurveNum
ENDIF
CASE ( InConvClass_A1_Windows )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolWindowsEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%FloorHeatCeilingCoolWindowsUserCurveNum
ENDIF
CASE ( InConvClass_A2_VertWallsNonHeated)
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%WallPanelHeatVertWallEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%WallPanelHeatVertWallUserCurveNum
ENDIF
CASE ( InConvClass_A2_HeatedVerticalWall )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%WallPanelHeatHeatedWallEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%WallPanelHeatHeatedWallUserCurveNum
ENDIF
CASE ( InConvClass_A2_StableHoriz )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%WallPanelHeatStableHorizEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%WallPanelHeatStableHorizUserCurveNum
ENDIF
CASE ( InConvClass_A2_UnstableHoriz )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%WallPanelHeatUnstableHorizEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%WallPanelHeatUnstableHorizUserCurveNum
ENDIF
CASE ( InConvClass_A2_StableTilted )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%WallPanelHeatStableTiltedEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%WallPanelHeatStableTiltedUserCurveNum
ENDIF
CASE ( InConvClass_A2_UnstableTilted )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%WallPanelHeatUnstableTiltedEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%WallPanelHeatUnstableTiltedUserCurveNum
ENDIF
CASE ( InConvClass_A2_Windows )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%WallPanelHeatWindowsEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%WallPanelHeatWindowsUserCurveNum
ENDIF
CASE ( InConvClass_A3_VertWalls )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%SimpleBouyVertWallEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%SimpleBouyVertWallUserCurveNum
ENDIF
CASE ( InConvClass_A3_StableHoriz )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%SimpleBouyStableHorizEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%SimpleBouyStableHorizUserCurveNum
ENDIF
CASE ( InConvClass_A3_UnstableHoriz )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%SimpleBouyUnstableHorizEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%SimpleBouyUnstableHorizUserCurveNum
ENDIF
CASE ( InConvClass_A3_StableTilted )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%SimpleBouyStableTiltedEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%SimpleBouyStableTiltedUserCurveNum
ENDIF
CASE ( InConvClass_A3_UnstableTilted )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%SimpleBouyUnstableTiltedEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%SimpleBouyUnstableTiltedUserCurveNum
ENDIF
CASE ( InConvClass_A3_Windows )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%SimpleBouyWindowsEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%SimpleBouyWindowsUserCurveNum
ENDIF
CASE ( InConvClass_B_VertWalls )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%ConvectiveHeatVertWallEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%ConvectiveHeatVertWallUserCurveNum
ENDIF
CASE ( InConvClass_B_VertWallsNearHeat)
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%ConvectiveHeatVertWallNearHeaterEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%ConvectiveHeatVertWallNearHeaterUserCurveNum
ENDIF
CASE ( InConvClass_B_StableHoriz )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%ConvectiveHeatStableHorizEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%ConvectiveHeatStableHorizUserCurveNum
ENDIF
CASE ( InConvClass_B_UnstableHoriz )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%ConvectiveHeatUnstableHorizEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%ConvectiveHeatUnstableHorizUserCurveNum
ENDIF
CASE ( InConvClass_B_StableTilted )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%ConvectiveHeatStableTiltedEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%ConvectiveHeatStableTiltedUserCurveNum
ENDIF
CASE ( InConvClass_B_UnstableTilted )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%ConvectiveHeatUnstableTiltedEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%ConvectiveHeatUnstableTiltedUserCurveNum
ENDIF
CASE ( InConvClass_B_Windows )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%ConvectiveHeatWindowsEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%ConvectiveHeatWindowsUserCurveNum
ENDIF
CASE ( InConvClass_C_Walls )
IF ((Surface(SurfNum)%IntConvZonePerimLength == 0.d0) &
.AND. (InsideFaceAdaptiveConvectionAlgo%CentralAirWallEqNum == HcInt_GoldsteinNovoselacCeilingDiffuserWalls)) THEN
! no perimeter, Goldstein Novolselac model not good so revert to fisher pedersen model
Surface(SurfNum)%IntConvHcModelEq = HcInt_FisherPedersenCeilDiffuserWalls
ELSE
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%CentralAirWallEqNum
ENDIF
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%CentralAirWallUserCurveNum
ENDIF
CASE ( InConvClass_C_Ceiling )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%CentralAirCeilingEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%CentralAirCeilingUserCurveNum
ENDIF
CASE ( InConvClass_C_Floor )
IF ((Surface(SurfNum)%IntConvZonePerimLength == 0.d0) &
.AND. (InsideFaceAdaptiveConvectionAlgo%CentralAirFloorEqNum == HcInt_GoldsteinNovoselacCeilingDiffuserFloor)) THEN
! no perimeter, Goldstein Novolselac model not good so revert to fisher pedersen model
Surface(SurfNum)%IntConvHcModelEq = HcInt_FisherPedersenCeilDiffuserFloor
ELSE
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%CentralAirFloorEqNum
ENDIF
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%CentralAirFloorUserCurveNum
ENDIF
CASE ( InConvClass_C_Windows )
IF ((Surface(SurfNum)%IntConvZonePerimLength == 0.d0) &
.AND. (InsideFaceAdaptiveConvectionAlgo%CentralAirWindowsEqNum == HcInt_GoldsteinNovoselacCeilingDiffuserWindow)) THEN
! no perimeter, Goldstein Novolselac model not good so revert to ISO15099
Surface(SurfNum)%IntConvHcModelEq = HcInt_ISO15099Windows
ELSE
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%CentralAirWindowsEqNum
ENDIF
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%CentralAirWindowsUserCurveNum
ENDIF
CASE ( InConvClass_D_Walls )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%ZoneFanCircVertWallEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%ZoneFanCircVertWallUserCurveNum
ENDIF
CASE ( InConvClass_D_StableHoriz )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%ZoneFanCircStableHorizEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%ZoneFanCircStableHorizUserCurveNum
ENDIF
CASE ( InConvClass_D_UnstableHoriz )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%ZoneFanCircUnstableHorizEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%ZoneFanCircUnstableHorizUserCurveNum
ENDIF
CASE ( InConvClass_D_StableTilted )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%ZoneFanCircStableTiltedEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%ZoneFanCircStableTiltedUserCurveNum
ENDIF
CASE ( InConvClass_D_UnstableTilted )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%ZoneFanCircUnstableTiltedEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%ZoneFanCircUnstableTiltedUserCurveNum
ENDIF
CASE ( InConvClass_D_Windows )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%ZoneFanCircWindowsEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%ZoneFanCircWindowsUserCurveNum
ENDIF
CASE ( InConvClass_E_AssistFlowWalls)
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%MixedBouyAssistingFlowWallEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%MixedBouyAssistingFlowWallUserCurveNum
ENDIF
CASE ( InConvClass_E_OpposFlowWalls )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%MixedBouyOppossingFlowWallEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%MixedBouyOppossingFlowWallUserCurveNum
ENDIF
CASE ( InConvClass_E_StableFloor )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%MixedStableFloorEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%MixedStableFloorUserCurveNum
ENDIF
CASE ( InConvClass_E_UnstableFloor )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%MixedUnstableFloorEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%MixedUnstableFloorUserCurveNum
ENDIF
CASE ( InConvClass_E_StableCeiling )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%MixedStableCeilingEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%MixedStableCeilingUserCurveNum
ENDIF
CASE ( InConvClass_E_UnstableCieling)
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%MixedUnstableCeilingEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%MixedUnstableCeilingUserCurveNum
ENDIF
CASE ( InConvClass_E_Windows )
Surface(SurfNum)%IntConvHcModelEq = InsideFaceAdaptiveConvectionAlgo%MixedWindowsEqNum
IF (Surface(SurfNum)%IntConvHcModelEq == HcInt_UserCurve) THEN
Surface(SurfNum)%IntConvHcUserCurveIndex = InsideFaceAdaptiveConvectionAlgo%MixedWindowsUserCurveNum
ENDIF
END SELECT
RETURN
END SUBROUTINE MapIntConvClassificationToHcModels