SimulationCore2/TorqueDrag/TD_Modules/TD_WellElements.f90

MODULE TD_WellElements
    
    
    IMPLICIT NONE
    PUBLIC

    
    
    
!====================================================
!                Casing Info
!====================================================

    INTEGER :: TD_CasingNumbs
    
    TYPE, PUBLIC :: TD_CasingInfo
        INTEGER  :: HoleType
        REAL(8)  :: Length , TopDepth , DownDepth , Od , Id , Weight , CollapsePressure , TensileStrength , Roughness
    END TYPE TD_CasingInfo
!	 
    TYPE(TD_CasingInfo), ALLOCATABLE, DIMENSION(:) :: TD_Casing

    
    
    
    
    
!====================================================
!                Liner Info
!====================================================

    INTEGER :: TD_LinerNumbs
    
    TYPE, PUBLIC :: TD_LinerInfo
        REAL(8)  :: Length , TopDepth , DownDepth , Od , Id , Weight , CollapsePressure , TensileStrength , Roughness , HoleType
    END TYPE TD_LinerInfo
!	 
    TYPE(TD_LinerInfo), ALLOCATABLE, DIMENSION(:)  :: TD_Liner
    
    
    
    
    
    
!====================================================
!                Open_Hole Info
!====================================================

    INTEGER :: TD_OpenHoleNumbs
    
    TYPE, PUBLIC :: TD_OpenHoleInfo
        REAL(8)  :: Length , TopDepth , DownDepth , Id , HoleType
    END TYPE TD_OpenHoleInfo
!	 
    TYPE(TD_OpenHoleInfo), ALLOCATABLE, DIMENSION(:) :: TD_OpenHole
    
    
    
    
    
    
!====================================================
!                ROP_Hole Info
!====================================================

    INTEGER :: TD_ROPHoleNumbs
    REAL(8) :: TD_ROP
    
    TYPE, PUBLIC :: TD_ROPHoleInfo
        REAL(8)  :: Length , TopDepth , DownDepth , Id , HoleType
    END TYPE TD_ROPHoleInfo
!	 
    TYPE(TD_ROPHoleInfo), ALLOCATABLE, DIMENSION(:) :: TD_ROPHole
    
    
    
    
    
    
END MODULE TD_WellElements