SimulationCore2/Equipments/BopStack/CHOKE_LINE.f90

 

SUBROUTINE CHOKE_LINE
    USE VARIABLES
    USE CAccumulatorVariables
    USE CBopStackVariables
    USE CBopControlPanelVariables
    USE CEquipmentsConstants

    implicit none

    
!=====================================================================
!                 CHOKE LINE 1- BOP CAMERON Type U 5000
!                   START CONDITIONS FOR CHOKE LINE 1
!=====================================================================
    
      RAM(5)%SuccessionCounter = RAM(5)%SuccessionCounter + 1    
    
    
       if (BopControlPanel%ChokeLineValve == -1.0 .and. BopStackAcc%RigAirMalf==0 .and. BopControlPanel%AirMasterValve==1 .and. RamLine%P_ACC>BopStackAcc%acc_MinPressure) then
           
        if ( RAM(5)%SuccessionCounter /= RAM(5)%SuccessionCounterOld+1 ) then
            RAM(5)%SuccessionCounter = 0   ! also in starup
            RAM(5)%SuccessionCounterOld = 0   ! also in starup
            return   
        else
            RAM(5)%SuccessionCounterOld= RAM(5)%SuccessionCounter        
        endif
        
        
        if ( RAM(5)%SuccessionCounter < int(2.5/RamLine%DeltaT_BOP) ) then
            return
        endif
           
           RAM(5)%First_CloseTimecheck= 1 
           
           
           
           
         if (BopStackInput%ChokeLineOpenLEDMine == LedOn) then 
             RETURN             
         end if
            ChokeLine%closed=0
            RAM(5)%vdis_tot=0
            RAM(5)%vdis_bottles=0.
            RAM(5)%fvr_air=0.
            RAM(5)%vdis_elecp=0.
            Pumps%Qiter=7
            RAM(5)%Qzero=70
            RAM(5)%Q=RAM(5)%Qzero
            RAM(5)%flow=70
            RAM(5)%tol=0.0037
            if (ChokeLine%finished==1) then
               ChokeLine%LeverOld= 1.0
           else
               ChokeLine%LeverOld=BopControlPanel%ChokeLineValve
           endif
           ChokeLine%finished=0
            ChokeLine%IsOpening = .true.
            BopControlPanel%ChokeLineCloseLED = LedOff
            BopStackInput%ChokeLineCloseLEDMine = LedOff
            BopControlPanel%ChokeLineOpenLED = LedOn    !LedBlinking
            RAM(5)%bop_type = 3
            !AbopChokeLine=196.67
            ChokeLine%Abop=(BopStackSpecification%ChokeClose*231)/((ChokeLine%IDBase-ChokeLine%ODDrillpipe_inBase)/2.)
            ChokeLine%NeededVolume=ChokeLine%Abop*(ChokeLine%IDBase-max(ChokeLine%ODDrillpipe_in,ChokeLine%ODDrillpipe_inBase))/(2.*231)  !1.5 galon for each BOP
        endif
       
        if (BopControlPanel%ChokeLineValve == 1.0 .and. BopStackAcc%RigAirMalf==0 .and. BopControlPanel%AirMasterValve==1 .and. RamLine%P_ACC>BopStackAcc%acc_MinPressure) then
            
            
            if ( RAM(5)%SuccessionCounter /= RAM(5)%SuccessionCounterOld+1 ) then
                RAM(5)%SuccessionCounter = 0   ! also in starup
                RAM(5)%SuccessionCounterOld = 0   ! also in starup
                return   
            else
                RAM(5)%SuccessionCounterOld= RAM(5)%SuccessionCounter
            endif
        
        
            if ( RAM(5)%SuccessionCounter < int(2.5/RamLine%DeltaT_BOP) ) then
                return
            endif
               
               RAM(5)%First_OpenTimecheck= 1             
            
            
            
         if (BopStackInput%ChokeLineCloseLEDMine == LedOn) then 
             RETURN             
         end if
            ChokeLine%closed=0
            RAM(5)%vdis_tot=0
            RAM(5)%vdis_bottles=0.
            RAM(5)%fvr_air=0.
            RAM(5)%vdis_elecp=0.
            Pumps%Qiter=7
            RAM(5)%Qzero=70
            RAM(5)%Q=RAM(5)%Qzero
            RAM(5)%flow=70
            RAM(5)%tol=0.0037
            
            

                if (ChokeLine%finished==1) then
                    ChokeLine%LeverOld= -1.0
                else
                    ChokeLine%LeverOld=BopControlPanel%ChokeLineValve
                endif
            ChokeLine%finished=0
            ChokeLine%IsClosing = .true.

        
         !if (ChokeLineCloseLED == LedOn) then 
         !    RETURN             
         !end if
         
            BopControlPanel%ChokeLineCloseLED = LedOff    !new
            BopStackInput%ChokeLineCloseLEDMine = LedOff    !new             
            
            
            BopControlPanel%ChokeLineCloseLED = LedOn    !LedBlinking
            RAM(5)%bop_type = 3
            !AbopChokeLine=196.67
            ChokeLine%Abop=(BopStackSpecification%ChokeOpen*231)/((ChokeLine%IDBase-ChokeLine%ODDrillpipe_inBase)/2.)
            ChokeLine%NeededVolume=ChokeLine%Abop*(ChokeLine%IDBase-max(ChokeLine%ODDrillpipe_in,ChokeLine%ODDrillpipe_inBase))/(2.*231)  !1.5 galon for each BOP
        endif

        
!=====================================================================    
    
! if (ChokeLineIsOpening .or. ChokeLineIsClosing) then
!         CALL CHOKE_LINE_SUB
! end if    
    
    
    END SUBROUTINE CHOKE_LINE  
    
    
    
    
    
    
    
    
    
    
    
    
SUBROUTINE CHOKE_LINE_SUB  

    USE VARIABLES
    USE CAccumulatorVariables
    USE CBopStackVariables
    USE CBopControlPanelVariables
    USE CEquipmentsConstants
    ! use CSimulationVariables
    implicit none  
    
    
    ! FirstSet= 0
    ! RamsFirstSet= 0
    
    ! loop5: do while (finished_ChokeLine==0)
        
        
             RAM(5)%SuccessionCounter = RAM(5)%SuccessionCounter + 1        
        
        
           if (BopControlPanel%ChokeLineValve == 1.0 .and. ChokeLine%LeverOld == -1.0 .and. BopStackAcc%RigAirMalf==0 .and. BopControlPanel%AirMasterValve==1 .and. RamLine%P_ACC>BopStackAcc%acc_MinPressure) then
               
                if ( RAM(5)%First_CloseTimecheck == 0 ) then 
                    
                    
                    if ( RAM(5)%SuccessionCounter /= RAM(5)%SuccessionCounterOld+1 ) then
                        RAM(5)%SuccessionCounter = 0   ! also in starup
                        RAM(5)%SuccessionCounterOld = 0   ! also in starup
                        return   
                    else
                        RAM(5)%SuccessionCounterOld= RAM(5)%SuccessionCounter        
                    endif
        

        
                    if ( RAM(5)%SuccessionCounter < int(2.5/RamLine%DeltaT_BOP) ) then
                        return
                    endif
           
                endif               
               
               
               
            ChokeLine%closed=0
            RAM(5)%p_bop=ShearRam%PA
            ChokeLine%LeverOld = BopControlPanel%ChokeLineValve
            BopControlPanel%ChokeLineOpenLED = LedOff
            BopStackInput%ChokeLineOpenLEDMine = LedOff
            BopControlPanel%ChokeLineCloseLED = LedOn    !LedBlinking
            CALL OpenChokeLine
            RAM(5)%bop_type = 3
            !AbopChokeLine=196.67
            ChokeLine%Abop=(BopStackSpecification%ChokeClose*231)/((ChokeLine%IDBase-ChokeLine%ODDrillpipe_inBase)/2.)
            ChokeLine%NeededVolume=ChokeLine%Abop*(ChokeLine%ID-max(ChokeLine%ODDrillpipe_in,ChokeLine%ODDrillpipe_inBase))/(2.*231)
            
            RAM(5)%vdis_bottles=0.
            RAM(5)%fvr_air=0.
            RAM(5)%vdis_elecp=0.
            ChokeLine%IsClosing = .true.
            ChokeLine%IsOpening = .false.
        endif
        
        if (BopControlPanel%ChokeLineValve == -1.0 .and. ChokeLine%LeverOld == 1.0 .and. RamLine%P_ACC>BopStackAcc%acc_MinPressure .and. BopStackAcc%RigAirMalf==0 .and. BopControlPanel%AirMasterValve==1) then 
            
                if ( RAM(5)%First_OpenTimecheck == 0 ) then

                    if ( RAM(5)%SuccessionCounter /= RAM(5)%SuccessionCounterOld+1 ) then
                        RAM(5)%SuccessionCounter = 0   ! also in starup
                        RAM(5)%SuccessionCounterOld = 0   ! also in starup
                        return   
                    else
                        RAM(5)%SuccessionCounterOld= RAM(5)%SuccessionCounter        
                    endif
        
                    if ( RAM(5)%SuccessionCounter < int(2.5/RamLine%DeltaT_BOP) ) then
                        return
                    endif
           
                endif            
            
            
            
            ChokeLine%closed=0
            RAM(5)%p_bop=ShearRam%PA
            ChokeLine%LeverOld = BopControlPanel%ChokeLineValve
            BopControlPanel%ChokeLineCloseLED = LedOff
            BopStackInput%ChokeLineCloseLEDMine = LedOff
            BopControlPanel%ChokeLineOpenLED = LedOn    !LedBlinking
            CALL OpenChokeLine
            RAM(5)%bop_type = 3
            !AbopChokeLine=196.67
            ChokeLine%Abop=(BopStackSpecification%ChokeOpen*231)/((ChokeLine%IDBase-ChokeLine%ODDrillpipe_inBase)/2.)
            ChokeLine%NeededVolume=ChokeLine%Abop*(ChokeLine%IDBase-ChokeLine%ID)/(2.*231)
            RAM(5)%vdis_bottles=0.
            RAM(5)%fvr_air=0.
            RAM(5)%vdis_elecp=0.

            ChokeLine%IsOpening = .true.
            ChokeLine%IsClosing = .false.
            endif


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

 

!===================================================
!                        BOP 
!===================================================
if (ChokeLine%closed==0) then    !bop closing
     call bop_code(4,ChokeLine%H_Bop,5)   !ramtype=4     5=RNUMBER
endif    !bop is closing
!================================================================
if (ChokeLine%closed==1) then
    RAM(5)%Q=0
    !p_bop=pram_reg
    RAM(5)%p_bop=ShearRam%PA
    RAMS%minloss(5,17)=0.       !RNUMBER=5
endif

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





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

    ! end do  loop5   !while finished_ChokeLine==0
    
END SUBROUTINE CHOKE_LINE_SUB