SimulationCore2/Equipments/MudSystem/Kick_Migration.i90

# 1 "/mnt/c/Projects/VSIM/SimulationCore2/Equipments/MudSystem/Kick_Migration.f90"
subroutine Kick_Migration    !  is called in subroutine CirculationCodeSelect
    
        Use GeoElements_FluidModule
        USE CMudPropertiesVariables
        USE MudSystemVARIABLES
use SimulationVariables !@@@
        use SimulationVariables
        use SimulationVariables !@
!use CTanks
!@use ConfigurationVariables, TripTankVolume2 => data%Equipments%DrillingWatch%TripTankVolume, TripTankDensity2 => TripTankDensity
        USE sROP_Other_Variables
        USE sROP_Variables
        USE CReservoirVariables
        use KickVARIABLESModule

   
   implicit none
   
   integer jelement, jmud, jsection,ielement,i,kickNumber
   integer jopelement,jopmud,jopsection,CuttingValue
   
        
!data%State%MUD(2)%Q= data%State%MPumps%Total_Pump_GPM
!data%State%MudSystem%StringFlowRate= data%State%MUD(2)%Q
!data%State%MudSystem%AnnulusFlowRate= data%State%MUD(2)%Q
!
!if (NewPipeFilling == 0) then
!    data%State%MudSystem%StringFlowRate= 0.
!    data%State%MudSystem%AnnulusFlowRate= 0.
!endif
        
!StringFlowRateFinal= data%State%MudSystem%StringFlowRate
!AnnulusFlowRateFinal= data%State%MudSystem%AnnulusFlowRate
        
        
        
!write(*,*) 'data%State%MUD(2)%Q=====' , data%State%MUD(2)%Q
!write(*,*) 'Kick Migration,NewInfluxNumber:' , NewInfluxNumber
            
   
   
!FirstSetKickMigration
!write(*,*) 'NewInfluxNumber=' , NewInfluxNumber
DO KickNumber= data%State%MudSystem%NewInfluxNumber-KickVARIABLES%NoGasPocket+1 , data%State%MudSystem%NewInfluxNumber
!write(*,*) 'KickNumber=' , KickNumber
    if (KickVARIABLES%KickFlux .AND. NOT(KickVARIABLES%KickOffBottom) .and. KickNumber == data%State%MudSystem%NewInfluxNumber) cycle
    if ( KickNumber == data%State%MudSystem%Ann_MudOrKick%Last() ) cycle ! when the last element in Annulus is kick, Migration is not called
!write(*,*) 'Migration will be done for,KickNumber=' ,KickNumber

!=================== Bottom Hole ENTRANCE(due to Kick) ===================
!KickDx= (AutoMigrationRate/60.)*DeltaT_Mudline    !3600 (ft/min)= 6 ft     set in start up
    
    
    data%State%MudSystem%Op_KickLoc= 0
    data%State%MudSystem%Ann_KickLoc= 0
    data%State%MudSystem%ChokeLine_KickLoc= 0
        
    do i = 1, data%State%MudSystem%Op_MudOrKick%Length ()
        if (data%State%MudSystem%Op_MudOrKick%Array(i) == KickNumber) then
            data%State%MudSystem%Op_KickLoc = i
            exit
        endif
    end do
        
    do i = 1, data%State%MudSystem%Ann_MudOrKick%Length ()
        if (data%State%MudSystem%Ann_MudOrKick%Array(i) == KickNumber) then
            data%State%MudSystem%Ann_KickLoc = i
            exit
        endif
    end do  
    
    do i = 1, data%State%MudSystem%ChokeLine_MudOrKick%Length ()
        if (data%State%MudSystem%ChokeLine_MudOrKick%Array(i) == KickNumber) then
            data%State%MudSystem%ChokeLine_KickLoc = i
            exit
        endif
    end do      
        
!write(*,*) 'Op_KickLoc=' , Op_KickLoc
!write(*,*) 'Ann_KickLoc=' , Ann_KickLoc
!!write(*,*) 'ChokeLine_KickLoc=' , ChokeLine_KickLoc
!
!
!write(*,*) 'Op_MudOrKick%Length ()=' , Op_MudOrKick%Length ()
!
!
        
        
        
        
!============================== foreheade kick be mate reside bashad *3 ==============================
            
if (data%State%MudSystem%Op_KickLoc == data%State%MudSystem%Op_MudOrKick%Length () .and. data%State%MudSystem%Ann_KickLoc==0 ) then
!write(*,*) '****3'
     
     data%State%MudSystem%iLoc= 2
     
     data%State%MudSystem%KickDv= data%State%MudSystem%Area_OpSectionFt(data%State%MudSystem%Op_Mud_Forehead_section%Array(data%State%MudSystem%Op_KickLoc)) * data%State%MudSystem%KickDx * 7.48051948d0        ! ft^3  to gal

 
        data%State%MudSystem%MinKickDv= min( data%State%MudSystem%KickDv,data%State%MudSystem%Ann_MudDischarged_Volume%Array (1), data%State%MudSystem%Op_MudDischarged_Volume%Last () )
        
        data%State%MudSystem%NewDensity= data%State%MudSystem%Ann_Density%Array (1)
        data%State%MudSystem%NewVolume= data%State%MudSystem%MinKickDv  
        
      if ( data%State%MudSystem%MinKickDv == data%State%MudSystem%KickDv ) then    !eleman bala sari baghi mimund, paeeni(kick) ham baghi mimund
        
                                data%State%MudSystem%Ann_MudDischarged_Volume%Array (1)= data%State%MudSystem%Ann_MudDischarged_Volume%Array (1) - data%State%MudSystem%MinKickDv
                    
                                call data%State%MudSystem%Ann_Density%AddToFirst (data%State%MudSystem%Op_Density%Last())
                                call data%State%MudSystem%Ann_MudDischarged_Volume%AddToFirst (data%State%MudSystem%MinKickDv)
                                call data%State%MudSystem%Ann_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Xstart_PipeSection(data%State%F_Counts%StringIntervalCounts+1))
                                call data%State%MudSystem%Ann_Mud_Forehead_section%AddToFirst (data%State%F_Counts%StringIntervalCounts+1)
                                call data%State%MudSystem%Ann_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Xstart_PipeSection(data%State%F_Counts%StringIntervalCounts+1))
                                call data%State%MudSystem%Ann_Mud_Backhead_section%AddToFirst (data%State%F_Counts%StringIntervalCounts+1)
                                call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
                                call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0) 
                                call data%State%MudSystem%Ann_MudOrKick%AddToFirst (KickNumber)
                                call data%State%MudSystem%Ann_CuttingMud%AddToFirst (0)
            
                                data%State%MudSystem%Op_MudDischarged_Volume%Array (data%State%MudSystem%Op_KickLoc)= data%State%MudSystem%Op_MudDischarged_Volume%Array (data%State%MudSystem%Op_KickLoc) - data%State%MudSystem%MinKickDv
            
! backheade kick zire mate bashad
             if (data%State%MudSystem%Op_KickLoc > 1) then
!if ( Op_Density%Array (Op_KickLoc-1) /= data%State%MudSystem%NewDensity ) then
              
                        if ( ABS(data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then
          
          
                            data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)
                            data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)
            
                            call data%State%MudSystem%Op_Density%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewDensity)
                            call data%State%MudSystem%Op_MudDischarged_Volume%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewVolume)
                            call data%State%MudSystem%Op_Mud_Forehead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                            call data%State%MudSystem%Op_Mud_Forehead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                            call data%State%MudSystem%Op_Mud_Backhead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                            call data%State%MudSystem%Op_Mud_Backhead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                            call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)
                            call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)
                            call data%State%MudSystem%Op_MudOrKick%AddTo (data%State%MudSystem%Op_KickLoc,0)
        
            
                        else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity
          
                            data%State%MudSystem%Op_Density%Array(data%State%MudSystem%Op_KickLoc-1)= (data%State%MudSystem%Op_Density%Array(data%State%MudSystem%Op_KickLoc-1)*data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)+data%State%MudSystem%NewDensity*data%State%MudSystem%NewVolume)/(data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)+data%State%MudSystem%NewVolume)
                            data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)= data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1) + data%State%MudSystem%NewVolume
            
                        endif  
             else       !if Op_KickLoc == 1     (*****Migration Start*****)  *3-1===============================
!write(*,*) '****3-1'
                 

                        call data%State%MudSystem%Op_Density%AddToFirst (data%State%MudSystem%NewDensity)
                        call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)
                        call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                
                        call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
                        call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)
                        call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
                        call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
                        call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
                        call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)
                
             endif                                
                                
                      
            
     elseif ( data%State%MudSystem%MinKickDv == data%State%MudSystem%Ann_MudDischarged_Volume%Array (1) ) then  ! eleman bala sari baghi nemimund

                                data%State%MudSystem%Ann_Density%Array(1)= data%State%MudSystem%Op_Density%Last()
                                data%State%MudSystem%Ann_MudOrKick%Array(1)= KickNumber
            
                                data%State%MudSystem%Op_MudDischarged_Volume%Array (data%State%MudSystem%Op_KickLoc)= data%State%MudSystem%Op_MudDischarged_Volume%Array (data%State%MudSystem%Op_KickLoc) - data%State%MudSystem%MinKickDv
            
! backheade kick zire mate bashad
                if (data%State%MudSystem%Op_KickLoc > 1) then
                                
!if ( Op_Density%Array (Op_KickLoc-1) /= data%State%MudSystem%NewDensity ) then
                                    
                        if ( ABS(data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then
          
          
                            data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)
                            data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)
            
                            call data%State%MudSystem%Op_Density%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewDensity)
                            call data%State%MudSystem%Op_MudDischarged_Volume%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewVolume)
                            call data%State%MudSystem%Op_Mud_Forehead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                            call data%State%MudSystem%Op_Mud_Forehead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                            call data%State%MudSystem%Op_Mud_Backhead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                            call data%State%MudSystem%Op_Mud_Backhead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                            call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)
                            call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)
                            call data%State%MudSystem%Op_MudOrKick%AddTo (data%State%MudSystem%Op_KickLoc,0)
        
            
                        else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity
          
                            data%State%MudSystem%Op_Density%Array(data%State%MudSystem%Op_KickLoc-1)= (data%State%MudSystem%Op_Density%Array(data%State%MudSystem%Op_KickLoc-1)*data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)+data%State%MudSystem%NewDensity*data%State%MudSystem%NewVolume)/(data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)+data%State%MudSystem%NewVolume)
                            data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)= data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1) + data%State%MudSystem%NewVolume
            
                        endif             
            
                else       !if Op_KickLoc == 1     (*****Migration Start*****)  *3-2===============================
!write(*,*) '****3-2'
                    

                        call data%State%MudSystem%Op_Density%AddToFirst (data%State%MudSystem%NewDensity)
                        call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)
                        call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                
                        call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
                        call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)
                        call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
                        call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
                        call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
                        call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)
                
             endif             
            
            
!
     elseif ( data%State%MudSystem%MinKickDv == data%State%MudSystem%Op_MudDischarged_Volume%Last () ) then  ! eleman balaee baghi mimund, kick hazf mishod
         
                    data%State%MudSystem%Ann_MudDischarged_Volume%Array (1)= data%State%MudSystem%Ann_MudDischarged_Volume%Array (1) - data%State%MudSystem%MinKickDv     
            
                    call data%State%MudSystem%Ann_Density%AddToFirst (data%State%MudSystem%Op_Density%Last())
                    call data%State%MudSystem%Ann_MudDischarged_Volume%AddToFirst (data%State%MudSystem%MinKickDv)
                    call data%State%MudSystem%Ann_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Xstart_PipeSection(data%State%F_Counts%StringIntervalCounts+1))
                    call data%State%MudSystem%Ann_Mud_Forehead_section%AddToFirst (data%State%F_Counts%StringIntervalCounts+1)
                    call data%State%MudSystem%Ann_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Xstart_PipeSection(data%State%F_Counts%StringIntervalCounts+1))
                    call data%State%MudSystem%Ann_Mud_Backhead_section%AddToFirst (data%State%F_Counts%StringIntervalCounts+1)
                    call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
                    call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0) 
                    call data%State%MudSystem%Ann_MudOrKick%AddToFirst (KickNumber)  
                    call data%State%MudSystem%Ann_CuttingMud%AddToFirst (0)
         
                                
                    data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)
                    data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)
                                
                    call data%State%MudSystem%Op_MudDischarged_Volume%Remove (data%State%MudSystem%Op_KickLoc)
                    call data%State%MudSystem%Op_Mud_Backhead_X%Remove (data%State%MudSystem%Op_KickLoc)
                    call data%State%MudSystem%Op_Mud_Backhead_section%Remove (data%State%MudSystem%Op_KickLoc)
                    call data%State%MudSystem%Op_Mud_Forehead_X%Remove (data%State%MudSystem%Op_KickLoc)
                    call data%State%MudSystem%Op_Mud_Forehead_section%Remove (data%State%MudSystem%Op_KickLoc)
                    call data%State%MudSystem%Op_Density%Remove (data%State%MudSystem%Op_KickLoc)
                    call data%State%MudSystem%Op_RemainedVolume_in_LastSection%Remove (data%State%MudSystem%Op_KickLoc)
                    call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%Remove (data%State%MudSystem%Op_KickLoc)   
                    call data%State%MudSystem%Op_MudOrKick%Remove (data%State%MudSystem%Op_KickLoc)   
                                
                                
! backheade kick zire mate bashad
                if (data%State%MudSystem%Op_KickLoc > 1) then
!if ( Op_Density%Array (Op_KickLoc-1) /= data%State%MudSystem%NewDensity ) then
                                    
                    if ( ABS(data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then
          
        
            
                        call data%State%MudSystem%Op_Density%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewDensity)
                        call data%State%MudSystem%Op_MudDischarged_Volume%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewVolume)
                        call data%State%MudSystem%Op_Mud_Forehead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                        call data%State%MudSystem%Op_Mud_Forehead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                        call data%State%MudSystem%Op_Mud_Backhead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                        call data%State%MudSystem%Op_Mud_Backhead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                        call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)
                        call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)
                        call data%State%MudSystem%Op_MudOrKick%AddTo (data%State%MudSystem%Op_KickLoc,0)
        
            
                    else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity
          
                        data%State%MudSystem%Op_Density%Array(data%State%MudSystem%Op_KickLoc-1)= (data%State%MudSystem%Op_Density%Array(data%State%MudSystem%Op_KickLoc-1)*data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)+data%State%MudSystem%NewDensity*data%State%MudSystem%NewVolume)/(data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)+data%State%MudSystem%NewVolume)
                        data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)= data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1) + data%State%MudSystem%NewVolume
            
                    endif   
                            
             else       !if Op_KickLoc == 1     (*****Migration Start*****)  *3-3===============================
!write(*,*) '****3-3'

                    call data%State%MudSystem%Op_Density%AddToFirst (data%State%MudSystem%NewDensity)
                    call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)
                    call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                
                    call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
                    call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)
                    call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
                    call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
                    call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
                    call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)
                
             endif   
                            
                            
                            
            
     endif
     
         
 endif      
 
!========================================================================================

 
!============================== foreheade kick be mate reside bashad *3 with pump ==============================
            
! if (Op_KickLoc == Op_MudOrKick%Length () .and. Ann_KickLoc==0 .and. data%State%MudSystem%AnnulusFlowRate /= 0.0 ) then
!     write(*,*) '****3 with pump'
!
!     KickMigration_2SideBit= .true.
!     !iloc= 2
!
!     !KickDv= Area_OpSectionFt(Op_Mud_Forehead_section%Array(Op_KickLoc)) * KickDx * 7.48051948        ! ft^3  to gal
!
!!farz mikonam baraye in yek iteration kick az OP hazf nemishavad va hajme aan bishtar az pump flow ast
!
!            KickDv= ((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline)
!
!            call Ann_Density%AddToFirst (Kick_Density)
!            call Ann_MudDischarged_Volume%AddToFirst (KickDv)
!            call Ann_Mud_Forehead_X%AddToFirst (Xstart_PipeSection(data%State%F_Counts%StringIntervalCounts+1))
!            call Ann_Mud_Forehead_section%AddToFirst (F_StringIntervalCounts+1)
!            call Ann_Mud_Backhead_X%AddToFirst (Xstart_PipeSection(F_StringIntervalCounts+1))
!            call Ann_Mud_Backhead_section%AddToFirst (F_StringIntervalCounts+1)
!            call Ann_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
!            call Ann_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
!            call Ann_MudOrKick%AddToFirst (KickNumber)
!            call Ann_CuttingMud%AddToFirst (0)
!
!            Op_MudDischarged_Volume%Array (Op_KickLoc)= Op_MudDischarged_Volume%Array (Op_KickLoc) - MinKickDv
!
!        !
!        !if ( ((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline) >= KickDv ) then    ! sorate pump bishtar az kick bashad
!        !
!        !    KickDv= ((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline)
!
!
!
!            ! BackHead:
!            if ( Op_Density%Array (Op_KickLoc-1) /=data%State%MudSystem%St_Density%Last() ) then
!
!
!                Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)
!                Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)
!
!                call Op_Density%AddTo (Op_KickLocMudSystem%St_Density%Last())
!                call Op_MudDischarged_Volume%AddTo (Op_KickLoc,KickDv)
!                call Op_Mud_Forehead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)
!                call Op_Mud_Forehead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)
!                call Op_Mud_Backhead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)
!                call Op_Mud_Backhead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)
!                call Op_RemainedVolume_in_LastSection%AddTo (Op_KickLoc,0.0d0)
!                call Op_EmptyVolume_inBackheadLocation%AddTo (Op_KickLoc,0.0d0)
!                call Op_MudOrKick%AddTo (Op_KickLoc,0)
!
!
!            else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity
!
!                Op_MudDischarged_Volume%Array (Op_KickLoc-1)= Op_MudDischarged_Volume%Array (Op_KickLoc-1) + KickDv
!
!            endif
!
!
!
!
! endif
 
!========================================================================================
 
 
!=============================    tamame kick zire mate bashad  *1 ================================
 if ( data%State%MudSystem%Op_KickLoc>0 .and. data%State%MudSystem%Op_KickLoc < data%State%MudSystem%Op_MudOrKick%Length () ) then
!write(*,*) '****1'
!iloc= 1
     
     data%State%MudSystem%KickDv= data%State%MudSystem%Area_OpSectionFt(data%State%MudSystem%Op_Mud_Forehead_section%Array(data%State%MudSystem%Op_KickLoc)) * data%State%MudSystem%KickDx * 7.48051948d0        ! ft^3  to gal
     
     
        data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)
        data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)     
     
     if ( data%State%MudSystem%KickDv < data%State%MudSystem%Op_MudDischarged_Volume%Array (data%State%MudSystem%Op_KickLoc+1) ) then    !eleman bala sari baghi mimund
         
!write(*,*) 'cond 11111111111111'
     
            data%State%MudSystem%Op_MudDischarged_Volume%Array (data%State%MudSystem%Op_KickLoc+1)= data%State%MudSystem%Op_MudDischarged_Volume%Array (data%State%MudSystem%Op_KickLoc+1) - data%State%MudSystem%KickDv
        
            data%State%MudSystem%NewDensity= data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc+1)
            data%State%MudSystem%NewVolume= data%State%MudSystem%KickDv   
            
     else   !KickDv > Op_MudDischarged_Volume%Array (imudKick+1) eleman baghi nemimund
         
! write(*,*) 'cond 22222222222222222'
         
         
            data%State%MudSystem%KickDv= data%State%MudSystem%Op_MudDischarged_Volume%Array (data%State%MudSystem%Op_KickLoc+1)
        
            data%State%MudSystem%NewVolume= data%State%MudSystem%KickDv
            data%State%MudSystem%NewDensity= data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc+1)     
     
   
            
            
            call data%State%MudSystem%Op_MudDischarged_Volume%Remove (data%State%MudSystem%Op_KickLoc+1)
            call data%State%MudSystem%Op_Mud_Backhead_X%Remove (data%State%MudSystem%Op_KickLoc+1)
            call data%State%MudSystem%Op_Mud_Backhead_section%Remove (data%State%MudSystem%Op_KickLoc+1)
            call data%State%MudSystem%Op_Mud_Forehead_X%Remove (data%State%MudSystem%Op_KickLoc+1)
            call data%State%MudSystem%Op_Mud_Forehead_section%Remove (data%State%MudSystem%Op_KickLoc+1)
            call data%State%MudSystem%Op_Density%Remove (data%State%MudSystem%Op_KickLoc+1)
            call data%State%MudSystem%Op_RemainedVolume_in_LastSection%Remove (data%State%MudSystem%Op_KickLoc+1)
            call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%Remove (data%State%MudSystem%Op_KickLoc+1)   
            call data%State%MudSystem%Op_MudOrKick%Remove (data%State%MudSystem%Op_KickLoc+1)     
            
     endif
     
! backheade kick zire mate bashad
     if (data%State%MudSystem%Op_KickLoc > 1) then
!if ( Op_Density%Array (Op_KickLoc-1) /= data%State%MudSystem%NewDensity ) then
              
          if ( ABS(data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then
            

          
          
                call data%State%MudSystem%Op_Density%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewDensity)
                call data%State%MudSystem%Op_MudDischarged_Volume%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewVolume)
                call data%State%MudSystem%Op_Mud_Forehead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)                                
                call data%State%MudSystem%Op_Mud_Forehead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                call data%State%MudSystem%Op_Mud_Backhead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                call data%State%MudSystem%Op_Mud_Backhead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)
                call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)
                call data%State%MudSystem%Op_MudOrKick%AddTo (data%State%MudSystem%Op_KickLoc,0)
            
          else  !Op_Density%Array (Op_KickLoc-1) == data%State%MudSystem%NewDensity
          
                data%State%MudSystem%Op_Density%Array(data%State%MudSystem%Op_KickLoc-1)= (data%State%MudSystem%Op_Density%Array(data%State%MudSystem%Op_KickLoc-1)*data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)+data%State%MudSystem%NewDensity*data%State%MudSystem%NewVolume)/(data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)+data%State%MudSystem%NewVolume)
                data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)= data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1) + data%State%MudSystem%NewVolume
            
          endif
     else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-1===============================
!write(*,*) '****5-1'

                call data%State%MudSystem%Op_Density%AddToFirst (data%State%MudSystem%NewDensity)
                call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)
                call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                
                call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
                call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)
                call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
                call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
                call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
                call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)
                
     endif
     
     
 endif

!========================================================================================
 
!write(*,*) 'a) density and cutting:' , Ann_Density%Length() , Ann_CuttingMud%Length()
 
 
!===========================  tamame kick balaye mate bashad *2 ==================================
 
 if ( data%State%MudSystem%Ann_KickLoc > 0 .and.  data%State%MudSystem%Op_KickLoc==0 ) then
!write(*,*) '****2'
     
!iloc= 1
     
     data%State%MudSystem%KickDv= data%State%MudSystem%Area_PipeSectionFt(data%State%MudSystem%Ann_Mud_Forehead_section%Array(data%State%MudSystem%Ann_KickLoc)) * data%State%MudSystem%KickDx * 7.48051948d0        ! ft^3  to gal
     
     data%State%MudSystem%NewDensity= data%State%MudSystem%Ann_Density%Array (data%State%MudSystem%Ann_KickLoc+1)
     data%State%MudSystem%NewVolume= data%State%MudSystem%KickDv
     CuttingValue= data%State%MudSystem%Ann_CuttingMud%Array (data%State%MudSystem%Ann_KickLoc+1)
     
     if ( data%State%MudSystem%KickDv < data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc+1) ) then    !eleman bala sari baghi mimund
     
            data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc+1)= data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc+1) - data%State%MudSystem%KickDv
            
     else   !KickDv > Ann_MudDischarged_Volume%Array (imudKick+1) eleman baghi nemimund
         
            data%State%MudSystem%KickDv= data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc+1)  
            data%State%MudSystem%NewVolume= data%State%MudSystem%KickDv
     
            call data%State%MudSystem%Ann_MudDischarged_Volume%Remove (data%State%MudSystem%Ann_KickLoc+1)
            call data%State%MudSystem%Ann_Mud_Backhead_X%Remove (data%State%MudSystem%Ann_KickLoc+1)
            call data%State%MudSystem%Ann_Mud_Backhead_section%Remove (data%State%MudSystem%Ann_KickLoc+1)
            call data%State%MudSystem%Ann_Mud_Forehead_X%Remove (data%State%MudSystem%Ann_KickLoc+1)
            call data%State%MudSystem%Ann_Mud_Forehead_section%Remove (data%State%MudSystem%Ann_KickLoc+1)
            call data%State%MudSystem%Ann_Density%Remove (data%State%MudSystem%Ann_KickLoc+1)
            call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%Remove (data%State%MudSystem%Ann_KickLoc+1)
            call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%Remove (data%State%MudSystem%Ann_KickLoc+1) 
            call data%State%MudSystem%Ann_MudOrKick%Remove (data%State%MudSystem%Ann_KickLoc+1) 
            call data%State%MudSystem%Ann_CuttingMud%Remove (data%State%MudSystem%Ann_KickLoc+1) 
            
     endif

! backheade kick balaye mate bashad
     
     if (data%State%MudSystem%Ann_KickLoc > 1) then
!if ( Ann_Density%Array (Ann_KickLoc-1) /= data%State%MudSystem%NewDensity ) then
              
          if ( ABS(data%State%MudSystem%Ann_Density%Array (data%State%MudSystem%Ann_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then
    
              data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Ann_Mud_Backhead_X%Array (data%State%MudSystem%Ann_KickLoc)
              data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Ann_Mud_Backhead_section%Array (data%State%MudSystem%Ann_KickLoc)
          
          
                call data%State%MudSystem%Ann_Density%AddTo (data%State%MudSystem%Ann_KickLoc,data%State%MudSystem%NewDensity)
                call data%State%MudSystem%Ann_MudDischarged_Volume%AddTo (data%State%MudSystem%Ann_KickLoc,data%State%MudSystem%NewVolume)
                call data%State%MudSystem%Ann_Mud_Forehead_X%AddTo (data%State%MudSystem%Ann_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                call data%State%MudSystem%Ann_Mud_Forehead_section%AddTo (data%State%MudSystem%Ann_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                call data%State%MudSystem%Ann_Mud_Backhead_X%AddTo (data%State%MudSystem%Ann_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                call data%State%MudSystem%Ann_Mud_Backhead_section%AddTo (data%State%MudSystem%Ann_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Ann_KickLoc,0.0d0)
                call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Ann_KickLoc,0.0d0)
                call data%State%MudSystem%Ann_MudOrKick%AddTo (data%State%MudSystem%Ann_KickLoc,0)
                call data%State%MudSystem%Ann_CuttingMud%AddTo (data%State%MudSystem%Ann_KickLoc,0)
            
          else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity

                data%State%MudSystem%Ann_Density%Array(data%State%MudSystem%Ann_KickLoc-1)= (data%State%MudSystem%Ann_Density%Array(data%State%MudSystem%Ann_KickLoc-1)*data%State%MudSystem%Ann_MudDischarged_Volume%Array(data%State%MudSystem%Ann_KickLoc-1)+data%State%MudSystem%NewDensity*data%State%MudSystem%NewVolume)/(data%State%MudSystem%Ann_MudDischarged_Volume%Array(data%State%MudSystem%Ann_KickLoc-1)+data%State%MudSystem%NewVolume)
                data%State%MudSystem%Ann_MudDischarged_Volume%Array(data%State%MudSystem%Ann_KickLoc-1)= data%State%MudSystem%Ann_MudDischarged_Volume%Array(data%State%MudSystem%Ann_KickLoc-1) + data%State%MudSystem%NewVolume                
                
            
          endif
          
    else       !if Ann_KickLoc == 1   *6 ===============================
!write(*,*) '****6'
         
            data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Ann_Mud_Backhead_X%Array (data%State%MudSystem%Ann_KickLoc)
            data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Ann_Mud_Backhead_section%Array (data%State%MudSystem%Ann_KickLoc)
          
          
            call data%State%MudSystem%Ann_Density%AddToFirst (data%State%MudSystem%NewDensity)
            call data%State%MudSystem%Ann_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)
            call data%State%MudSystem%Ann_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                
            call data%State%MudSystem%Ann_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
            call data%State%MudSystem%Ann_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)
            call data%State%MudSystem%Ann_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
            call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
            call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
            call data%State%MudSystem%Ann_MudOrKick%AddToFirst (0)
            call data%State%MudSystem%Ann_CuttingMud%AddToFirst (CuttingValue)
                
    endif          
     
 endif     
     
!========================================================================================

 
 
 
 

            
!============================== kick 2 tarafe mate bashad *4 ==============================
 
 if ( data%State%MudSystem%Ann_KickLoc > 0 .and.  data%State%MudSystem%Op_KickLoc > 0 ) then 
!write(*,*) '****4'
 
     data%State%MudSystem%iLoc= 2
 
     data%State%MudSystem%KickDv= data%State%MudSystem%Area_PipeSectionFt(data%State%MudSystem%Ann_Mud_Forehead_section%Array(data%State%MudSystem%Ann_KickLoc)) * data%State%MudSystem%KickDx * 7.48051948d0        ! ft^3  to gal
     
     
        data%State%MudSystem%MinKickDv= min( data%State%MudSystem%KickDv,data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc+1), data%State%MudSystem%Op_MudDischarged_Volume%Last () )            ! Ann_KickLoc+1=2   Op_MudDischarged_Volume%Last ()=kick

        data%State%MudSystem%NewDensity= data%State%MudSystem%Ann_Density%Array (data%State%MudSystem%Ann_KickLoc+1)
        data%State%MudSystem%NewVolume= data%State%MudSystem%MinKickDv  
     
      if ( data%State%MudSystem%MinKickDv == data%State%MudSystem%KickDv ) then    !eleman bala sari baghi mimund, paeeni(kick) dar OP ham baghi mimund
!write(*,*) '****4----1'

     
                        data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc+1)= data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc+1) - data%State%MudSystem%MinKickDv
            
                        data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc)= data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc) + data%State%MudSystem%MinKickDv       ! Ann_KickLoc= 1
            
                        data%State%MudSystem%Op_MudDischarged_Volume%Array (data%State%MudSystem%Op_KickLoc)= data%State%MudSystem%Op_MudDischarged_Volume%Array (data%State%MudSystem%Op_KickLoc) - data%State%MudSystem%MinKickDv       ! Op_KickLoc= last
            
            
! backheade kick zire mate bashad
                        if ( data%State%MudSystem%Op_KickLoc>1) then
                            
!if ( Op_Density%Array (Op_KickLoc-1) /= data%State%MudSystem%NewDensity ) then
          
                                if ( ABS(data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then
                    
                                data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)
                                data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)
            
                                call data%State%MudSystem%Op_Density%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewDensity)
                                call data%State%MudSystem%Op_MudDischarged_Volume%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewVolume)
                                call data%State%MudSystem%Op_Mud_Forehead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                                call data%State%MudSystem%Op_Mud_Forehead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                                call data%State%MudSystem%Op_Mud_Backhead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                                call data%State%MudSystem%Op_Mud_Backhead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                                call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)
                                call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)
                                call data%State%MudSystem%Op_MudOrKick%AddTo (data%State%MudSystem%Op_KickLoc,0)
        
            
                            else  ! merge

                                data%State%MudSystem%Op_Density%Array(data%State%MudSystem%Op_KickLoc-1)= (data%State%MudSystem%Op_Density%Array(data%State%MudSystem%Op_KickLoc-1)*data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)+data%State%MudSystem%NewDensity*data%State%MudSystem%NewVolume)/(data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)+data%State%MudSystem%NewVolume)
                                data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)= data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1) + data%State%MudSystem%NewVolume

                            endif 
                            
                        else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================
!write(*,*) '****5-2'
         
                                data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)
                                data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)
          
          
                                call data%State%MudSystem%Op_Density%AddToFirst (data%State%MudSystem%NewDensity)
                                call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)
                                call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                
                                call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
                                call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)
                                call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
                                call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
                                call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
                                call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)
                
                        endif
                            
                       
           
      elseif ( data%State%MudSystem%MinKickDv == data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc+1) ) then  ! eleman bala sari baghi nemimund
!write(*,*) '****4----2'
            
                        call data%State%MudSystem%Ann_MudDischarged_Volume%Remove (data%State%MudSystem%Ann_KickLoc+1)
                        call data%State%MudSystem%Ann_Mud_Backhead_X%Remove (data%State%MudSystem%Ann_KickLoc+1)
                        call data%State%MudSystem%Ann_Mud_Backhead_section%Remove (data%State%MudSystem%Ann_KickLoc+1)
                        call data%State%MudSystem%Ann_Mud_Forehead_X%Remove (data%State%MudSystem%Ann_KickLoc+1)
                        call data%State%MudSystem%Ann_Mud_Forehead_section%Remove (data%State%MudSystem%Ann_KickLoc+1)
                        call data%State%MudSystem%Ann_Density%Remove (data%State%MudSystem%Ann_KickLoc+1)
                        call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%Remove (data%State%MudSystem%Ann_KickLoc+1)
                        call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%Remove (data%State%MudSystem%Ann_KickLoc+1) 
                        call data%State%MudSystem%Ann_MudOrKick%Remove (data%State%MudSystem%Ann_KickLoc+1) 
                        call data%State%MudSystem%Ann_CuttingMud%Remove (data%State%MudSystem%Ann_KickLoc+1) 
            
                        data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc)= data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc) + data%State%MudSystem%MinKickDv       ! Ann_KickLoc= 1
            
                        data%State%MudSystem%Op_MudDischarged_Volume%Array (data%State%MudSystem%Op_KickLoc)= data%State%MudSystem%Op_MudDischarged_Volume%Array (data%State%MudSystem%Op_KickLoc) - data%State%MudSystem%MinKickDv       ! Op_KickLoc= last
            
! backheade kick zire mate bashad
                        if (data%State%MudSystem%Op_KickLoc > 1) then
                            
!if ( Op_Density%Array (Op_KickLoc-1) /= data%State%MudSystem%NewDensity ) then
                                
                            if ( ABS(data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then
          
          
                                data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)
                                data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)
            
                                call data%State%MudSystem%Op_Density%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewDensity)
                                call data%State%MudSystem%Op_MudDischarged_Volume%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewVolume)
                                call data%State%MudSystem%Op_Mud_Forehead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                                call data%State%MudSystem%Op_Mud_Forehead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                                call data%State%MudSystem%Op_Mud_Backhead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                                call data%State%MudSystem%Op_Mud_Backhead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                                call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)
                                call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)
                                call data%State%MudSystem%Op_MudOrKick%AddTo (data%State%MudSystem%Op_KickLoc,0)
        
            
                            else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity
                                data%State%MudSystem%Op_Density%Array(data%State%MudSystem%Op_KickLoc-1)= (data%State%MudSystem%Op_Density%Array(data%State%MudSystem%Op_KickLoc-1)*data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)+data%State%MudSystem%NewDensity*data%State%MudSystem%NewVolume)/(data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)+data%State%MudSystem%NewVolume)
                                data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)= data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1) + data%State%MudSystem%NewVolume
            
                            endif  
                            
                        else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================
         
                                data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)
                                data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)
          
          
                                call data%State%MudSystem%Op_Density%AddToFirst (data%State%MudSystem%NewDensity)
                                call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)
                                call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                
                                call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
                                call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)
                                call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
                                call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
                                call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
                                call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)
                
                        endif                            
                            
                        
     elseif ( data%State%MudSystem%MinKickDv == data%State%MudSystem%Op_MudDischarged_Volume%Last () ) then  ! eleman balaee baghi mimund, kick az OP kamel kharej mishod
!write(*,*) '****4----3'
     
            
            
                        data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc+1)= data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc+1) - data%State%MudSystem%MinKickDv
            
                        data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc)= data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc) + data%State%MudSystem%MinKickDv       ! Ann_KickLoc= 1

          
          
                    data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)
                    data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)   
                                
                                
                        call data%State%MudSystem%Op_MudDischarged_Volume%Remove (data%State%MudSystem%Op_KickLoc)        ! Op_KickLoc= last
                        call data%State%MudSystem%Op_Mud_Backhead_X%Remove (data%State%MudSystem%Op_KickLoc)
                        call data%State%MudSystem%Op_Mud_Backhead_section%Remove (data%State%MudSystem%Op_KickLoc)
                        call data%State%MudSystem%Op_Mud_Forehead_X%Remove (data%State%MudSystem%Op_KickLoc)
                        call data%State%MudSystem%Op_Mud_Forehead_section%Remove (data%State%MudSystem%Op_KickLoc)
                        call data%State%MudSystem%Op_Density%Remove (data%State%MudSystem%Op_KickLoc)
                        call data%State%MudSystem%Op_RemainedVolume_in_LastSection%Remove (data%State%MudSystem%Op_KickLoc)
                        call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%Remove (data%State%MudSystem%Op_KickLoc)   
                        call data%State%MudSystem%Op_MudOrKick%Remove (data%State%MudSystem%Op_KickLoc)    
          
! backheade kick zire mate bashad
                        if (data%State%MudSystem%Op_KickLoc > 1) then
                            
!if ( Op_Density%Array (Op_KickLoc-1) /= data%State%MudSystem%NewDensity ) then
                            
                            if ( ABS(data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then
          

                                call data%State%MudSystem%Op_Density%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewDensity)
                                call data%State%MudSystem%Op_MudDischarged_Volume%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewVolume)
                                call data%State%MudSystem%Op_Mud_Forehead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                                call data%State%MudSystem%Op_Mud_Forehead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                                call data%State%MudSystem%Op_Mud_Backhead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)
                                call data%State%MudSystem%Op_Mud_Backhead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)
                                call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)
                                call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)
                                call data%State%MudSystem%Op_MudOrKick%AddTo (data%State%MudSystem%Op_KickLoc,0)
   
                            else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity
                                data%State%MudSystem%Op_Density%Array(data%State%MudSystem%Op_KickLoc-1)= (data%State%MudSystem%Op_Density%Array(data%State%MudSystem%Op_KickLoc-1)*data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)+data%State%MudSystem%NewDensity*data%State%MudSystem%NewVolume)/(data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)+data%State%MudSystem%NewVolume)
                                data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1)= data%State%MudSystem%Op_MudDischarged_Volume%Array(data%State%MudSystem%Op_KickLoc-1) + data%State%MudSystem%NewVolume
            
                            endif    
                            
                        else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================

                                call data%State%MudSystem%Op_Density%AddToFirst (data%State%MudSystem%NewDensity)
                                call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)
                                call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                
                                call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
                                call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)
                                call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)
                                call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
                                call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
                                call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)
                
                        endif                            
                                
            data%State%MudSystem%iLoc= 1        ! ok
                        
     endif

     
 endif
 
!========================================================================================
          
          
          
!============================== kick 2 tarafe mate bashad *4 with pump ==============================

!
!if ( Ann_KickLoc > 0 .and.  Op_KickLoc > 0 .and. data%State%MudSystem%AnnulusFlowRate /= 0.0 ) then
!    write(*,*) '****4 with pump'
!
!    KickMigration_2SideBit= .true.
!
!    !iloc= 2
!
!   KickDv= Area_PipeSectionFt(Ann_Mud_Forehead_section%Array(Ann_KickLoc)) * KickDx * 7.48051948d0        ! ft^3  to gal
!   !MinKickDv= min( KickDv,Ann_MudDischarged_Volume%Array (Ann_KickLoc+1), Op_MudDischarged_Volume%Last () )            ! Ann_KickLoc+1=2   Op_MudDischarged_Volume%Last ()=kick
!
!
!       !MinKickDv= min( KickDv,Ann_MudDischarged_Volume%Array (Ann_KickLoc+1), Op_MudDischarged_Volume%Last () )            ! Ann_KickLoc+1=2   Op_MudDischarged_Volume%Last ()=kick
!       !
!       !data%State%MudSystem%NewDensity= Ann_Density%Array (Ann_KickLoc+1)
!       !NewVolume= MinKickDv
!
!
!       if ( ((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline) >= KickDv ) then    ! sorate pump bishtar az kick bashad---tu in halat aslan kari be elemane balaiye kick tuye Ann nadarim
!           !WRITE(*,*) '*****sorate pump bishtar az kick*******'
!           MinKickDv= ((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline)  ! dar asl maxKickDv ast
!
!
!
!
!
!
!
!
!               if ( Op_MudDischarged_Volume%Last () > MinKickDv ) then    !eleman paeeni(kick) dar OP  baghi mimund
!
!                   Ann_MudDischarged_Volume%Array (Ann_KickLoc)= Ann_MudDischarged_Volume%Array (Ann_KickLoc) + MinKickDv       ! Ann_KickLoc= 1
!
!                   Op_MudDischarged_Volume%Array (Op_KickLoc)= Op_MudDischarged_Volume%Array (Op_KickLoc) - MinKickDv       ! Op_KickLoc= last
!
!                   Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)
!                   Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)
!                              ! backheade kick zire mate bashad
!                               if ( Op_KickLoc>1) then
!
!                                           if ( Op_Density%Array (Op_KickLoc-1) /=data%State%MudSystem%St_Density%Last() ) then
!
!
!                                               Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)
!                                               Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)
!
!                                               call Op_Density%AddTo (Op_KickLocMudSystem%St_Density%Last())
!                                               call Op_MudDischarged_Volume%AddTo (Op_KickLoc,MinKickDv)
!                                               call Op_Mud_Forehead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)
!                                               call Op_Mud_Forehead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)
!                                               call Op_Mud_Backhead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)
!                                               call Op_Mud_Backhead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)
!                                               call Op_RemainedVolume_in_LastSection%AddTo (Op_KickLoc,0.0d0)
!                                               call Op_EmptyVolume_inBackheadLocation%AddTo (Op_KickLoc,0.0d0)
!                                               call Op_MudOrKick%AddTo (Op_KickLoc,0)
!
!
!                                           else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity
!
!                                               Op_MudDischarged_Volume%Array (Op_KickLoc-1)= Op_MudDischarged_Volume%Array (Op_KickLoc-1) + NewVolume
!
!                                           endif
!
!                               else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================
!                   write(*,*) '****5-2 with pump'
!
!
!                                       !Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)
!                                       !Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)
!
!
!                                       call Op_Density%AddToFirst data%State%MudSystem%St_Density%Last())
!                                       call Op_MudDischarged_Volume%AddToFirst (MinKickDv)
!                                       call Op_Mud_Forehead_X%AddToFirst (Old_KickBackHead_X)
!                                       call Op_Mud_Forehead_section%AddToFirst (Old_KickBackHead_Section)
!                                       call Op_Mud_Backhead_X%AddToFirst (Old_KickBackHead_X)
!                                       call Op_Mud_Backhead_section%AddToFirst (Old_KickBackHead_Section)
!                                       call Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
!                                       call Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
!                                       call Op_MudOrKick%AddToFirst (0)
!
!                               endif
!
!               elseif ( Op_MudDischarged_Volume%Last () <= MinKickDv ) then    !eleman paeeni(kick) dar OP  baghi nemimund yani kick az OP kamel kharej mishod
!
!                   MinKickDv= Op_MudDischarged_Volume%Last ()
!
!
!               write(*,*) '****4----3 with pump a'
!
!
!                       Ann_MudDischarged_Volume%Array (Ann_KickLoc+1)= Ann_MudDischarged_Volume%Array (Ann_KickLoc+1) + ((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline)-MinKickDv
!
!                       Ann_MudDischarged_Volume%Array (Ann_KickLoc)= Ann_MudDischarged_Volume%Array (Ann_KickLoc) + MinKickDv       ! Ann_KickLoc= 1
!
!                       call Op_MudDischarged_Volume%Remove (Op_KickLoc)        ! Op_KickLoc= last
!                       call Op_Mud_Backhead_X%Remove (Op_KickLoc)
!                       call Op_Mud_Backhead_section%Remove (Op_KickLoc)
!                       call Op_Mud_Forehead_X%Remove (Op_KickLoc)
!                       call Op_Mud_Forehead_section%Remove (Op_KickLoc)
!                       call Op_Density%Remove (Op_KickLoc)
!                       call Op_RemainedVolume_in_LastSection%Remove (Op_KickLoc)
!                       call Op_EmptyVolume_inBackheadLocation%Remove (Op_KickLoc)
!                       call Op_MudOrKick%Remove (Op_KickLoc)
!
!
!                                    ! backheade kick zire mate bashad
!                               if (Op_KickLoc > 1) then
!
!                                   if ( Op_Density%Array (Op_KickLoc-1) /=data%State%MudSystem%St_Density%Last() ) then
!
!
!                                       !Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)
!                                       !Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)
!
!                                       call Op_Density%AddTo (Op_KickLocMudSystem%St_Density%Last())
!                                       call Op_MudDischarged_Volume%AddTo (Op_KickLoc,MinKickDv)
!                                       call Op_Mud_Forehead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)
!                                       call Op_Mud_Forehead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)
!                                       call Op_Mud_Backhead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)
!                                       call Op_Mud_Backhead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)
!                                       call Op_RemainedVolume_in_LastSection%AddTo (Op_KickLoc,0.0d0)
!                                       call Op_EmptyVolume_inBackheadLocation%AddTo (Op_KickLoc,0.0d0)
!                                       call Op_MudOrKick%AddTo (Op_KickLoc,0)
!
!
!
!                                   else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity
!
!
!                                       Op_MudDischarged_Volume%Array (Op_KickLoc-1)= Op_MudDischarged_Volume%Array (Op_KickLoc-1) + MinKickDv
!
!                                   endif
!
!                               else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================
!
!
!                                       Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)
!                                       Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)
!
!
!                                       call Op_Density%AddToFirst data%State%MudSystem%St_Density%Last())
!                                       call Op_MudDischarged_Volume%AddToFirst (MinKickDv)
!                                       call Op_Mud_Forehead_X%AddToFirst (Old_KickBackHead_X)
!                                       call Op_Mud_Forehead_section%AddToFirst (Old_KickBackHead_Section)
!                                       call Op_Mud_Backhead_X%AddToFirst (Old_KickBackHead_X)
!                                       call Op_Mud_Backhead_section%AddToFirst (Old_KickBackHead_Section)
!                                       call Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
!                                       call Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
!                                       call Op_MudOrKick%AddToFirst (0)
!
!                               endif
!
!
!               endif       ! ende 2 halat ke kick tuye Op baghi bemune ya namune- dar halati ke  ((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline) >= KickDv )   ! sorate pump bishtar az kick bashad
!
!
!
!
!       else    !if(  ((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline) < KickDv ) then        ! sorate pump kamtar az kick bashad
!           !WRITE(*,*) '*****sorate pump kamtar az kick*******'
!
!
!
!
!           MinKickDv= min( KickDv,Ann_MudDischarged_Volume%Array (Ann_KickLoc+1), Op_MudDischarged_Volume%Last () )            ! Ann_KickLoc+1=2   Op_MudDischarged_Volume%Last ()=kick
!
!
!
!        !write(*,*) 'MinKickDv=' , MinKickDv
!
!
!         if ( MinKickDv == KickDv ) then    !eleman bala sari baghi mimund, paeeni(kick) dar OP ham baghi mimund
!        !write(*,*) '****4----1 with pump'
!        !write(*,*) data%State%MudSystem%St_Density%Last()=' ,data%State%MudSystem%St_Density%Last()
!        !write(*,*) '((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline)=' , ((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline)
!        !write(*,*) 'Ann_Density%Array(Ann_KickLoc+1)=' , Ann_Density%Array(Ann_KickLoc+1)
!        !write(*,*) '(MinKickDv-((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline))=' , (MinKickDv-((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline))
!
!
!                       data%State%MudSystem%NewDensity= data%State%MudSystem%St_Density%Last()*((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline) + Ann_Density%Array(Ann_KickLoc+1)*(MinKickDv-((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline))) &
!                                       / (((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline) + (MinKickDv-((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline)))
!                       NewVolume= MinKickDv
!
!
!                       Ann_MudDischarged_Volume%Array (Ann_KickLoc+1)= Ann_MudDischarged_Volume%Array (Ann_KickLoc+1) - (MinKickDv-((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline))
!
!                       Ann_MudDischarged_Volume%Array (Ann_KickLoc)= Ann_MudDischarged_Volume%Array (Ann_KickLoc) + MinKickDv       ! Ann_KickLoc= 1
!
!                       Op_MudDischarged_Volume%Array (Op_KickLoc)= Op_MudDischarged_Volume%Array (Op_KickLoc) - MinKickDv       ! Op_KickLoc= last
!
!
!                           ! backheade kick zire mate bashad
!                       if ( Op_KickLoc>1) then
!
!
!
!                           if ( ABS(Op_Density%Array (Op_KickLoc-1) - data%State%MudSystem%NewDensity) > DensityMixTol) then ! .OR. (Op_MudDischarged_Volume%Array (Op_KickLoc-1)>42.) ) then
!
!
!
!                               Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)
!                               Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)
!
!                               call Op_Density%AddTo (Op_KickLoc,data%State%MudSystem%NewDensity)
!                               call Op_MudDischarged_Volume%AddTo (Op_KickLoc,NewVolume)
!                               call Op_Mud_Forehead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)
!                               call Op_Mud_Forehead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)
!                               call Op_Mud_Backhead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)
!                               call Op_Mud_Backhead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)
!                               call Op_RemainedVolume_in_LastSection%AddTo (Op_KickLoc,0.0d0)
!                               call Op_EmptyVolume_inBackheadLocation%AddTo (Op_KickLoc,0.0d0)
!                               call Op_MudOrKick%AddTo (Op_KickLoc,0)
!
!
!                           else  !Merge Condition
!
!                               Op_MudDischarged_Volume%Array (Op_KickLoc-1)= Op_MudDischarged_Volume%Array (Op_KickLoc-1) + NewVolume
!                               Op_Density%Array (Op_KickLoc-1)= (Op_MudDischarged_Volume%Array (Op_KickLoc-1)*Op_Density%Array (Op_KickLoc-1)+NewVolume*data%State%MudSystem%NewDensity) / &
!                                                                   (Op_MudDischarged_Volume%Array (Op_KickLoc-1)+NewVolume)
!
!
!                           endif
!
!                       else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================
!       write(*,*) '****5-2 with pump'
!
!                               Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)
!                               Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)
!
!
!                               call Op_Density%AddToFirst (data%State%MudSystem%NewDensity)
!                               call Op_MudDischarged_Volume%AddToFirst (NewVolume)
!                               call Op_Mud_Forehead_X%AddToFirst (Old_KickBackHead_X)
!                               call Op_Mud_Forehead_section%AddToFirst (Old_KickBackHead_Section)
!                               call Op_Mud_Backhead_X%AddToFirst (Old_KickBackHead_X)
!                               call Op_Mud_Backhead_section%AddToFirst (Old_KickBackHead_Section)
!                               call Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
!                               call Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
!                               call Op_MudOrKick%AddToFirst (0)
!
!                       endif
!
!
!
!       elseif ( MinKickDv == Ann_MudDischarged_Volume%Array (Ann_KickLoc+1) ) then  ! eleman bala sari baghi nemimund
!       write(*,*) '****4----2 with pump'
!
!                       data%State%MudSystem%NewDensity= data%State%MudSystem%St_Density%Last()*((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline) + Ann_Density%Array(Ann_KickLoc+1)*(MinKickDv-((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline))) &
!                                       / (((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline) + Ann_MudDischarged_Volume%Array (Ann_KickLoc+1))
!                       NewVolume= MinKickDv
!
!                       call RemoveAnnulusMudArrays(Ann_KickLoc+1)
!
!                       Ann_MudDischarged_Volume%Array (Ann_KickLoc)= Ann_MudDischarged_Volume%Array (Ann_KickLoc) + MinKickDv       ! Ann_KickLoc= 1
!
!                       Op_MudDischarged_Volume%Array (Op_KickLoc)= Op_MudDischarged_Volume%Array (Op_KickLoc) - MinKickDv       ! Op_KickLoc= last
!
!                           ! backheade kick zire mate bashad
!                       if (Op_KickLoc > 1) then
!
!                           if ( ABS(Op_Density%Array (Op_KickLoc-1) - data%State%MudSystem%NewDensity) > DensityMixTol) then ! .OR. (Op_MudDischarged_Volume%Array (Op_KickLoc-1)>42.) ) then
!
!                               !
!                               Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)
!                               Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)
!
!                               call Op_Density%AddTo (Op_KickLoc,data%State%MudSystem%NewDensity)
!                               call Op_MudDischarged_Volume%AddTo (Op_KickLoc,NewVolume)
!                               call Op_Mud_Forehead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)
!                               call Op_Mud_Forehead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)
!                               call Op_Mud_Backhead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)
!                               call Op_Mud_Backhead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)
!                               call Op_RemainedVolume_in_LastSection%AddTo (Op_KickLoc,0.0d0)
!                               call Op_EmptyVolume_inBackheadLocation%AddTo (Op_KickLoc,0.0d0)
!                               call Op_MudOrKick%AddTo (Op_KickLoc,0)
!
!
!                           else  !Merge Condition
!
!                               Op_MudDischarged_Volume%Array (Op_KickLoc-1)= Op_MudDischarged_Volume%Array (Op_KickLoc-1) + NewVolume
!                               Op_Density%Array (Op_KickLoc-1)= (Op_MudDischarged_Volume%Array (Op_KickLoc-1)*Op_Density%Array (Op_KickLoc-1)+NewVolume*data%State%MudSystem%NewDensity) / &
!                                                                   (Op_MudDischarged_Volume%Array (Op_KickLoc-1)+NewVolume)
!
!
!
!                           endif
!
!                       else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================
!
!                               Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)
!                               Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)
!
!
!                               call Op_Density%AddToFirst (data%State%MudSystem%NewDensity)
!                               call Op_MudDischarged_Volume%AddToFirst (NewVolume)
!                               call Op_Mud_Forehead_X%AddToFirst (Old_KickBackHead_X)
!                               call Op_Mud_Forehead_section%AddToFirst (Old_KickBackHead_Section)
!                               call Op_Mud_Backhead_X%AddToFirst (Old_KickBackHead_X)
!                               call Op_Mud_Backhead_section%AddToFirst (Old_KickBackHead_Section)
!                               call Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
!                               call Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
!                               call Op_MudOrKick%AddToFirst (0)
!
!                       endif
!
!
!        elseif ( MinKickDv == Op_MudDischarged_Volume%Last () ) then  ! eleman balaee baghi mimund, kick az OP kamel kharej mishod
!        write(*,*) '****4----3 with pump b'
!
!                       data%State%MudSystem%NewDensity=data%State%MudSystem%St_Density%Last()
!                       NewVolume= MinKickDv
!
!
!                       Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)
!                       Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)
!
!
!                       !Ann_MudDischarged_Volume%Array (Ann_KickLoc+1)= Ann_MudDischarged_Volume%Array (Ann_KickLoc+1) - MinKickDv farz kardam dast be elemane balaee nazanam
!
!                       Ann_MudDischarged_Volume%Array (Ann_KickLoc)= Ann_MudDischarged_Volume%Array (Ann_KickLoc) + MinKickDv       ! Ann_KickLoc= 1
!    !write(*,*) 'pointer 1'
!                       call Op_MudDischarged_Volume%Remove (Op_KickLoc)        ! Op_KickLoc= last
!                       call Op_Mud_Backhead_X%Remove (Op_KickLoc)
!                       call Op_Mud_Backhead_section%Remove (Op_KickLoc)
!                       call Op_Mud_Forehead_X%Remove (Op_KickLoc)
!                       call Op_Mud_Forehead_section%Remove (Op_KickLoc)
!                       call Op_Density%Remove (Op_KickLoc)
!                       call Op_RemainedVolume_in_LastSection%Remove (Op_KickLoc)
!                       call Op_EmptyVolume_inBackheadLocation%Remove (Op_KickLoc)
!                       call Op_MudOrKick%Remove (Op_KickLoc)
!
!    !write(*,*) 'pointer 2'
!
!                            ! backheade kick zire mate bashad
!                       if (Op_KickLoc > 1) then
!
!                           if ( ABS(Op_Density%Array (Op_KickLoc-1) - data%State%MudSystem%NewDensity) > DensityMixTol) then ! .OR. (Op_MudDischarged_Volume%Array (Op_KickLoc-1)>42.) ) then
!    !write(*,*) 'pointer 3'
!
!
!
!
!                               call Op_Density%AddTo (Op_KickLoc,data%State%MudSystem%NewDensity)
!                               call Op_MudDischarged_Volume%AddTo (Op_KickLoc,NewVolume)
!                               call Op_Mud_Forehead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)
!                               call Op_Mud_Forehead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)
!                               call Op_Mud_Backhead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)
!                               call Op_Mud_Backhead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)
!                               call Op_RemainedVolume_in_LastSection%AddTo (Op_KickLoc,0.0d0)
!                               call Op_EmptyVolume_inBackheadLocation%AddTo (Op_KickLoc,0.0d0)
!                               call Op_MudOrKick%AddTo (Op_KickLoc,0)
!
!    !write(*,*) 'pointer 4'
!
!                           else  !Merge Condition
!
!                               Op_MudDischarged_Volume%Array (Op_KickLoc-1)= Op_MudDischarged_Volume%Array (Op_KickLoc-1) + NewVolume
!                               Op_Density%Array (Op_KickLoc-1)= (Op_MudDischarged_Volume%Array (Op_KickLoc-1)*Op_Density%Array (Op_KickLoc-1)+NewVolume*data%State%MudSystem%NewDensity) / &
!                                                                   (Op_MudDischarged_Volume%Array (Op_KickLoc-1)+NewVolume)
!
!                           endif
!
!                       else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================
!    !write(*,*) 'pointer 5'
!
!
!    !write(*,*) 'pointer 6'
!
!
!                               call Op_Density%AddToFirst (data%State%MudSystem%NewDensity)
!                               call Op_MudDischarged_Volume%AddToFirst (NewVolume)
!                               call Op_Mud_Forehead_X%AddToFirst (Old_KickBackHead_X)
!                               call Op_Mud_Forehead_section%AddToFirst (Old_KickBackHead_Section)
!                               call Op_Mud_Backhead_X%AddToFirst (Old_KickBackHead_X)
!                               call Op_Mud_Backhead_section%AddToFirst (Old_KickBackHead_Section)
!                               call Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
!                               call Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
!                               call Op_MudOrKick%AddToFirst (0)
!    !write(*,*) 'pointer 7'
!
!                       endif
!
!
!       endif
!
!
!
!       endif        !(  ((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline) < KickDv )        ! sorate pump kamtar az kick bashad
!
!
!
!
!    endif

!========================================================================================
   
ENDDO   ! KickNumber= 1, NewInfluxNumber
data%State%MudSystem%KickNumber = kickNumber        
        
!write(*,*)    'c)Ann_MudDischarged_Volume%Array(:)=' , sum(Ann_MudDischarged_Volume%Array(:))
        
        
             
    end subroutine Kick_Migration