SimulationCore2/Equipments/BopStack/PIPE_RAM2.f90

 

SUBROUTINE PIPE_RAMS2
    USE VARIABLES
    USE CBopStackVariables
    USE CBopControlPanelVariables
    USE CEquipmentsConstants
    ! ! use CSimulationVariables
    implicit none
    
   
  !write(*,*) 'checkpoint 1'
    
!=====================================================================
!                 PIPE RAMS 2- BOP CAMERON Type U 5000
!                   START CONDITIONS FOR PIPE RAMS 2
!=====================================================================   
        RAM(3)%SuccessionCounter = RAM(3)%SuccessionCounter + 1    
    
    
       if (BopControlPanel%LowerRamsValve == 1.0 .and. PipeRam2%LowerRamsFailureMalf==0 .and. BopStackAcc%RigAirMalf==0 .and. BopControlPanel%AirMasterValve==1) then
    !write(*,*) 'close 1'
           
           
             if (BopStackInput%LowerRamsCloseLEDMine == LedOn) then 
                 RETURN            
             end if 
           
           
            if ( RAM(3)%SuccessionCounter /= RAM(3)%SuccessionCounterOld+1 ) then
                RAM(3)%SuccessionCounter = 0   ! also in starup
                RAM(3)%SuccessionCounterOld = 0   ! also in starup
                !return   
            else
                RAM(3)%SuccessionCounterOld= RAM(3)%SuccessionCounter        
            endif
        
        
            if ( RAM(3)%SuccessionCounter >= int(2.5/RamLine%DeltaT_BOP) ) then
                !return
                
                RAM(3)%First_CloseTimecheck= 1 
                
                BopControlPanel%LowerRamsOpenLED = LedOff
                BopStackInput%LowerRamsOpenLEDMine = LedOff
                BopControlPanel%LowerRamsCloseLED = LedOn    !LedBlinking  
            
                RAM(3)%FourwayValve = 1
               
            endif
           

       endif
       
       
       
       if (RAM(3)%FourwayValve == 1 .and. RamLine%P_ACC>BopStackAcc%acc_MinPressure) then    ! 1: Open , 0: Close
    !write(*,*) 'close 2'
           
         
           
            RAM(3)%FourwayValve = 0
           
            PipeRam2%closed=0
            !PipeRam2_closed_withPossibility= PipeRam2_closed * TD_BOPConnectionPossibility(4)
            RAM(3)%vdis_tot=0
            RAM(3)%vdis_bottles=0.
            RAM(3)%fvr_air=0.
            RAM(3)%vdis_elecp=0.
            Pumps%Qiter=7
            RAM(3)%Qzero=70
            RAM(3)%Q=RAM(3)%Qzero
            RAM(3)%flow=70
            RAM(3)%tol=0.0037
            if (PipeRam2%finished==1) then
               PipeRam2%LeverOld=-1.0
           else
               PipeRam2%LeverOld=BopControlPanel%LowerRamsValve
           endif
           PipeRam2%finished=0
            PipeRam2%IsClosing = .true.
            PipeRam2%IsOpening = .false.
            

            RAM(3)%bop_type = 3
            !AbopPipeRam=196.67
            PipeRam1%A=(BopStackSpecification%LowerRamClose*231)/((PipeRam1%IDBase-PipeRam1%ODDrillpipe_inBase)/2.)
            PipeRam2%NeededVolume=PipeRam1%A*(PipeRam1%IDBase-max(PipeRam2%ODDrillpipe_in,PipeRam1%ODDrillpipe_inBase))/(2.*231)  !galon for each BOP
              !write(*,*) 'close 1'
        endif
       
        if (BopControlPanel%LowerRamsValve == -1.0 .and. PipeRam2%LowerRamsFailureMalf==0 .and. BopStackAcc%RigAirMalf==0 .and. BopControlPanel%AirMasterValve==1) then
    !write(*,*) 'open 1'
            
             if (BopStackInput%LowerRamsOpenLEDMine == LedOn) then 
                 RETURN            
             end if  
            
            
            if ( RAM(3)%SuccessionCounter /= RAM(3)%SuccessionCounterOld+1 ) then
                RAM(3)%SuccessionCounter = 0   ! also in starup
                RAM(3)%SuccessionCounterOld = 0   ! also in starup
                !return   
            else
                RAM(3)%SuccessionCounterOld= RAM(3)%SuccessionCounter
            endif
        
        
            if ( RAM(3)%SuccessionCounter >= int(2.5/RamLine%DeltaT_BOP) ) then
                !return
                
                RAM(3)%First_OpenTimecheck= 1   
               
                BopControlPanel%LowerRamsCloseLED = LedOff    !new
                BopStackInput%LowerRamsCloseLEDMine = LedOff    !new
                BopControlPanel%LowerRamsOpenLED = LedOn    !LedBlinking         
         
                RAM(3)%FourwayValve = 1
                
            endif
               
         
        endif
        
        
        if (RAM(3)%FourwayValve == 1 .and. RamLine%P_ACC>BopStackAcc%acc_MinPressure) then    ! 1: Open , 0: Close
    !write(*,*) 'open 2'
            
            RAM(3)%FourwayValve = 0
         
            PipeRam2%closed=0
            !PipeRam2_closed_withPossibility= PipeRam2_closed * TD_BOPConnectionPossibility(4)
            RAM(3)%vdis_tot=0
            RAM(3)%vdis_bottles=0.
            RAM(3)%fvr_air=0.
            RAM(3)%vdis_elecp=0.
            Pumps%Qiter=7
            RAM(3)%Qzero=70
            RAM(3)%Q=RAM(3)%Qzero
            RAM(3)%flow=70
            RAM(3)%tol=0.0037

                if (PipeRam2%finished==1) then
                    PipeRam2%LeverOld=1.0
                else
                    PipeRam2%LeverOld=BopControlPanel%LowerRamsValve
                endif
            PipeRam2%finished=0
            PipeRam2%IsOpening = .true.
            PipeRam2%IsClosing = .false.          

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

            RAM(3)%bop_type = 3
            !AbopPipeRam=186.5
            PipeRam1%A=(BopStackSpecification%LowerRamOpen*231)/((PipeRam1%IDBase-PipeRam1%ODDrillpipe_inBase)/2.)
            PipeRam2%NeededVolume=PipeRam1%A*(PipeRam1%IDBase-max(PipeRam2%ODDrillpipe_in,PipeRam1%ODDrillpipe_inBase))/(2.*231)  !galon for each BOP
              !write(*,*) 'open 1'
            
        endif 
        
       
!=====================================================================    

    if (PipeRam2%IsOpening .or. PipeRam2%IsClosing .or. RAM(3)%Bottles_Charged_MalfActive) then
            Annular%FirstSet= 0
            AnnularComputational%RamsFirstSet= 0
            CALL PIPE_RAMS2_SUB
    end if    

END SUBROUTINE PIPE_RAMS2 
    

    
    
    
    
    
    
    
    
    
    
SUBROUTINE PIPE_RAMS2_SUB    
    
    USE VARIABLES
    USE CBopStackVariables
    USE CBopControlPanelVariables
    USE CEquipmentsConstants
    ! use CSimulationVariables
    implicit none
    
    
    ! FirstSet= 0
    ! RamsFirstSet= 0
    
    ! loop4: do while (finished_pipe2==0)
        
  !write(*,*) 'checkpoint 2'
        
        
             RAM(3)%SuccessionCounter = RAM(3)%SuccessionCounter + 1
        
        
           if (BopControlPanel%LowerRamsValve == 1.0 .and. PipeRam2%LeverOld == -1.0 .and. PipeRam2%LowerRamsFailureMalf==0 .and. BopStackAcc%RigAirMalf==0 .and. BopControlPanel%AirMasterValve==1) then
               
    !write(*,*) 'close 3'
               
                if ( RAM(3)%First_CloseTimecheck == 0 ) then 
                    
                    
                    if ( RAM(3)%SuccessionCounter /= RAM(3)%SuccessionCounterOld+1 ) then
                        RAM(3)%SuccessionCounter = 0   ! also in starup
                        RAM(3)%SuccessionCounterOld = 0   ! also in starup
                        !return   
                    else
                        RAM(3)%SuccessionCounterOld= RAM(3)%SuccessionCounter        
                    endif
        

        
                    if ( RAM(3)%SuccessionCounter >= int(2.5/RamLine%DeltaT_BOP) ) then
                        !return
                        
                        BopControlPanel%LowerRamsOpenLED = LedOff
                        BopStackInput%LowerRamsOpenLEDMine = LedOff
                        BopControlPanel%LowerRamsCloseLED = LedOn    !LedBlinking
                
                        RAM(3)%FourwayValve = 1                        
                        
                    endif
           
                endif
                
                

                
           endif
           
        if (RAM(3)%FourwayValve == 1 .and. RamLine%P_ACC>BopStackAcc%acc_MinPressure) then
    !write(*,*) 'close 4'
            
            RAM(3)%FourwayValve = 0
           

               PipeRam2%closed=0
               !PipeRam2_closed_withPossibility= PipeRam2_closed * TD_BOPConnectionPossibility(4)
            RAM(3)%p_bop=ShearRam%PA
            PipeRam2%LeverOld = BopControlPanel%LowerRamsValve

            CALL OpenLowerRams
            PipeRam2%Situation_forTD= 0       ! open - for TD code
            RAM(3)%bop_type = 3
            !AbopPipeRam=196.67
            PipeRam1%A=(BopStackSpecification%LowerRamClose*231)/((PipeRam1%IDBase-PipeRam1%ODDrillpipe_inBase)/2.)
            PipeRam2%NeededVolume=PipeRam1%A*(PipeRam2%ID-max(PipeRam2%ODDrillpipe_in,PipeRam1%ODDrillpipe_inBase))/(2.*231)
            
            RAM(3)%vdis_bottles=0.
            RAM(3)%fvr_air=0.
            RAM(3)%vdis_elecp=0.
            PipeRam2%IsClosing = .true.
            PipeRam2%IsOpening = .false.
              !write(*,*) 'close 2'
            
        endif
        
        if (BopControlPanel%LowerRamsValve == -1.0 .and. PipeRam2%LeverOld == 1.0 .and. PipeRam2%LowerRamsFailureMalf==0 .and. BopStackAcc%RigAirMalf==0 .and. BopControlPanel%AirMasterValve==1) then 
    !write(*,*) 'open 3'
            
          
                if ( RAM(3)%First_OpenTimecheck == 0 ) then

                    if ( RAM(3)%SuccessionCounter /= RAM(3)%SuccessionCounterOld+1 ) then
                        RAM(3)%SuccessionCounter = 0   ! also in starup
                        RAM(3)%SuccessionCounterOld = 0   ! also in starup
                        !return   
                    else
                        RAM(3)%SuccessionCounterOld= RAM(3)%SuccessionCounter        
                    endif
        
                    if ( RAM(3)%SuccessionCounter >= int(2.5/RamLine%DeltaT_BOP) ) then
                        !return
                        
                        BopControlPanel%LowerRamsCloseLED = LedOff
                        BopStackInput%LowerRamsCloseLEDMine = LedOff
                        BopControlPanel%LowerRamsOpenLED = LedOn    !LedBlinking 
            
                        RAM(3)%FourwayValve = 1
            
                    endif
           
                endif  
                
            
        endif
        
        
        if (RAM(3)%FourwayValve == 1 .and. RamLine%P_ACC>BopStackAcc%acc_MinPressure) then
    !write(*,*) 'open 4'
            
            RAM(3)%FourwayValve = 0
            
            PipeRam2%closed=0
            !PipeRam2_closed_withPossibility= PipeRam2_closed * TD_BOPConnectionPossibility(4)
            RAM(3)%p_bop=ShearRam%PA
            PipeRam2%LeverOld = BopControlPanel%LowerRamsValve

            CALL OpenLowerRams
            PipeRam2%Situation_forTD= 0       ! open - for TD code
            RAM(3)%bop_type = 3
            !AbopPipeRam=186.5
            PipeRam1%A=(BopStackSpecification%LowerRamOpen*231)/((PipeRam1%IDBase-PipeRam1%ODDrillpipe_inBase)/2.)
            PipeRam2%NeededVolume=PipeRam1%A*(PipeRam1%IDBase-PipeRam2%ID)/(2.*231)
            RAM(3)%vdis_bottles=0.
            RAM(3)%fvr_air=0.
            RAM(3)%vdis_elecp=0.

            PipeRam2%IsOpening = .true.
            PipeRam2%IsClosing = .false.
              !write(*,*) 'open 2'
            
        endif
        
        
            RAM(3)%First_CloseTimecheck = 0
            RAM(3)%First_OpenTimecheck = 0
 
 
     RAM(3)%time=RAM(3)%time+RamLine%DeltaT_BOP  !overal time (s)

 

!===================================================
!                        BOP 
!===================================================
if (PipeRam2%closed==0) then    !bop closing
!write(*,*) 'BOP code is called'
     call bop_code(3,PipeRam2%H_Bop,3)   !ramtype=3      3=RNUMBER
endif    !bop is closing
!================================================================
if (PipeRam2%closed==1) then
    RAM(3)%Q=0
    !p_bop=pram_reg
    RAM(3)%p_bop=ShearRam%PA
    RAMS%minloss(3,17)=0.       !RNUMBER=3
endif

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





!        MiddleRamsStatus = IDshearBop
!        UpperRamsStatus = IDPipeRam1
!        LowerRamsStatus = IDPipeRam2
!        AnnularStatus = IDAnnular
!        AccumulatorPressureGauge = p_acc
!        ManifoldPressureGauge= pram_reg
!        AnnularPressureGauge=Pannular_reg
!
!        
!
!         WRITE(60,60) RAM(3)%time,RAM(3)%Q,RAM(3)%vdis_tot,p_acc, &
!         pram_reg,Pannular_reg,RAM(3)%p_bop,IDshearBop, &
!         IDPipeRam1,IDPipeRam2,IDAnnular
!60       FORMAT(11(f18.5))
         
         
        !   call sleepqq(100)
          
if (PipeRam2%closed==1) then
    
!    if ((MiddleRamsValve==1. .and. MiddleRamsFailureMalf==0) .or. (MiddleRamsValve==-1.0 .and. MiddleRamsFailureMalf==0) .or. (UpperRamsValve==1. .and. UpperRamsFailureMalf==0) .or. (UpperRamsValve==-1.0 .and. UpperRamsFailureMalf==0) .or. (AnnularValve==1. .and. AnnularFailureMalf==0) .or. (AnnularValve==-1.0 .and. AnnularFailureMalf==0) .or. ChokeLineValve==1. .or. ChokeLineValve==-1.0 .or. KillLineValve==1. .or. KillLineValve==-1.0) then
        PipeRam2%finished=1
!    endif
endif          
          
    !       if (IsStopped == .true.) return 

          
    ! end do  loop4   !while finished_pipe2==0
    
    if ( PipeRam2%finished==1 .and. RAM(3)%Bottles_Charged_MalfActive==.true.) then
        call bop_code(3,PipeRam2%H_Bop,3)   !ramtype=3      3=RNUMBER
        ! call sleepqq(100)
    endif    
    
    
    
    
END SUBROUTINE PIPE_RAMS2_SUB