MODULE CHOKEVARIABLES
!IMPLICIT DOUBLEPRECISION(A-H,O-Z)
use CBopControlPanelVariables
use CEquipmentsConstants
! use CSimulationVariables
use CAccumulatorVariables
use CBopStackVariables
use CChokeControlPanelVariables

IMPLICIT NONE

!===========================================================================
!                               CHOKE VARIABLES
!===========================================================================
type::ChokeType
    REAL Ycritical,Cp,Cv,CL,kRatio,nPolytripic,x1,SGliquid,WaterDensity,LiquidDensity,VL,VG1
    REAL epsilon_step,epsilon_abs,step_size,Ycritical_a,Ycritical_b,Ycritical_c
    REAL G2,Cdrag,Pwh,MixDens2,Yratio_a,Yratio_b,Yratio_c,Yratio,Yratio_low,Yratio_high
    REAL FlowRate,Patm,MassFlux,LiquidPPG,time2,AreaChoke
    REAL eps_step,eps_abs,Yratiomat(100),Yrario_actual,Yrario
    REAL :: DegreeOpen,GRAVITY1=9.81!,PercentClose
    REAL ChokedMassFlux,ChokedFlowRate,PwhChoked
    REAL TotalStrokes1,TotalStrokes2
    !INTEGER WashoutMalf,PlugMalf,failMalf
    INTEGER GaugeChokePositionMailf,SoundChokePump
    Real Cumulative_AirVolume_Choke
    Real HydraulicChoke1WashoutCoef,HydraulicChoke2WashoutCoef

    Real Present_HydraulicChoke1Plug, Present_HydraulicChoke2Plug,DeltaPlug1Percent,DeltaPlug2Percent
    Integer HydraulicChoke1PluggedPercent_Old,HydraulicChoke2PluggedPercent_Old,Plug1TimeCounter,Plug2TimeCounter,ChokePlugTimeDelay
    Real ChokeAreaFullyOpen
end type ChokeType
type(ChokeType)::Choke
!===========================================================================
!                               AIR DRIVEN PUMP VARIABLES
!===========================================================================
type::AirDrivenPumpType
    REAL QAIR_PUMP,cc1,cc2,cc3,cc4,cc5
    INTEGER ChokeAirFail
end type AirDrivenPumpType
type(AirDrivenPumpType)::AirDrivenPump

PARAMETER PI=3.141593
!============================================================================
!                       	OIL & ENVIRONMENT VARIABLES
!============================================================================
REAL:: SG=1.12,WDENS=1000,GRAVITY=9.81,RE_CR=2000,NU=9e-6
!specific gravity of liquid
!water density(kg/m^3)


!===========================================================================
!                       AIR PUMP LINE COMPUTATIONAL VARIABLES
!===========================================================================
!logical ChokeIsClosing,ChokeIsOpening
type::AirPumpLineType
    REAL ChokeControlLeverOld
    REAL P_AIRP,QITER,DELTAV_AIR,TIME,DeltaT_Choke,TOL_AIR
    REAL diffp_air,losses_air,pipe_loss1air,minor_loss1air,static_loss1air
    integer NO_PIPINGS_AIRPLINE,NO_MINORS_AIRPLINE
    REAL,ALLOCATABLE:: Re_air(:),DIAM_AIR_MM(:),DIAM_AIR_INCH(:),AREA_AIR(:),REL_ROUGHAIR(:),LENGT_AIR(:),LF_AIR(:),CV_AIR(:),NOTE_AIR(:)
    REAL,ALLOCATABLE:: fric_air(:),fricloss_air(:),minlosspa_air(:),minloss_air(:),MINORS_AIRPUMP(:,:)
    REAL,ALLOCATABLE:: MINORDIAM_AIR_INCH(:),MINORAREA_AIR(:)
    REAL,ALLOCATABLE:: ROUGHNESS_AIRPLINE(:),PIPINGS_AIRPUMP(:,:)
    REAL Acylinder,CourseBase!,PassedCourse 
    REAL alpha_Qair,alpha_timeair,alpha_pairp,alpha_diffpair,alpha_lossesair,alpha_Pdownstrem,Pdownstrem
end type AirPumpLineType
type(AirPumpLineType)::AirPumpLine

!=================================================================================   

    TYPE, PUBLIC :: CHOKE_TypeVars
        INTEGER WashoutMalf,PlugMalf,failMalf
        REAL PercentClose,PassedCourse,AreaChoke,AreaChokeFinal
        logical ChokeIsClosing,ChokeIsOpening
    END TYPE CHOKE_TypeVars

    TYPE(CHOKE_TypeVars), DIMENSION(1:2) :: CHOOKE

END MODULE