PO.GL.Valve.ThornhillCraver
Description
Calculates gas throughput using Thornhill-Craver equation, [Mscf/d].
Syntax
=PO.GL.Valve.ThornhillCraver(Cd, Ap, P1, P2, SG, T)Parameters
| Parameter | Description |
|---|---|
| Cd | Discharge coefficient (0.6-0.9), [dimensionless]. |
| Ap | Port area, [in²]. |
| P1 | Upstream (casing) pressure, [psia]. |
| P2 | Downstream (tubing) pressure, [psia]. |
| SG | Gas specific gravity (air = 1.0), [dimensionless]. |
| T | Gas temperature, [°R]. |
SI Unit Version
Lambda Name
PO.GL.Valve.ThornhillCraver.SIFormula
=LAMBDA(Cd, Ap, P1, P2, SG, T, LET(
Ap_in2, PO.UnitConverter(Ap, "cm2", "in2"),
P1_psi, PO.UnitConverter(P1, "kPa", "psi"),
P2_psi, PO.UnitConverter(P2, "kPa", "psi"),
T_degR, PO.UnitConverter(T, "degK", "degR"),
result_Mscfd, PO.GL.Valve.ThornhillCraver(Cd, Ap_in2, P1_psi, P2_psi, SG, T_degR),
PO.UnitConverter(result_Mscfd, "Mscf/d", "sm3/d")))SI Parameters
| Parameter | Unit | Description |
|---|---|---|
Cd |
- | Discharge coefficient (0.6-0.9), [dimensionless] |
Ap |
cm2 | Port area, [cm2] |
P1 |
kPa | Upstream (casing) pressure, [kPa] |
P2 |
kPa | Downstream (tubing) pressure, [kPa] |
SG |
- | Gas specific gravity (air = 1.0), [dimensionless] |
T |
degK | Gas temperature, [degK] |
How to save as a reusable Excel function
LAMBDA is a built-in Excel feature (Microsoft 365) that lets you create custom functions without VBA. The formula above works as-is when pasted into a cell.
To save a LAMBDA as a reusable named function:
- Go to Formulas → Name Manager → New
- Enter a name, e.g.
PO.GL.Valve.ThornhillCraver.SI - In Refers to, paste the LAMBDA formula without the trailing invocation
(...) - Click OK
Now use =PO.GL.Valve.ThornhillCraver.SI(...) anywhere in your workbook.