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

IMPLICIT NONE

!===========================================================================
!                               CHOKE VARIABLES
!===========================================================================
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
!===========================================================================
!                               AIR DRIVEN PUMP VARIABLES
!===========================================================================
REAL QAIR_PUMP,cc1,cc2,cc3,cc4,cc5
PARAMETER PI=3.141593
INTEGER ChokeAirFail
!============================================================================
!                       	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
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



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

    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
    
    
    
    
    
    
    !TYPE, PUBLIC :: BOP_TypeVars2D
    !REAL, ALLOCATABLE:: minlosspa(:,:),minloss(:,:)
    !REAL,ALLOCATABLE:: Re_ramline(:,:),fric(:,:),fricloss(:,:)
    !
    !
    !END TYPE BOP_TypeVars2D
    !
    !TYPE(BOP_TypeVars2D) :: RAMS    
    

    
    !   1 : CHOKE1
    !   2 : CHOKE2




END MODULE