|
- MODULE FricPressDropVarsModule
- !! Record of revisions
- !! Date Programmer Discription of change
- !! ------ ------------ -----------------------
- !! 1396/07/26 Sheikh Original code
- !!
-
- IMPLICIT NONE
-
- TYPE :: FricPressDropVarsTYPE
-
- REAL :: TotFricPressLoss ! Total Frictional Pressure Loss [psi]
- REAL :: FlowrateNearShoe
- INTEGER :: NoHorizontalEl ! number of elements in horizontal pump to string line
- INTEGER :: NoStringEl ! number of elements in string
- INTEGER :: NoAnnulusEl ! number of elements in annulus space
- INTEGER :: NoWellToChokeEl ! number of elements in well head to choke manifold
- INTEGER :: NoOpenHoleEl ! number of elements in openhole
- INTEGER :: NumbEl ! number of flow elements in horizontal line, string, annulus and openhole
- INTEGER :: StringFirstEl ! number of first string element
- INTEGER :: StringLastEl ! number of last string element
- INTEGER :: AnnulusFirstEl ! number of first annulus element
- INTEGER :: AnnulusLastEl ! number of last annulus element
- INTEGER :: ChokeFirstEl ! number of first choke element
- INTEGER :: ChokeLastEl ! number of last choke element
- INTEGER :: OpenholeFirstEl ! number of first openhole element
- REAL :: KBOP ! DeltaPBOP = KBOP * Q**2 [psi * min^2 / gal^2]
- REAL :: KBit ! DeltaPBit = KBit * Q**2 [psi * min^2 / gal^2]
-
- !!!! Choke Variables
- REAL :: BackPressure , NewBackPressure ! back pressure at riser or choke line [psi]
- REAL :: Kchoke ! DeltaPchoke = Kchoke * Q**2 [psi * min^2 / gal^2]
- REAL :: TotalOpenChokeArea , OldTotalOpenChokeArea , ChokeBypassArea , NewTotalOpenChokeArea , AreaChange
- REAL :: BHPSafetyMargin , AChBHPTol ! BHP safety margin and BHP Tolerance in Auto Choke mode [psi]
- REAL(8) :: OnShakerDensity ! Outlet Density of well for displaying in drillwatch and data [ppg]
-
- LOGICAL :: FloatValveIn
- LOGICAL :: FloatValveOpen , FloatValveWasOpen
- LOGICAL :: BitTotallyPluged
-
- REAL :: StMudVol ! Total mud volume of Horizontal and String that may be compressed [gal]
- REAL :: AnnMudVol ! Total mud volume of Bottom hole, Annulus and Choke line that may be compressed [gal]
- REAL :: PumpToManifoldMudVol
- REAL :: StCompressedMudVol ! Compressed mud volume in Horizontal and String [gal]
- REAL :: AnnCompressedMudVol ! Compressed mud volume in Bottom hole, Annulus and Choke line [gal]
- REAL :: PumpToManifoldCompressedMudVol
- REAL :: StDeltaPDueToCompressibility ! Pressure increase due to mud compressibility in Horizontal and String [psi]
- REAL :: AnnDeltaPDueToCompressibility ! Pressure increase due to mud compressibility in Bottom hole, Annulus and Choke line [psi] (usually when wellhead is closed)
- REAL :: PumpToManifoldDeltaPDueToCompressibility
- REAL :: StDeltaPtoDeltaVCompressibility ! string pressure change due to compressibility [psi/gal]
- REAL :: AnnDeltaPtoDeltaVCompressibility ! annulus and openhole pressure change due to compressibility [psi/gal]
-
-
- !!!! Problem Variables (Choke and Bit)
-
- INTEGER :: ManChoke1Plug , ManChoke2Plug ! = 1 if choke is plugged , = 0 else
- INTEGER :: ManChoke1Washout , ManChoke2Washout ! = 1 if choke is washed out , = 0 else
- INTEGER :: BitJetsPlugged , BitJetsWashedOut
- INTEGER :: CasingPressure_DataDisplayMalF, CasingPressure_ChokeMalF
-
- !!!!!! Note that bit is not an element in these calculations
- END TYPE FricPressDropVarsTYPE
-
-
- INTEGER :: ShoeFlowElNo ! the flow element that starts from shoe, in other word the number of upper element adjacent to shoe
-
- REAL :: ClingingFactor = 0.45 ! in calculating surge and swab pressure changes
- REAL :: MudCompressibility = 2.7E-6 ! Volumne change relative to Volume/1psi, for example for change of 1000 psi in pressure, volume changes 0.27% [1/psi]
- REAL :: FloatValveMinOpenPressure = 1.0 ! minimum pressure that opens the float valve [psi]
-
-
- TYPE, PUBLIC :: PressDropCalcElemInfo
-
- !! Geometrical variables
- REAL(8) :: Length ! Length of a Flow element [ft]
- REAL(8) :: DepthDiff ! Difference between depth of start and end of element [ft]
- REAL(8) :: StartX , EndX ! start and end point (measured depth) of flow element [ft]
- REAL(8) :: StartTVD , EndTVD ! Start and End point True Vertical Depth of flow element [ft]
- REAL :: Od , Id , Dhyd ! Outer, Inner and hydraulic diameter of flow element [in]
- REAL :: Area ! area of element [ft^2]
- INTEGER :: alpha ! geometry factor: 0 = pipe (ID=0) , 1 = annulus
- INTEGER :: FrictionDirection ! = 1 if flowrate is positive, so frictional pressure gradient is in direction of preassumed
- ! flowrate, = -1 if not above condition usually in Swab conditions
- !! Flow variables
- INTEGER :: MaterialType ! = 0 for mud , = 2 for gas
- REAL :: volume , vel , density , FlowRate ! volume [ft^3], velocity [ft/s], density of fluid flow [ppg], flow rate [gpm]
- REAL :: Gf ! geometry shear rate correction [-]
- !! Rheological and frictional variables
- REAL :: Theta600 , Theta300 ! Fann data at 600 and 300 rpm as rheological data
- ! REAL(8) :: VelCritBing , VelCritPow ! critical velocity in Bingham Plastic and Power law model [ft/min]
- REAL :: muPlastic , YieldP ! plastic viscosity [cp] and yield point [lbf/(100*ft^2)]
- REAL :: mueff ! Effective or apparent viscosity which is used in calculation of generalized Reynolds number
- REAL :: nIndex , kIndex ! n: flow behaivior index [-] and k: consistency factor [lbf*s^n/(100*ft^2)]
- REAL :: gammaW , tauW ! shear rate at the wall [1/s] and wall shear stress [lbf/(100*ft^2)]
- REAL :: GenRe ! generalized Reynolds number in power law model [-]
- REAL :: ReCrit = 2100.0 ! Critical Reynolds number for Newtonian model and Bingham plastic model
- REAL :: ReCritLam , ReCritTurb ! laminar and turbulent critical Reynolds
- REAL :: f ! Fanning friction factor [-]
- REAL :: a , b ! parameters for calculationg friction factor in turbulent regime for power law model [-]
- LOGICAL :: LaminarRegime ! = .TRUE. if flow regime is laminar and = .FALSE. if flowregime is not
- LOGICAL :: TurbulentRegime ! = .TRUE. if flow regime is turbulent and = .FALSE. if flowregime is not
- !! Pressure change variables
- REAL :: StartPress , EndPress ! Pressure at start and end of an element [psi]
- REAL :: dPdLFric ! frictional pressure drop gradient in each element [psi/ft]
- REAL :: dPdLGrav ! gravitional pressure gradient = 0.052 * Density [psi/ft]
- REAL :: FricPressLoss ! frictional pressure loss in each element [psi]
- REAL :: StaticPressDiff ! static pressure difference between top and bottom of a pocket [psi] always positive
- REAL :: FricToQPartialDiff ! partial differentiation of friction relative to volume flow rate
-
-
-
- END TYPE PressDropCalcElemInfo
-
- TYPE (PressDropCalcElemInfo) , ALLOCATABLE :: FlowEl(:) ! FlowEl: Pressure Drop Calculation Elements The dimension is equal to the number of flow elements
-
-
- TYPE, PUBLIC :: FinalPressDropCalcElemInfo
-
- !!! for use in calculationg properties of a point in 'downhole view' page
-
- REAL(8) :: StartX , EndX , StartTVD , EndTVD , Length , DepthDiff ! start and end point of flow element [ft]
- REAL :: density ! density of fluid flow [ppg], flow rate [gpm]
- REAL :: StartPress ! Pressure at start of an element [psi]
- REAL :: EndPress ! Pressure at end of an element [psi]
- REAL :: dPdLFric ! frictional pressure drop gradient in each element [psi/ft]
- REAL :: dPdLGrav ! gravitional pressure gradient = 0.052 * Density [psi/ft]
-
- END TYPE FinalPressDropCalcElemInfo
-
- TYPE (FinalPressDropCalcElemInfo) , ALLOCATABLE :: FinalFlowEl(:) ! FlowEl: Pressure Drop Calculation Elements The dimension is equal to the number of flow elements
-
-
-
-
- END MODULE FricPressDropVarsModule
-
- MODULE UTUBEVARSModule
-
- TYPE :: UTUBEVARSTYPE
-
- REAL :: QUTubeInput ! flow rate from string to annulus which caused by head difference at two sides of U-tube [gpm]
- REAL :: QUtubeOutput ! flow rate from annulus to string which caused by head difference at two sides of U-tube [gpm]
- REAL :: PressureDp ! pressure at bit or end of drill string from drill string path [psi]
- REAL :: PressureAnn ! pressure at bit or end of drill string from annular path [psi]
-
- END TYPE UTUBEVARSTYPE
- TYPE(UTUBEVARSTYPE) :: UTUBEVARS
-
- END MODULE UTUBEVARSModule
-
- SUBROUTINE DeallocateFlowTypes
-
- USE FricPressDropVarsModule
- use PressureDisplayVARIABLESModule
- use KickVARIABLESModule
-
- IMPLICIT NONE
-
-
- IF (ALLOCATED(FlowEl)) DEALLOCATE(FlowEl)
- IF (ALLOCATED(FinalFlowEl)) DEALLOCATE(FinalFlowEl)
- IF (ALLOCATED(GasPocketWeight%Array)) CALL GasPocketWeight%Empty()
- IF (ALLOCATED(GasPocketNewPress%Array)) CALL GasPocketNewPress%Empty()
- IF (ALLOCATED(GasPocketOldPress%Array)) CALL GasPocketOldPress%Empty()
- IF (ALLOCATED(GasPocketNewTemp%Array)) CALL GasPocketNewTemp%Empty()
- IF (ALLOCATED(GasPocketOldTemp%Array)) CALL GasPocketOldTemp%Empty()
- IF (ALLOCATED(GasPocketNewVol%Array)) CALL GasPocketNewVol%Empty()
- IF (ALLOCATED(GasPocketOldVol%Array)) CALL GasPocketOldVol%Empty()
- IF (ALLOCATED(GasPocketdeltaVol%Array)) CALL GasPocketdeltaVol%Empty()
- IF (ALLOCATED(GasPocketModifiedVol%Array)) CALL GasPocketModifiedVol%Empty()
- IF (ALLOCATED(GasPocketFlowInduced%Array)) CALL GasPocketFlowInduced%Empty()
- IF (ALLOCATED(GasPocketDensity%Array)) CALL GasPocketDensity%Empty()
- IF (ALLOCATED(GasPocketCompressibility%Array)) CALL GasPocketCompressibility%Empty()
- IF (ALLOCATED(KickVARIABLES%GasPocketFlowEl)) DEALLOCATE(KickVARIABLES%GasPocketFlowEl)
- IF (ALLOCATED(KickVARIABLES%KickJacobian)) DEALLOCATE(KickVARIABLES%KickJacobian)
- IF (ALLOCATED(KickVARIABLES%OldKickJacobian)) DEALLOCATE(KickVARIABLES%OldKickJacobian)
- IF (ALLOCATED(KickVARIABLES%KickVandPFunction)) DEALLOCATE(KickVARIABLES%KickVandPFunction)
- IF (ALLOCATED(KickVARIABLES%KickUnknownVector)) DEALLOCATE(KickVARIABLES%KickUnknownVector)
- IF (ALLOCATED(KickVARIABLES%KickCorrectionVector)) DEALLOCATE(KickVARIABLES%KickCorrectionVector)
-
-
- END SUBROUTINE DeallocateFlowTypes
-
|
