SimulationCore2/Equipments/BopStack/PIPE_RAM1.i90

# 1 "/mnt/c/Projects/VSIM/SimulationCore2/Equipments/BopStack/PIPE_RAM1.f90"
SUBROUTINE PIPE_RAMS1
    use SimulationVariables
! USE CAccumulatorVariables
! USE CBopStackVariables
    USE CBopStackVariables
    use CBopControlPanel
    use SimulationVariables
    USE CEquipmentsConstants
! ! use CSimulationVariables
    implicit none
    
!=====================================================================
!                 PIPE RAMS 1- BOP CAMERON Type U 5000
!                   START CONDITIONS FOR PIPE RAMS 1
!=====================================================================
      data%State%RAM(2)%SuccessionCounter = data%State%RAM(2)%SuccessionCounter + 1
       if (data%Equipments%BopControlPanel%UpperRamsValve == 1.0 .and. data%State%PipeRam1%UpperRamsFailureMalf==0 .and. data%State%BopStackAcc%RigAirMalf==0 .and. data%Equipments%BopControlPanel%AirMasterValve==1) then
             if (data%State%BopStackInput%UpperRamsCloseLEDMine == LedOn) then 
                 RETURN             
             end if          
            if ( data%State%RAM(2)%SuccessionCounter /= data%State%RAM(2)%SuccessionCounterOld+1 ) then
                data%State%RAM(2)%SuccessionCounter = 0   ! also in starup
                data%State%RAM(2)%SuccessionCounterOld = 0   ! also in starup
!return
            else
                data%State%RAM(2)%SuccessionCounterOld= data%State%RAM(2)%SuccessionCounter 
            endif
        

        
        
            if ( data%State%RAM(2)%SuccessionCounter >= int(2.5/data%State%RamLine%DeltaT_BOP) ) then
!return
            
                data%State%RAM(2)%First_CloseTimecheck= 1 
            
                data%Equipments%BopControlPanel%UpperRamsOpenLED = LedOff
                data%State%BopStackInput%UpperRamsOpenLEDMine = LedOff
                data%Equipments%BopControlPanel%UpperRamsCloseLED = LedOn    !LedBlinking
            
                data%State%RAM(2)%FourwayValve = 1
            endif
        
       endif
       
       
       if (data%State%RAM(2)%FourwayValve == 1 .and. data%State%RamLine%P_ACC>data%State%BopStackAcc%acc_MinPressure) then    ! 1: Open , 0: Close
!write(*,*) 'close 2'
           
           data%State%RAM(2)%FourwayValve = 0


         
            data%State%PipeRam1%closed=0
!PipeRam1_closed_withPossibility= PipeRam1_closed * TD_BOPConnectionPossibility(2)
            data%State%RAM(2)%vdis_tot=0
            data%State%RAM(2)%vdis_bottles=0.
            data%State%RAM(2)%fvr_air=0.
            data%State%RAM(2)%vdis_elecp=0.
            data%State%Pumps%Qiter=7
            data%State%RAM(2)%Qzero=70
            data%State%RAM(2)%Q=data%State%RAM(2)%Qzero
            data%State%RAM(2)%flow=70
            data%State%RAM(2)%tol=0.0037
            if (data%State%PipeRam1%finished==1) then
                data%State%PipeRam1%PipeRams1DotLeverOld=-1.0
           else
               data%State%PipeRam1%PipeRams1DotLeverOld=data%Equipments%BopControlPanel%UpperRamsValve
           endif
           data%State%PipeRam1%finished=0
            data%State%PipeRam1%IsClosing = .true.
            data%State%PipeRam1%IsOpening = .false.

            data%State%RAM(2)%bop_type = 3
!AbopPipeRam=196.67
            data%State%PipeRam1%A=(data%Configuration%BopStack%UpperRamClose*231)/((data%State%PipeRam1%IDBase-data%State%PipeRam1%ODDrillpipe_inBase)/2.)
            data%State%PipeRam1%NeededVolume=data%State%PipeRam1%A*(data%State%PipeRam1%IDBase-max(data%State%PipeRam1%ODDrillpipe_in,data%State%PipeRam1%ODDrillpipe_inBase))/(2.*231)  !3.67 galon for each BOP
        endif
       
        if (data%Equipments%BopControlPanel%UpperRamsValve == -1.0 .and. data%State%PipeRam1%UpperRamsFailureMalf==0 .and. data%State%BopStackAcc%RigAirMalf==0 .and. data%Equipments%BopControlPanel%AirMasterValve==1) then
            
             if (data%State%BopStackInput%UpperRamsOpenLEDMine == LedOn) then 
                 RETURN             
             end if             

            if ( data%State%RAM(2)%SuccessionCounter /= data%State%RAM(2)%SuccessionCounterOld+1 ) then
                data%State%RAM(2)%SuccessionCounter = 0   ! also in starup
                data%State%RAM(2)%SuccessionCounterOld = 0   ! also in starup
!return
            else
                data%State%RAM(2)%SuccessionCounterOld= data%State%RAM(2)%SuccessionCounter
            endif
        
        
            if ( data%State%RAM(2)%SuccessionCounter >= int(2.5/data%State%RamLine%DeltaT_BOP) ) then
!return
                
                data%State%RAM(2)%First_OpenTimecheck= 1  
                
                data%Equipments%BopControlPanel%UpperRamsCloseLED = LedOff    !new
                data%State%BopStackInput%UpperRamsCloseLEDMine = LedOff    !new
                data%Equipments%BopControlPanel%UpperRamsOpenLED = LedOn    !LedBlinking

                data%State%RAM(2)%FourwayValve = 1
                
            endif
            
        endif
        
        if (data%State%RAM(2)%FourwayValve == 1 .and. data%State%RamLine%P_ACC>data%State%BopStackAcc%acc_MinPressure) then    ! 1: Open , 0: Close
!write(*,*) 'open 2'
            
            data%State%RAM(2)%FourwayValve = 0               
 

            data%State%PipeRam1%closed=0
!PipeRam1_closed_withPossibility= PipeRam1_closed * TD_BOPConnectionPossibility(2)
            data%State%RAM(2)%vdis_tot=0
            data%State%RAM(2)%vdis_bottles=0.
            data%State%RAM(2)%fvr_air=0.
            data%State%RAM(2)%vdis_elecp=0.
            data%State%Pumps%Qiter=7
            data%State%RAM(2)%Qzero=70
            data%State%RAM(2)%Q=data%State%RAM(2)%Qzero
            data%State%RAM(2)%flow=70
            data%State%RAM(2)%tol=0.0037
            
            

                if (data%State%PipeRam1%finished==1) then
                    data%State%PipeRam1%PipeRams1DotLeverOld=1.0
                else
                    data%State%PipeRam1%PipeRams1DotLeverOld=data%Equipments%BopControlPanel%UpperRamsValve
                endif
            data%State%PipeRam1%finished=0
            data%State%PipeRam1%IsOpening = .true.
            data%State%PipeRam1%IsClosing = .false.

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

            data%State%RAM(2)%bop_type = 3
!AbopPipeRam=186.5
            data%State%PipeRam1%A=(data%Configuration%BopStack%UpperRamOpen*231)/((data%State%PipeRam1%IDBase-data%State%PipeRam1%ODDrillpipe_inBase)/2.)
            data%State%PipeRam1%NeededVolume=data%State%PipeRam1%A*(data%State%PipeRam1%IDBase-max(data%State%PipeRam1%ODDrillpipe_in,data%State%PipeRam1%ODDrillpipe_inBase))/(2.*231)  !3.48 galon for each BOP
        endif
      
!=====================================================================
    
    data%State%Annular%FirstSet= 0
    data%State%AnnularComputational%RamsFirstSet= 0
if (data%State%PipeRam1%IsOpening .or. data%State%PipeRam1%IsClosing .or. data%State%RAM(2)%Bottles_Charged_MalfActive) then
        data%State%Annular%FirstSet= 0
        data%State%AnnularComputational%RamsFirstSet= 0
        CALL PIPE_RAMS1_SUB
end if    
    
    
    END SUBROUTINE PIPE_RAMS1  
    
    

    
    
    
    
    
    
    
    
SUBROUTINE PIPE_RAMS1_SUB    
    
    use SimulationVariables
    USE CBopStackVariables
    use CBopControlPanel
    use SimulationVariables
    USE CEquipmentsConstants
! use CSimulationVariables
    implicit none
    
    
! FirstSet= 0
! RamsFirstSet= 0
    
! loop3: do while (finished_pipe1==0)
        
        
             data%State%RAM(2)%SuccessionCounter = data%State%RAM(2)%SuccessionCounter + 1
       
        
           if (data%Equipments%BopControlPanel%UpperRamsValve == 1.0 .and. data%State%PipeRam1%PipeRams1DotLeverOld == -1.0 .and. data%State%PipeRam1%UpperRamsFailureMalf==0 .and. data%State%BopStackAcc%RigAirMalf==0 .and. data%Equipments%BopControlPanel%AirMasterValve==1) then
            

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

        
                    if ( data%State%RAM(2)%SuccessionCounter >= int(2.5/data%State%RamLine%DeltaT_BOP) ) then
!return
                        
                        data%Equipments%BopControlPanel%UpperRamsOpenLED = LedOff
                        data%State%BopStackInput%UpperRamsOpenLEDMine = LedOff
                        data%Equipments%BopControlPanel%UpperRamsCloseLED = LedOn    !LedBlinking
                        
                        data%State%RAM(2)%FourwayValve = 1
                        
                    endif
           
                endif
                
           endif
           
        if (data%State%RAM(2)%FourwayValve == 1 .and. data%State%RamLine%P_ACC>data%State%BopStackAcc%acc_MinPressure) then
!write(*,*) 'close 4'
            
            data%State%RAM(2)%FourwayValve = 0                                
  
               
            data%State%PipeRam1%closed=0
!PipeRam1_closed_withPossibility= PipeRam1_closed * TD_BOPConnectionPossibility(2)    ! for TD code
            CALL OpenUpperRams       ! for C code
            data%State%PipeRam1%Situation_forTD= 0       ! open - for TD code
            data%State%RAM(2)%p_bop=data%State%ShearRAM%PA
            data%State%PipeRam1%PipeRams1DotLeverOld = data%Equipments%BopControlPanel%UpperRamsValve

            
            data%State%RAM(2)%bop_type = 3
!AbopPipeRam=196.67
            data%State%PipeRam1%A=(data%Configuration%BopStack%UpperRamClose*231)/((data%State%PipeRam1%IDBase-data%State%PipeRam1%ODDrillpipe_inBase)/2.)
!write(*,*) 'NeededVolumeShearRams1=',NeededVolumeShearRams
            data%State%PipeRam1%NeededVolume=data%State%PipeRam1%A*(data%State%PipeRam1%ID-max(data%State%PipeRam1%ODDrillpipe_in,data%State%PipeRam1%ODDrillpipe_inBase))/(2.*231)
!  write(*,*) 'NeededVolumeShearRams2=',NeededVolumeShearRams
            
            data%State%RAM(2)%vdis_bottles=0.
            data%State%RAM(2)%fvr_air=0.
            data%State%RAM(2)%vdis_elecp=0.
            data%State%PipeRam1%IsClosing = .true.
            data%State%PipeRam1%IsOpening = .false.
        endif
        
        if (data%Equipments%BopControlPanel%UpperRamsValve == -1.0 .and. data%State%PipeRam1%PipeRams1DotLeverOld == 1.0 .and. data%State%PipeRam1%UpperRamsFailureMalf==0 .and. data%State%BopStackAcc%RigAirMalf==0 .and. data%Equipments%BopControlPanel%AirMasterValve==1) then 
            
            
                if ( data%State%RAM(2)%First_OpenTimecheck == 0 ) then

                    if ( data%State%RAM(2)%SuccessionCounter /= data%State%RAM(2)%SuccessionCounterOld+1 ) then
                        data%State%RAM(2)%SuccessionCounter = 0   ! also in starup
                        data%State%RAM(2)%SuccessionCounterOld = 0   ! also in starup
!return
                    else
                        data%State%RAM(2)%SuccessionCounterOld= data%State%RAM(2)%SuccessionCounter        
                    endif
        
                    if ( data%State%RAM(2)%SuccessionCounter >= int(2.5/data%State%RamLine%DeltaT_BOP) ) then
!return
                        
                        data%Equipments%BopControlPanel%UpperRamsCloseLED = LedOff
                        data%State%BopStackInput%UpperRamsCloseLEDMine = LedOff
                        data%Equipments%BopControlPanel%UpperRamsOpenLED = LedOn    !LedBlinking
                        
                        data%State%RAM(2)%FourwayValve = 1
                        
                        
                    endif
           
                endif
                
        endif
        
        if (data%State%RAM(2)%FourwayValve == 1 .and. data%State%RamLine%P_ACC>data%State%BopStackAcc%acc_MinPressure) then
!write(*,*) 'open 4'
            
            data%State%RAM(2)%FourwayValve = 0                
            
    
            
            data%State%PipeRam1%closed=0
!PipeRam1_closed_withPossibility= PipeRam1_closed * TD_BOPConnectionPossibility(2)
            CALL OpenUpperRams
            data%State%PipeRam1%Situation_forTD= 0       ! open - for TD code
            data%State%RAM(2)%p_bop=data%State%ShearRAM%PA
            data%State%PipeRam1%PipeRams1DotLeverOld = data%Equipments%BopControlPanel%UpperRamsValve

            data%State%RAM(2)%bop_type = 3
!AbopPipeRam=186.5
            data%State%PipeRam1%A=(data%Configuration%BopStack%UpperRamOpen*231)/((data%State%PipeRam1%IDBase-data%State%PipeRam1%ODDrillpipe_inBase)/2.)
            data%State%PipeRam1%NeededVolume=data%State%PipeRam1%A*(data%State%PipeRam1%IDBase-data%State%PipeRam1%ID)/(2.*231)
            data%State%RAM(2)%vdis_bottles=0.
            data%State%RAM(2)%fvr_air=0.
            data%State%RAM(2)%vdis_elecp=0.

            data%State%PipeRam1%IsOpening = .true.
            data%State%PipeRam1%IsClosing = .false.
            endif

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

 

!===================================================
!                        BOP
!===================================================
if (data%State%PipeRam1%closed==0) then    !bop closing
     call bop_code(2,data%State%PipeRam1%H,2)   !ramtype=2      2=RNUMBER
endif    !bop is closing
!================================================================
if (data%State%PipeRam1%closed==1) then
    data%State%RAM(2)%Q=0
!p_bop=pram_reg
    data%State%RAM(2)%p_bop=data%State%ShearRAM%PA
    data%State%RAMS%minloss(2,17)=0.       !RNUMBER=2
endif

data%State%RAM(2)%timecounter_ram=data%State%RAM(2)%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(2)%time,data%State%RAM(2)%Q,data%State%RAM(2)%vdis_tot,p_acc, &
!         pram_reg,Pannular_reg,data%State%RAM(2)%p_bop,IDshearBop, &
!         IDPipeRam1,IDPipeRam2,IDAnnular
!60       FORMAT(11(f18.5))
         
         
!   call sleepqq(100)
          
if (data%State%PipeRam1%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. (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
        data%State%PipeRam1%finished=1
!  endif
endif          
          
!   if (IsStopped == .true.) return
          
! end do  loop3   !while finished_pipe1==0
    
    
    
    
    
    
    if ( data%State%PipeRam1%finished==1 .and. data%State%RAM(2)%Bottles_Charged_MalfActive==.true.) then
        call bop_code(2,data%State%PipeRam1%H,2)   !ramtype=2      2=RNUMBER
! call sleepqq(100)
    endif
    
    
    
    
    
    
END SUBROUTINE PIPE_RAMS1_SUB