modelBellDelaware
BellDelaware: Single phase (oil/water) correlation for flow in the shell side of a STHX
Extends from TRANSFORM.Fluid.ClosureRelations.HeatTransfer.Models.DistributedPipe_1D.PartialHeatTransfer_setT (Base model).
Information
The Lyon-Martinelli heat transfer correlation is for flow of liquid metal in circular tubes with contant heat flux along the tube wall.
The correlation was taken from the following textbook:
M. M. Wakil
Nuclear Heat Transport 1993
eq. 10-2 pg. 268
and is reported valid for:
- liquid metal coolant
- flow in circular tubes
- constant heat flux along tube wall
Parameters
| Type | Name | Default | Description |
|---|---|---|---|
| Boolean | isGas | false | true if Medium is a gas |
| Real | np | 0 | Gas specific exponential correction factor (e.g., air = 0; N2 = 0.12) |
| Boolean | toggleEndChannel | false | =true for end channel; false for center channel |
| Boolean | toggleStaggered | true | true = staggered grid type; false = in-line |
| SI.Length | d_B | Diameter of holes in baffles | |
| SI.Length | d_o | Outer diameter of tubes | |
| SI.Length | D_i | Inside shell diameter | |
| SI.Length | D_l | Baffle Diameter | |
| SI.Length | DB | Tube bundle diameter | |
| SI.Length | H | Height of baffle cut | |
| SI.Length | s1 | Tube to tube pitch parallel to baffel edge | |
| SI.Length | s2 | Tube to tube pitch perpindicular to baffel edge | |
| SI.Length | S | Baffle spacing between baffles | |
| SI.Length | S_E | Baffle spacing between the heat exchanger sheets and adjacent baffles | |
| SI.Length | e1 | Space between tubes and shell | |
| Real | nes | # of shortest connections connecting neighboring tubes | |
| Real | n_W | # of tubes in both the upper and lower window | |
| Real | n_T | Total # of tubes (including blind and support) | |
| Real | n_MR | # of main resistances in cross flow path | |
| Real | n_s | # of pairs of sealing strips | |
| Internal Interface | |||
| Real | nParallel (from PartialHeatTransfer_setT) | 1 | Number of parallel components |
| Integer | nHT (from PartialHeatTransfer_setT) | 1 | Number of heat transfer segments |
| Integer | flagIdeal (from PartialHeatTransfer_setT) | 0 | Flag for models to handle ideal boundary |
| Internal Interface › Initialization | |||
| SI.Temperature[nHT] | Ts_start (from PartialHeatTransfer_setT) | ||
| Advanced | |||
| SI.ReynoldsNumber | Re_lam (from PartialHeatTransfer_setT) | 2300 | Laminar transition Reynolds number |
| SI.ReynoldsNumber | Re_turb (from PartialHeatTransfer_setT) | 4000 | Turbulent transition Reynolds number |
| Units.NonDim[nHT] | CF (from PartialHeatTransfer_setT) | fill(1.0, nHT) | Correction Factor: Q = CF*alpha*A*dT |
Connectors
| Type | Name | Default | Description |
|---|---|---|---|
| HeatAndMassTransfer.Interfaces.HeatPort_Flow[nHT] | heatPorts (from PartialHeatTransfer_setT) |
Components
| Type | Name | Default | Description |
|---|---|---|---|
| Medium.ThermodynamicState[nHT] | states (from PartialHeatTransfer_setT) | Thermodynamic state of fluid | |
| SI.Velocity[nHT] | vs (from PartialHeatTransfer_setT) | Fluid Velocity | |
| SI.Diameter[nHT] | dimensions (from PartialHeatTransfer_setT) | Characteristic dimension (e.g. hydraulic diameter) | |
| SI.Area[nHT] | crossAreas (from PartialHeatTransfer_setT) | Cross sectional flow area | |
| SI.Length[nHT] | dlengths (from PartialHeatTransfer_setT) | Characteristic length of heat transfer segment | |
| SI.Height[nHT] | roughnesses (from PartialHeatTransfer_setT) | Average height of surface asperities | |
| SI.Area[nHT] | surfaceAreas (from PartialHeatTransfer_setT) | Surface area for heat transfer | |
| SI.Temperature[nHT] | Ts_fluid (from PartialHeatTransfer_setT) | Medium.temperature(states) | Fluid temperature |
| SI.Temperature[nHT] | Ts_wall (from PartialHeatTransfer_setT) | heatPorts.T | Wall temperature |
| SI.MassFlowRate[nHT] | m_flows (from PartialHeatTransfer_setT) | Fluid mass flow rate | |
| SI.ReynoldsNumber[nHT] | Res (from PartialHeatTransfer_setT) | Reynolds number | |
| SI.PrandtlNumber[nHT] | Prs (from PartialHeatTransfer_setT) | Prandtl number | |
| SI.CoefficientOfHeatTransfer[nHT] | alphas (from PartialHeatTransfer_setT) | Coefficient of heat transfer | |
| SI.NusseltNumber[nHT] | Nus (from PartialHeatTransfer_setT) | Nusselt number | |
| SI.HeatFlowRate[nHT] | Q_flows (from PartialHeatTransfer_setT) | heatPorts.Q_flow/nParallel | Heat flow rate |
| Real | a | s1/d_o | |
| Real | b | s2/d_o | |
| Real | c | ((a/2)^2 + b^2)^(0.5) | |
| SI.Length | e | (if toggleStaggered then (if b >= 0.5*(2*a + 1)^(0.5) then (a - 1)*d_o else (c - 1)*d_o) else (a - 1)*d_o) | |
| SI.Length | L_E | 2*e1 + e*nes | |
| SI.Area | A_E | if toggleEndChannel then S*L_E else S_E*L_E | |
| SI.Area | A_f | if toggleEndChannel then D_i*S_E else D_i*S | |
| SI.Area | A_B | if e < (D_i - DB) then S*(D_i - DB - e) else 0 | |
| Real | R_B | A_B/A_E | |
| Real | R_S | n_s/n_MR | |
| SI.ReynoldsNumber | Res_psil | ||
| Real | beta | ||
| Real | f_B | ||
| Real | f_w | ||
| Real | f_P | ||
| Real | Prs_w | ||
| SI.NusseltNumber | Nus_llam | ||
| SI.NusseltNumber | Nus_lturb | ||
| SI.NusseltNumber | Nus_l0 | ||
| SI.NusseltNumber | Nus_bundle0 | ||
| SI.NusseltNumber | Nus_bundle | ||
| Real | gamma | 2*Modelica.Math.acos(1 - 2*H/D_l)*180/pi | |
| SI.Area | A_GTB | (n_T - n_W/2)*pi*(d_B^2 - d_o^2)/4 | |
| SI.Area | A_GSB | pi/4*(D_i^2 - D_l^2)*(360 - gamma)/360 | |
| SI.Area | A_SG | A_GTB + A_GSB | |
| Real | R_L | A_SG/A_E | |
| Real | R_G | n_W/n_T | |
| Real | f_L | if A_SG < 1e-6 then 1 else 0.4*A_GTB/A_SG + (1 - 0.4*A_GTB/A_SG)*exp(-1.5*R_L) | |
| Real | f_G | 1 - R_G + 0.524*R_G^(0.32) | |
| Real | psi | if b >= 1 then 1 - pi/(4*a) else 1 - pi/(4*a*b) | |
| Real | f_A | if toggleStaggered then 1 + 2/(3*b) else 1 + 0.7*(b/a - 0.3)/(psi^(1.5)*(b/a + 0.7)^2) | |
| Real | f_N | 1 | |
| SI.Length | ll | pi/2*d_o | |
| SI.Velocity | w | ||
| Medium.ThermodynamicState | states_w | ||
| SI.Pressure | Ps | Medium.pressure(states) |