MODULE TD_WellElements IMPLICIT NONE PUBLIC !************************************************************************************************************************************ TYPE , PUBLIC :: TD_WellElementsInfo INTEGER :: CasingNumbs INTEGER :: LinerNumbs INTEGER :: OpenHoleNumbs INTEGER :: ROPHoleNumbs REAL(8) :: ROP END TYPE TD_WellElementsInfo !************************************************************************************************************************************ !************************************************************************************************************************************ !==================================================== ! Casing Info !==================================================== TYPE, PUBLIC :: TD_CasingInfo INTEGER :: HoleType REAL(8) :: Length , TopDepth , DownDepth , Od , Id , Weight , CollapsePressure , TensileStrength , Roughness END TYPE TD_CasingInfo !************************************************************************************************************************************ !************************************************************************************************************************************ !==================================================== ! Liner Info !==================================================== TYPE, PUBLIC :: TD_LinerInfo REAL(8) :: Length , TopDepth , DownDepth , Od , Id , Weight , CollapsePressure , TensileStrength , Roughness , HoleType END TYPE TD_LinerInfo !************************************************************************************************************************************ !************************************************************************************************************************************ !==================================================== ! Open_Hole Info !==================================================== TYPE, PUBLIC :: TD_OpenHoleInfo REAL(8) :: Length , TopDepth , DownDepth , Id , HoleType END TYPE TD_OpenHoleInfo !************************************************************************************************************************************ !************************************************************************************************************************************ !==================================================== ! ROP_Hole Info !==================================================== TYPE, PUBLIC :: TD_ROPHoleInfo REAL(8) :: Length , TopDepth , DownDepth , Id , HoleType END TYPE TD_ROPHoleInfo !************************************************************************************************************************************ END MODULE TD_WellElements