SimulationCore2/Equipments/BopStack/ANNULAR.i90

# 1 "/home/admin/SimulationCore2/Equipments/BopStack/ANNULAR.f90"
SUBROUTINE ANNULAR_SUB1
    use SimulationVariables
    use CBopControlPanel
    use SimulationVariables
    use PressureDisplayVARIABLESModule
    USE CEquipmentsConstants
    USE CBopStackVariables
    
    implicit none
    
!write(*,*) 'checkpoint 1'
!=====================================================================
!                 ANNULAR PREVENTER- BOP CAMERON Type U 5000
!                   START CONDITIONS FOR ANNULAR PREVENTER
!=====================================================================
    
    data%State%RAM(1)%SuccessionCounter = data%State%RAM(1)%SuccessionCounter + 1
        
    if (data%Equipments%BopControlPanel%AnnularValve == 1.0 .and. data%State%Annular%AnnularFailureMalf==0 .and. data%State%BopStackAcc%RigAirMalf==0 .and. data%Equipments%BopControlPanel%AirMasterValve==1) then
        
        if (data%State%BopStackInput%AnnularCloseLedMine == LedOn) then
            RETURN              
        end if           
        
        
        if ( data%State%RAM(1)%SuccessionCounter /= data%State%RAM(1)%SuccessionCounterOld+1 ) then
            data%State%RAM(1)%SuccessionCounter = 0   ! also in starup
            data%State%RAM(1)%SuccessionCounterOld = 0   ! also in starup
!return
        else
            data%State%RAM(1)%SuccessionCounterOld= data%State%RAM(1)%SuccessionCounter        
        endif
        

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

        data%State%RAM(2)%bop_type = 3
!AbopAnnular=963.1 !(in^2)
        data%State%Annular%AbopAnnular=(data%Configuration%BopStack%AnnularPreventerClose*231.)/((data%State%Annular%IDAnnularBase-data%State%Annular%ODDrillpipe_inAnnularBase)/2.)     ! 231 in^3 = 1 gal
        data%State%Annular%NeededVolumeAnnular=data%State%Annular%AbopAnnular*(data%State%Annular%IDAnnularBase-max(data%State%Annular%ODDrillpipe_inAnnular,data%State%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 (data%Equipments%BopControlPanel%AnnularValve == -1.0 .and. data%State%Annular%AnnularFailureMalf==0 .and. data%State%BopStackAcc%RigAirMalf==0 .and. data%Equipments%BopControlPanel%AirMasterValve==1 ) then
        
            if (data%State%BopStackInput%AnnularOpenLedMine == LedOn) then
                RETURN              
            end if            
        
!CasingPressure : PressureGauges(2) *****temp conditionssssss
        
!note: (AnnularSealingPressure) is only for opening while well is pressurised
                    

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

        

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



 

!===================================================
!                        BOP
!===================================================
if (data%State%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 (data%State%Annular%Annular_closed==1) then
    data%State%RAM(1)%Q=0
!p_bop=pram_reg
    data%State%AnnularComputational%p_annular=data%State%AnnularComputational%pa_annular
endif

data%State%RAM(1)%timecounter_ram=data%State%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) data%State%RAM(1)%time,data%State%RAM(1)%Q,data%State%RAM(1)%vdis_tot,p_acc, &
!         pram_reg,Pannular_reg,data%State%RAM(1)%p_bop,IDshearBop, &
!         IDPipeRam1,IDPipeRam2,IDAnnular
!60       FORMAT(11(f18.5))
         
         
!   call sleepqq(100)
         
         
!CALL CPU_TIME(Annular_EndTime)
!
!
!data%State%Pump(1)%INT_CPU_TIME=IDINT((Annular_EndTime-Annular_StartTime)*1000.)
!data%State%Pump(1)%Dt_ref=IDINT(DeltaT_BOP*1000.)
!
!call sleepqq(data%State%Pump(1)%Dt_ref-data%State%Pump(1)%INT_CPU_TIME)
         
         
         
         
          
if (data%State%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
        data%State%Annular%finished_Annular=1
!   endif
endif          
          
!   if (IsStopped == .true.) return

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