SimulationCore2/TorqueDrag/TD_Modules/TD_WellGeometry.f90

MODULE TD_WellGeometry
    
    IMPLICIT NONE
    PUBLIC
    
    REAL(8) , PARAMETER :: pi=3.14159265d0
    
    
    
!************************************************************************************************************************************
!====================================================
!                Well Geometry Info
!====================================================
    TYPE, PUBLIC :: TD_WellGeneralInfo
        INTEGER :: WellIntervalsCount
        REAL(8) :: WellTotalLength , WellTotalVerticalLength
    END TYPE TD_WellGeneralInfo
    TYPE(TD_WellGeneralInfo) :: TD_WellGeneral
!************************************************************************************************************************************

        
        
!************************************************************************************************************************************        
    TYPE, PUBLIC :: TD_WellGeometryData
        INTEGER  :: HoleType
        REAL(8)  :: StartAngle , EndAngle , IntervalLength , VerticalDepth , TopDepth , DownDepth , RCurvature
    END TYPE TD_WellGeometryData
    TYPE(TD_WellGeometryData), Allocatable :: TD_WellGeo(:)
!************************************************************************************************************************************

    
    
    
    
END MODULE TD_WellGeometry