SimulationCore2/FluidFlow/Pressure_Display_VARIABLES.f90

MODULE PressureDisplayVARIABLES
    
    USE DynamicRealArray
    
    IMPLICIT NONE


    INTEGER :: NoGauges
    REAL , DIMENSION(6) :: PressureGauges
    INTEGER :: SoundSpeed       ! speed of sound [ft/s]
    INTEGER , DIMENSION(3) :: PressureTimeStepDelay
    TYPE(DynamicRealArrayType) :: PumpPressureDelay
    TYPE(DynamicRealArrayType) :: CasingPressureDelay
    TYPE(DynamicRealArrayType) :: BottomHolePressureDelay
    TYPE(DynamicRealArrayType) :: ShoePressureDelay
    
    

    TYPE :: ObservationAndGaugePointsInformations       ! We have some gauges and may be have many observation points like casing shoe, bottomhole , etc.
                                                        ! This module stores information of these points to calculate pressure, density and other desired properties
                                                        ! at these points
        ! Locations: 1: Stand Pipe , 2: Choke Manifold, 3: Botton Hole, 4: Under Bit, 5: Shoe, 6: Before BOP
        INTEGER :: ElementNo        ! Element Nubmer based on mud elements
        REAL :: DistancetoRefrence  ! Distance from pump or the end of fluid path [ft]
        REAL :: ElementTrueDepth    ! True depth of point or gauge [ft]
        REAL :: Pressure            ! Pressure [psi]
    END TYPE
    
    !TYPE(ObservationAndGaugePointsInformations) , ALLOCATABLE :: GaugePoint(:)
    TYPE(ObservationAndGaugePointsInformations) , ALLOCATABLE :: ObservationPoint(:)
   
    END MODULE