SimulationCore2/CSharp/DownHole/CDownHoleVariables.f90

module CDownHoleVariables
    use CDownHoleTypes
    ! use CStringConfigurationVariables
    ! use CDownHoleActions
    use CLog4
    implicit none    
    public
    !!!!!!!!!!!!!!!!!!!!!
    ! Outputs to user interface
    !!!!!!!!!!!!!!!!!!!!!
    type :: DownHoleType
        logical :: AnnDrillMud
        logical :: AnnCirculateMud
        
        integer :: AnnalusFluidsCount = 0
        integer :: StringFluidsCount = 0
        type(CFluid), allocatable :: AnnalusFluids(:) !, target
        type(CFluid), allocatable :: StringFluids(:)
        
        integer :: StringCount = 0
        type(CStringComponent), allocatable :: String(:)
        
        type(CBopElement), allocatable :: BopElements(:)
        
        real(8) :: DrillPipePressure
        real(8) :: CasingPressure
        real(8) :: ShoePressure
        real(8) :: BottomHolePressure
        real(8) :: FormationPressure
        real :: InfluxRate
        real :: KickVolume
        real :: SecondKickVolume
        real :: PermeabilityExposedHeight
        
        real(8) :: Density
        real(8) :: Pressure
        real(8) :: Temperature
        real(8) :: Height
        real(8) :: Volume
    end type DownHoleType
    type(DownHoleType):: DownHole
    contains         
end module CDownHoleVariables