SimulationCore2/Equipments/BopStack/ANNULAR.f90

SUBROUTINE ANNULAR_SUB1
    USE VARIABLES
    USE CBopControlPanelVariables
    USE PressureDisplayVARIABLES
    USE CEquipmentsConstants
    USE CBopStackVariables
    
    implicit none
    
  !write(*,*) 'checkpoint 1'
!=====================================================================
!                 ANNULAR PREVENTER- BOP CAMERON Type U 5000
!                   START CONDITIONS FOR ANNULAR PREVENTER
!=====================================================================   
    
      RAM(1)%SuccessionCounter = RAM(1)%SuccessionCounter + 1
        
       if (BopControlPanel%AnnularValve == 1.0 .and. Annular%AnnularFailureMalf==0 .and. BopStackAcc%RigAirMalf==0 .and. BopControlPanel%AirMasterValve==1) then
           
         if (BopStackInput%AnnularCloseLedMine == LedOn) then
             RETURN              
         end if           
           
           
            if ( RAM(1)%SuccessionCounter /= RAM(1)%SuccessionCounterOld+1 ) then
                RAM(1)%SuccessionCounter = 0   ! also in starup
                RAM(1)%SuccessionCounterOld = 0   ! also in starup
                !return   
            else
                RAM(1)%SuccessionCounterOld= RAM(1)%SuccessionCounter        
            endif
        

        
            if ( RAM(1)%SuccessionCounter >= int(2.5/RamLine%DeltaT_BOP) ) then
                !return
            
                RAM(1)%First_CloseTimecheck= 1
            
                BopControlPanel%AnnularOpenLED = LedOff
                BopStackInput%AnnularOpenLedMine = LedOff
                BopControlPanel%AnnularCloseLED = LedOn !LedBlinking
            
                RAM(1)%FourwayValve = 1
            
            endif
        
        endif
           
           
       if (RAM(1)%FourwayValve == 1 .and. RamLine%P_ACC>BopStackAcc%acc_MinPressure .and. Annular%Pannular_reg>AnnularComputational%AnnularMovingPressure) then    ! 1: Open , 0: Close
        
           
            RAM(1)%FourwayValve = 0
            
            
            
            Annular%Annular_closed=0
            !Annular_closed_withPossibility= Annular_closed * TD_BOPConnectionPossibility(1)
            RAM(1)%vdis_tot=0
            RAM(1)%vdis_bottles=0.
            RAM(1)%fvr_air=0.
            RAM(1)%vdis_elecp=0.
            Pumps%Qiter=7
            RAM(1)%Qzero=70
            RAM(1)%Q=RAM(1)%Qzero
            RAM(1)%flow=70
            Annular%tolAnnular=0.0018
            if (Annular%finished_Annular==1) then
               Annular%AnnularLeverOld=-1.0
           else
               Annular%AnnularLeverOld=BopControlPanel%AnnularValve 
           endif
           Annular%finished_Annular=0
            Annular%AnnularIsClosing = .true.
            Annular%AnnularIsOpening = .false.

            RAM(2)%bop_type = 3
            !AbopAnnular=963.1 !(in^2)
            Annular%AbopAnnular=(BopStackSpecification%AnnularPreventerClose*231.)/((Annular%IDAnnularBase-Annular%ODDrillpipe_inAnnularBase)/2.)     ! 231 in^3 = 1 gal
            Annular%NeededVolumeAnnular=Annular%AbopAnnular*(Annular%IDAnnularBase-max(Annular%ODDrillpipe_inAnnular,Annular%ODDrillpipe_inAnnularBase))/(2.*231)   !=17.98 galon for IDAnnularBase=13 5/8 , ODDrillpipe_inAnnularBase=5
            !WRITE(*,*) 'a)NeededVolumeAnnular=' , NeededVolumeAnnular
            !write(*,*) 'close 1'
       endif
       
       
        if (BopControlPanel%AnnularValve == -1.0 .and. Annular%AnnularFailureMalf==0 .and. BopStackAcc%RigAirMalf==0 .and. BopControlPanel%AirMasterValve==1 ) then
            
             if (BopStackInput%AnnularOpenLedMine == LedOn) then
                 RETURN              
             end if            
            
            !CasingPressure : PressureGauges(2) *****temp conditionssssss
            
         !note: (AnnularSealingPressure) is only for opening while well is pressurised
                       

            if ( RAM(1)%SuccessionCounter /= RAM(1)%SuccessionCounterOld+1 ) then
                RAM(1)%SuccessionCounter = 0   ! also in starup
                RAM(1)%SuccessionCounterOld = 0   ! also in starup
                !return   
            else
                RAM(1)%SuccessionCounterOld= RAM(1)%SuccessionCounter
            endif
        

        
            if ( RAM(1)%SuccessionCounter >= int(2.5/RamLine%DeltaT_BOP) ) then
                !return
                
                RAM(1)%First_OpenTimecheck= 1
                
                BopControlPanel%AnnularCloseLED = LedOff    !new
                BopStackInput%AnnularCloseLedMine = LedOff    !new
                BopControlPanel%AnnularOpenLED = LedOn  !LedBlinking
                
                RAM(1)%FourwayValve = 1
                
            endif
            
        endif
        
               
            
            

        if (RAM(1)%FourwayValve == 1 .and. Annular%Pannular_reg>AnnularComputational%AnnularMovingPressure .and. RamLine%P_ACC>BopStackAcc%acc_MinPressure &
            .and. (Annular%Annular_closed==0 .or. (Annular%Annular_closed==1 .and.PressureGauges(2) <=100.0) .or. (Annular%Annular_closed==1 .and.PressureGauges(2)>100.0 .and. Annular%Pannular_reg>=AnnularComputational%AnnularSealingPressure))) then    ! 1: Open , 0: Close
    !write(*,*) 'open 2'
            
            RAM(1)%FourwayValve = 0
            

             
            Annular%Annular_closed=0
            !Annular_closed_withPossibility= Annular_closed * TD_BOPConnectionPossibility(1)
            RAM(1)%vdis_tot=0
            RAM(1)%vdis_bottles=0.
            RAM(1)%fvr_air=0.
            RAM(1)%vdis_elecp=0.
            Pumps%Qiter=7
            RAM(1)%Qzero=70
            RAM(1)%Q=RAM(1)%Qzero
            RAM(1)%flow=70
            Annular%tolAnnular=0.0018
            
            

                if (Annular%finished_Annular==1) then
                    Annular%AnnularLeverOld=1.0
                else
                    Annular%AnnularLeverOld=BopControlPanel%AnnularValve
                endif
            Annular%finished_Annular=0
            Annular%AnnularIsOpening = .true.
            Annular%AnnularIsClosing = .false.

        
         !if (AnnularOpenLed == LedOn) then 
         !    RETURN              
         !end if
            


            RAM(1)%bop_type = 3
            !AbopAnnular=758.48 !(in^2)
            Annular%AbopAnnular=(BopStackSpecification%AnnularPreventerOpen*231)/((Annular%IDAnnularBase-max(Annular%ODDrillpipe_inAnnular,Annular%ODDrillpipe_inAnnularBase))/2.)
            Annular%NeededVolumeAnnular=Annular%AbopAnnular*(Annular%IDAnnularBase-Annular%ODDrillpipe_inAnnular)/(2.*231)   !=14.16 galon for IDAnnularBase=13 5/8 , ODDrillpipe_inAnnular=5
            !write(*,*) 'open 1'
        
        endif
       
!=====================================================================   
        
if (Annular%AnnularIsOpening .or. Annular%AnnularIsClosing .or. RAM(1)%Bottles_Charged_MalfActive) then
        CALL ANNULAR_SUB2
end if 
        
        
        
        
    END SUBROUTINE ANNULAR_SUB1
    
    
    
    
  
    
    
    
    
    
    
    
    
    
SUBROUTINE ANNULAR_SUB2
    USE VARIABLES
    USE PressureDisplayVARIABLES
    USE CBopControlPanelVariables
    USE CEquipmentsConstants
    USE CBopStackVariables
    ! use CSimulationVariables
    
    implicit none
        
    
    Annular%FirstSet= 0
    AnnularComputational%RamsFirstSet= 0
    
    
    ! loop5: do while (finished_Annular==0)
        
  !write(*,*) 'checkpoint 2'
        
        
            RAM(1)%SuccessionCounter = RAM(1)%SuccessionCounter + 1

     !   CALL CPU_TIME(Annular_StartTime)  
 
           if (BopControlPanel%AnnularValve == 1.0 .and. Annular%AnnularLeverOld == -1.0 .and. Annular%AnnularFailureMalf==0 .and. BopStackAcc%RigAirMalf==0 .and. BopControlPanel%AirMasterValve==1) then
                if ( RAM(1)%First_CloseTimecheck == 0 ) then 
                    

                    
                    if ( RAM(1)%SuccessionCounter /= RAM(1)%SuccessionCounterOld+1 ) then
                        RAM(1)%SuccessionCounter = 0   ! also in starup
                        RAM(1)%SuccessionCounterOld = 0   ! also in starup
                        !return   
                    else
                        RAM(1)%SuccessionCounterOld= RAM(1)%SuccessionCounter        
                    endif
        

        
                    if ( RAM(1)%SuccessionCounter >= int(2.5/RamLine%DeltaT_BOP) ) then
                        !return
                        
                        BopControlPanel%AnnularOpenLED = LedOff
                        BopStackInput%AnnularOpenLedMine = LedOff
                        BopControlPanel%AnnularCloseLED = LedOn !LedBlinking
                        
                        RAM(1)%FourwayValve = 1   
                        
                    endif
           
                endif
               !write(*,*) 'chekkk 1'
                
           endif
           
                
        if (RAM(1)%FourwayValve == 1 .and. Annular%Pannular_reg>AnnularComputational%AnnularMovingPressure .and. RamLine%P_ACC>BopStackAcc%acc_MinPressure) then
    !write(*,*) 'close 4'
            
            RAM(1)%FourwayValve = 0           
           
 
            Annular%Annular_closed=0
            !Annular_closed_withPossibility= Annular_closed * TD_BOPConnectionPossibility(1)
            AnnularComputational%p_annular=AnnularComputational%pa_annular
            Annular%AnnularLeverOld = BopControlPanel%AnnularValve

            CALL OpenAnnular
            Annular%Annular_Situation_forTD= 0       ! open - for TD code
            RAM(1)%bop_type = 3
            !AbopAnnular=963.1 !(in^2)
            Annular%AbopAnnular=(BopStackSpecification%AnnularPreventerClose*231)/((Annular%IDAnnularBase-Annular%ODDrillpipe_inAnnularBase)/2.)
            !write(*,*) 'NeededVolumeShearRams1=',NeededVolumeShearRams
            Annular%NeededVolumeAnnular=Annular%AbopAnnular*(Annular%IDAnnular-max(Annular%ODDrillpipe_inAnnular,Annular%ODDrillpipe_inAnnularBase))/(2*231.)
           !  write(*,*) 'NeededVolumeAnnular=',NeededVolumeAnnular

            RAM(1)%vdis_bottles=0.
            RAM(1)%fvr_air=0.
            RAM(1)%vdis_elecp=0.
            Annular%AnnularIsClosing = .true.
            Annular%AnnularIsOpening = .false.
            !write(*,*) 'close 2'
            
        endif
        
        if (BopControlPanel%AnnularValve == -1.0 .and. Annular%AnnularLeverOld == 1.0 .and. RamLine%P_ACC>BopStackAcc%acc_MinPressure .and. Annular%AnnularFailureMalf==0 .and. BopStackAcc%RigAirMalf==0 .and. BopControlPanel%AirMasterValve==1 ) then
            
            !CasingPressure : PressureGauges(2) *****temp conditionssssss
            
            !note: (AnnularSealingPressure) is only for opening while well is pressurised
            
                if ( RAM(1)%First_OpenTimecheck == 0 ) then

                    if ( RAM(1)%SuccessionCounter /= RAM(1)%SuccessionCounterOld+1 ) then
                        RAM(1)%SuccessionCounter = 0   ! also in starup
                        RAM(1)%SuccessionCounterOld = 0   ! also in starup
                        !return   
                    else
                        RAM(1)%SuccessionCounterOld= RAM(1)%SuccessionCounter        
                    endif
        
                    if ( RAM(1)%SuccessionCounter >= int(2.5/RamLine%DeltaT_BOP) ) then
                        !return
                        
                        BopControlPanel%AnnularCloseLED = LedOff
                        BopStackInput%AnnularCloseLedMine= LedOff
                        BopControlPanel%AnnularOpenLED = LedOn  !LedBlinking
                        
                        RAM(1)%FourwayValve = 1
                        
                    endif
           
                endif
               !write(*,*) 'chekkk 2'
                
            endif
            
                
                
        if (RAM(1)%FourwayValve == 1 .and. Annular%Pannular_reg>AnnularComputational%AnnularMovingPressure &
            .and. (Annular%Annular_closed==0 .or. (Annular%Annular_closed==1 .and.PressureGauges(2) <=100.0) .or. (Annular%Annular_closed==1 .and.PressureGauges(2)>100.0 .and. Annular%Pannular_reg>=AnnularComputational%AnnularSealingPressure))) then
    !write(*,*) 'open 4'
            
            RAM(1)%FourwayValve = 0
            
            
            Annular%Annular_closed=0
            !Annular_closed_withPossibility= Annular_closed * TD_BOPConnectionPossibility(1)
            AnnularComputational%p_annular=AnnularComputational%pa_annular
            Annular%AnnularLeverOld = BopControlPanel%AnnularValve

            CALL OpenAnnular
            Annular%Annular_Situation_forTD= 0       ! open - for TD code
            RAM(1)%bop_type = 3
            !AbopAnnular=758.48 !(in^2)
            Annular%AbopAnnular=(BopStackSpecification%AnnularPreventerOpen*231)/((Annular%IDAnnularBase-Annular%ODDrillpipe_inAnnularBase)/2.)
            Annular%NeededVolumeAnnular=Annular%AbopAnnular*(Annular%IDAnnularBase-Annular%IDAnnular)/(2*231.)
            RAM(1)%vdis_bottles=0.
            RAM(1)%fvr_air=0.
            RAM(1)%vdis_elecp=0.

            Annular%AnnularIsOpening = .true.
            Annular%AnnularIsClosing = .false.
            
            !write(*,*) 'open 2'
            
            endif

        

            RAM(1)%First_CloseTimecheck = 0
            RAM(1)%First_OpenTimecheck = 0
 
     RAM(1)%time=RAM(1)%time+RamLine%DeltaT_BOP  !overal time (s)



 

!===================================================
!                        BOP 
!===================================================
if (Annular%Annular_closed==0) then    !bop closing
    !write(*,*) 'AnnularIsClosing,AnnularIsOpening' , AnnularIsClosing,AnnularIsOpening
     call bop_codeAnnular(1)   !ramtype=4       1=RNUMBER
endif    !bop is closing
!================================================================
if (Annular%Annular_closed==1) then
    RAM(1)%Q=0
    !p_bop=pram_reg
    AnnularComputational%p_annular=AnnularComputational%pa_annular
endif

RAM(1)%timecounter_ram=RAM(1)%timecounter_ram+1





!        MiddleRamsStatus = IDshearBop
!        UpperRamsStatus = IDPipeRam1
!        LowerRamsStatus = IDPipeRam2
!        AnnularStatus = IDAnnular
!        AccumulatorPressureGauge = p_acc
!        ManifoldPressureGauge= pram_reg
!        AnnularPressureGauge=Pannular_reg
!
!        
!
!         WRITE(60,60) RAM(1)%time,RAM(1)%Q,RAM(1)%vdis_tot,p_acc, &
!         pram_reg,Pannular_reg,RAM(1)%p_bop,IDshearBop, &
!         IDPipeRam1,IDPipeRam2,IDAnnular
!60       FORMAT(11(f18.5))
         
         
        !   call sleepqq(100)
         
         
                    !CALL CPU_TIME(Annular_EndTime) 
                    !
                    !
                    !PUMP(1)%INT_CPU_TIME=IDINT((Annular_EndTime-Annular_StartTime)*1000.)
                    !PUMP(1)%Dt_ref=IDINT(DeltaT_BOP*1000.)
                    !
                    !call sleepqq(PUMP(1)%Dt_ref-PUMP(1)%INT_CPU_TIME)
         
         
         
         
          
if (Annular%Annular_closed==1) then
 !   if ((MiddleRamsValve==1. .and. MiddleRamsFailureMalf==0) .or. (MiddleRamsValve==-1.0 .and. MiddleRamsFailureMalf==0) .or. (LowerRamsValve==1. .and. LowerRamsFailureMalf==0) .or. (LowerRamsValve==-1.0 .and. LowerRamsFailureMalf==0) .or. (UpperRamsValve==1. .and. UpperRamsFailureMalf==0) .or. (UpperRamsValve==-1.0 .and. UpperRamsFailureMalf==0) .or. ChokeLineValve==1. .or. ChokeLineValve==-1.0 .or. KillLineValve==1. .or. KillLineValve==-1.0) then
        Annular%finished_Annular=1
 !   endif
endif          
          
        !   if (IsStopped == .true.) return 

          
    ! end do  loop5   !while finished_Annular==0
    
    
    
    
    
    if ( Annular%finished_Annular==1 .and. RAM(1)%Bottles_Charged_MalfActive==.true.) then
        call bop_codeAnnular(1)   !ramtype=4       1=RNUMBER
        ! call sleepqq(100)
    endif
    
END SUBROUTINE ANNULAR_SUB2