SimulationCore2/TorqueDrag/TD_Modules/TD_DrillStem.f90

MODULE TD_DrillStemComponents
    
    Use CDownHoleVariables
    
    IMPLICIT NONE
    PUBLIC
    
    
!************************************************************************************************************************************
    TYPE, PUBLIC :: TD_StringInfo
        INTEGER    :: StringConfigurationCount , DrillStemComponentsNumbs , DrillStemForceType
        INTEGER    :: NoHorizontalMudElements , NoStringMudElements , NoCasingMudElements
        REAL(8)    :: DrillStemTotalLength , DrillStemTotalLengthIni , OutOfWellLength , DrillStemTotalWeight , DrillStemBottom
        REAL(8)    :: DrillStemAxialVelocity , DrillStemRotVelocity , TopJointHeight
        REAL(8)    :: WeightOnBit , BitTorque , TotalTorque , StaticHookLoad , DlMax , DlTotal , DlTouch
        REAL(8)    :: HookLoad , StringTorque
        REAL(8)    :: ToolJointRange
        real(8) , allocatable :: FluidMudDensity(:) , FluidMudEndX(:) , FluidMudStartX(:)
        !====================================================
        !          Separated Parts of the Drill Stem
        INTEGER    :: NearFloorConnectionNo
        REAL(8)    :: NearFloorConnectionHeight
        !====================================================
    END TYPE TD_StringInfo
    TYPE(TD_StringInfo) :: TD_String
!************************************************************************************************************************************

    
    
!************************************************************************************************************************************
!====================================================
!             Drill Stem Components Info
!====================================================
    TYPE, PUBLIC :: TD_DrillStemInfo
        INTEGER  :: Numbs , ComponentType
        REAL(8)     :: Length , TopDepth , DownDepth , Od , Id , WeightperLength , TotalLength , TotalWeight
    END TYPE TD_DrillStemInfo
    TYPE(TD_DrillStemInfo), ALLOCATABLE, DIMENSION(:) :: TD_DrillStem
!************************************************************************************************************************************

    
    
!************************************************************************************************************************************
!====================================================
!          Separated Parts of the Drill Stem
!====================================================
    TYPE , PUBLIC :: TD_SeparatedDrillStemInfo
        !=========> Elements Geometry
        INTEGER :: HoleType , ComponentType
        REAL(8)    :: Length , TopDepth , DownDepth , Od , Id , Area , Weight , WeightperLength , StartAngle , EndAngle
        REAL(8)    :: RCurvature , RtoolJoint , HoleDiameter , ToolJointRange
        !=========> Elements initial Geometry
        REAL(8)    :: LengthIni , TopDepthIni , DownDepthIni , StartAngleIni , EndAngleIni
        !=========> Elements initial Geometry (graphic)
        REAL(8)    :: TopDepthIniG , DownDepthIniG
        !=========> Pipes Properties
        REAL(8)    :: Density , ElasticModule
        !=========> Forces Info
        REAL(8)    :: Force1 , Force2 , Torque , Drag , CombVelRatio
        !=========> Mud Properties
        REAL(8)    :: MudDensityIn , MudDensityOut , MudViscosity , MudVisCorrectCoef , BouyancyFactor , MudWeight , MudPlasticVis , MudYieldPoint
        !=========> Viscous Drag Force
        REAL(8)    :: FricFactor , DiamRatio , MudClingingConst , PipeVelocity , AveEffVelocity , ReNumber , Dp_Dl
        !=========> Hook Load
        REAL(8)    :: StaticHookLoad , TotalSHookLoad , Dl , DlTotal
    END TYPE TD_SeparatedDrillStemInfo
    TYPE(TD_SeparatedDrillStemInfo), ALLOCATABLE, DIMENSION(:) :: TD_DrillStems
!************************************************************************************************************************************

    
    
!************************************************************************************************************************************
!====================================================
!          Add&Remove DrillStem Components
!====================================================
    TYPE , PUBLIC :: TD_AddRemoveInfo
        INTEGER :: IBOPNewAdd , IBOPOldAdd , SafetyValveNewAdd , SafetyValveOldAdd , KellyNewAdd , KellyOldAdd
        INTEGER :: IBOPNewRemove , IBOPOldRemove , SafetyValveNewRemove , SafetyValveOldRemove , KellyNewRemove , KellyOldRemove
        INTEGER , Dimension(19) :: KellyOldStatus , KellyNewStatus
        !integer :: TD_KellyOldStatus1 , TD_KellyNewStatus1 , TD_KellyOldStatus2 , TD_KellyNewStatus2 , TD_KellyOldStatus3 , TD_KellyNewStatus3
        !integer :: TD_KellyOldStatus4 , TD_KellyNewStatus4 , TD_KellyOldStatus5 , TD_KellyNewStatus5 , TD_KellyOldStatus6 , TD_KellyNewStatus6
        !integer :: TD_KellyOldStatus7 , TD_KellyNewStatus7 , TD_KellyOldStatus8 , TD_KellyNewStatus8
        !integer :: TD_KellyOldStatus9 , TD_KellyNewStatus9 , TD_KellyOldStatus10 , TD_KellyNewStatus10
        !integer :: TD_KellyOldStatus11 , TD_KellyNewStatus11 , TD_KellyOldStatus12 , TD_KellyNewStatus12
        !integer :: TD_KellyOldStatus13 , TD_KellyNewStatus13 , TD_KellyOldStatus14 , TD_KellyNewStatus14
        !integer :: TD_KellyOldStatus15 , TD_KellyNewStatus15 , TD_KellyOldStatus16 , TD_KellyNewStatus16 , TD_KellyOldStatus17 , TD_KellyNewStatus17
        !integer :: TD_KellyOldStatus18 , TD_KellyNewStatus18 , TD_KellyOldStatus19 , TD_KellyNewStatus19
    END TYPE TD_AddRemoveInfo
    TYPE(TD_AddRemoveInfo) :: TD_Count
!************************************************************************************************************************************

    
    
!************************************************************************************************************************************
!====================================================
!             Graphic Output Info
!====================================================
    !TYPE, PUBLIC :: CStringComponent
    !    Integer :: ComponentType
    !    REAL(8) :: Length , TopDepth , DownDepth , Od , Id
    !END TYPE CStringComponent
    TYPE(CStringComponents), ALLOCATABLE, DIMENSION(:) :: G_StringElement
!************************************************************************************************************************************

    
    
!************************************************************************************************************************************
!====================================================
!             Removed-Volume Variables
!====================================================
    TYPE , PUBLIC :: TD_RemovedVolumeInfo
        Integer :: PreCount
        REAL(8) :: RemoveVolume , PreElementVolume , PreElementLength
    END TYPE TD_RemovedVolumeInfo
    TYPE(TD_RemovedVolumeInfo) :: TD_Vol
!************************************************************************************************************************************
END MODULE TD_DrillStemComponents