mahmood19227
/
SimulationCore2
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
49 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 327688db8b
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '327688db8b'
${ noResults }
SimulationCore2/Equipments/MudSystem/Kick_Migration.i90

1180 lines
80 KiB
Raw Blame History 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/Equipments/MudSystem/Kick_Migration.f90"

  2. subroutine Kick_Migration    !  is called in subroutine CirculationCodeSelect

  3.     

  4.         Use GeoElements_FluidModule

  5.         USE CMudPropertiesVariables

  6.         USE MudSystemVARIABLES

  7. use SimulationVariables !@@@

  8.         use SimulationVariables

  9.         use SimulationVariables !@

  10. !use CTanks

  11. !@use ConfigurationVariables, TripTankVolume2 => data%Equipments%DrillingWatch%TripTankVolume, TripTankDensity2 => TripTankDensity

  12.         USE sROP_Other_Variables

  13.         USE sROP_Variables

  14.         USE CReservoirVariables

  15.         use KickVARIABLESModule

  16. 

  17.    

  18.    implicit none

  19.    

  20.    integer jelement, jmud, jsection,ielement,i,kickNumber

  21.    integer jopelement,jopmud,jopsection,CuttingValue

  22.    

  23.         

  24. !data%State%MUD(2)%Q= data%State%MPumps%Total_Pump_GPM

  25. !data%State%MudSystem%StringFlowRate= data%State%MUD(2)%Q

  26. !data%State%MudSystem%AnnulusFlowRate= data%State%MUD(2)%Q

  27. !

  28. !if (NewPipeFilling == 0) then

  29. !    data%State%MudSystem%StringFlowRate= 0.

  30. !    data%State%MudSystem%AnnulusFlowRate= 0.

  31. !endif

  32.         

  33. !StringFlowRateFinal= data%State%MudSystem%StringFlowRate

  34. !AnnulusFlowRateFinal= data%State%MudSystem%AnnulusFlowRate

  35.         

  36.         

  37.         

  38. !write(*,*) 'data%State%MUD(2)%Q=====' , data%State%MUD(2)%Q

  39. !write(*,*) 'Kick Migration,NewInfluxNumber:' , NewInfluxNumber

  40.             

  41.    

  42.    

  43. !FirstSetKickMigration

  44. !write(*,*) 'NewInfluxNumber=' , NewInfluxNumber

  45. DO KickNumber= data%State%MudSystem%NewInfluxNumber-KickVARIABLES%NoGasPocket+1 , data%State%MudSystem%NewInfluxNumber

  46. !write(*,*) 'KickNumber=' , KickNumber

  47.     if (KickVARIABLES%KickFlux .AND. NOT(KickVARIABLES%KickOffBottom) .and. KickNumber == data%State%MudSystem%NewInfluxNumber) cycle

  48.     if ( KickNumber == data%State%MudSystem%Ann_MudOrKick%Last() ) cycle ! when the last element in Annulus is kick, Migration is not called

  49. !write(*,*) 'Migration will be done for,KickNumber=' ,KickNumber

  50. 

  51. !=================== Bottom Hole ENTRANCE(due to Kick) ===================

  52. !KickDx= (AutoMigrationRate/60.)*DeltaT_Mudline    !3600 (ft/min)= 6 ft     set in start up

  53.     

  54.     

  55.     data%State%MudSystem%Op_KickLoc= 0

  56.     data%State%MudSystem%Ann_KickLoc= 0

  57.     data%State%MudSystem%ChokeLine_KickLoc= 0

  58.         

  59.     do i = 1, data%State%MudSystem%Op_MudOrKick%Length ()

  60.         if (data%State%MudSystem%Op_MudOrKick%Array(i) == KickNumber) then

  61.             data%State%MudSystem%Op_KickLoc = i

  62.             exit

  63.         endif

  64.     end do

  65.         

  66.     do i = 1, data%State%MudSystem%Ann_MudOrKick%Length ()

  67.         if (data%State%MudSystem%Ann_MudOrKick%Array(i) == KickNumber) then

  68.             data%State%MudSystem%Ann_KickLoc = i

  69.             exit

  70.         endif

  71.     end do  

  72.     

  73.     do i = 1, data%State%MudSystem%ChokeLine_MudOrKick%Length ()

  74.         if (data%State%MudSystem%ChokeLine_MudOrKick%Array(i) == KickNumber) then

  75.             data%State%MudSystem%ChokeLine_KickLoc = i

  76.             exit

  77.         endif

  78.     end do      

  79.         

  80. !write(*,*) 'Op_KickLoc=' , Op_KickLoc

  81. !write(*,*) 'Ann_KickLoc=' , Ann_KickLoc

  82. !!write(*,*) 'ChokeLine_KickLoc=' , ChokeLine_KickLoc

  83. !

  84. !

  85. !write(*,*) 'Op_MudOrKick%Length ()=' , Op_MudOrKick%Length ()

  86. !

  87. !

  88.         

  89.         

  90.         

  91.         

  92. !============================== foreheade kick be mate reside bashad *3 ==============================

  93.             

  94. if (data%State%MudSystem%Op_KickLoc == data%State%MudSystem%Op_MudOrKick%Length () .and. data%State%MudSystem%Ann_KickLoc==0 ) then

  95. !write(*,*) '****3'

  96.      

  97.      data%State%MudSystem%iLoc= 2

  98.      

  99.      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

  100. 

  101.  

  102.         data%State%MudSystem%MinKickDv= min( data%State%MudSystem%KickDv,data%State%MudSystem%Ann_MudDischarged_Volume%Array (1), data%State%MudSystem%Op_MudDischarged_Volume%Last () )

  103.         

  104.         data%State%MudSystem%NewDensity= data%State%MudSystem%Ann_Density%Array (1)

  105.         data%State%MudSystem%NewVolume= data%State%MudSystem%MinKickDv  

  106.         

  107.       if ( data%State%MudSystem%MinKickDv == data%State%MudSystem%KickDv ) then    !eleman bala sari baghi mimund, paeeni(kick) ham baghi mimund

  108.         

  109.                                 data%State%MudSystem%Ann_MudDischarged_Volume%Array (1)= data%State%MudSystem%Ann_MudDischarged_Volume%Array (1) - data%State%MudSystem%MinKickDv

  110.                     

  111.                                 call data%State%MudSystem%Ann_Density%AddToFirst (data%State%MudSystem%Op_Density%Last())

  112.                                 call data%State%MudSystem%Ann_MudDischarged_Volume%AddToFirst (data%State%MudSystem%MinKickDv)

  113.                                 call data%State%MudSystem%Ann_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Xstart_PipeSection(data%State%F_Counts%StringIntervalCounts+1))

  114.                                 call data%State%MudSystem%Ann_Mud_Forehead_section%AddToFirst (data%State%F_Counts%StringIntervalCounts+1)

  115.                                 call data%State%MudSystem%Ann_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Xstart_PipeSection(data%State%F_Counts%StringIntervalCounts+1))

  116.                                 call data%State%MudSystem%Ann_Mud_Backhead_section%AddToFirst (data%State%F_Counts%StringIntervalCounts+1)

  117.                                 call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  118.                                 call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0) 

  119.                                 call data%State%MudSystem%Ann_MudOrKick%AddToFirst (KickNumber)

  120.                                 call data%State%MudSystem%Ann_CuttingMud%AddToFirst (0)

  121.             

  122.                                 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

  123.             

  124. ! backheade kick zire mate bashad

  125.              if (data%State%MudSystem%Op_KickLoc > 1) then

  126. !if ( Op_Density%Array (Op_KickLoc-1) /= data%State%MudSystem%NewDensity ) then

  127.               

  128.                         if ( ABS(data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then

  129.           

  130.           

  131.                             data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)

  132.                             data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)

  133.             

  134.                             call data%State%MudSystem%Op_Density%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewDensity)

  135.                             call data%State%MudSystem%Op_MudDischarged_Volume%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewVolume)

  136.                             call data%State%MudSystem%Op_Mud_Forehead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  137.                             call data%State%MudSystem%Op_Mud_Forehead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  138.                             call data%State%MudSystem%Op_Mud_Backhead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  139.                             call data%State%MudSystem%Op_Mud_Backhead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  140.                             call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)

  141.                             call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)

  142.                             call data%State%MudSystem%Op_MudOrKick%AddTo (data%State%MudSystem%Op_KickLoc,0)

  143.         

  144.             

  145.                         else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity

  146.           

  147.                             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)

  148.                             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

  149.             

  150.                         endif  

  151.              else       !if Op_KickLoc == 1     (*****Migration Start*****)  *3-1===============================

  152. !write(*,*) '****3-1'

  153.                  

  154. 

  155.                         call data%State%MudSystem%Op_Density%AddToFirst (data%State%MudSystem%NewDensity)

  156.                         call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)

  157.                         call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                

  158.                         call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  159.                         call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)

  160.                         call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  161.                         call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  162.                         call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  163.                         call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)

  164.                 

  165.              endif                                

  166.                                 

  167.                       

  168.             

  169.      elseif ( data%State%MudSystem%MinKickDv == data%State%MudSystem%Ann_MudDischarged_Volume%Array (1) ) then  ! eleman bala sari baghi nemimund

  170. 

  171.                                 data%State%MudSystem%Ann_Density%Array(1)= data%State%MudSystem%Op_Density%Last()

  172.                                 data%State%MudSystem%Ann_MudOrKick%Array(1)= KickNumber

  173.             

  174.                                 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

  175.             

  176. ! backheade kick zire mate bashad

  177.                 if (data%State%MudSystem%Op_KickLoc > 1) then

  178.                                 

  179. !if ( Op_Density%Array (Op_KickLoc-1) /= data%State%MudSystem%NewDensity ) then

  180.                                     

  181.                         if ( ABS(data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then

  182.           

  183.           

  184.                             data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)

  185.                             data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)

  186.             

  187.                             call data%State%MudSystem%Op_Density%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewDensity)

  188.                             call data%State%MudSystem%Op_MudDischarged_Volume%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewVolume)

  189.                             call data%State%MudSystem%Op_Mud_Forehead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  190.                             call data%State%MudSystem%Op_Mud_Forehead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  191.                             call data%State%MudSystem%Op_Mud_Backhead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  192.                             call data%State%MudSystem%Op_Mud_Backhead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  193.                             call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)

  194.                             call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)

  195.                             call data%State%MudSystem%Op_MudOrKick%AddTo (data%State%MudSystem%Op_KickLoc,0)

  196.         

  197.             

  198.                         else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity

  199.           

  200.                             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)

  201.                             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

  202.             

  203.                         endif             

  204.             

  205.                 else       !if Op_KickLoc == 1     (*****Migration Start*****)  *3-2===============================

  206. !write(*,*) '****3-2'

  207.                     

  208. 

  209.                         call data%State%MudSystem%Op_Density%AddToFirst (data%State%MudSystem%NewDensity)

  210.                         call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)

  211.                         call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                

  212.                         call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  213.                         call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)

  214.                         call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  215.                         call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  216.                         call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  217.                         call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)

  218.                 

  219.              endif             

  220.             

  221.             

  222. !

  223.      elseif ( data%State%MudSystem%MinKickDv == data%State%MudSystem%Op_MudDischarged_Volume%Last () ) then  ! eleman balaee baghi mimund, kick hazf mishod

  224.          

  225.                     data%State%MudSystem%Ann_MudDischarged_Volume%Array (1)= data%State%MudSystem%Ann_MudDischarged_Volume%Array (1) - data%State%MudSystem%MinKickDv     

  226.             

  227.                     call data%State%MudSystem%Ann_Density%AddToFirst (data%State%MudSystem%Op_Density%Last())

  228.                     call data%State%MudSystem%Ann_MudDischarged_Volume%AddToFirst (data%State%MudSystem%MinKickDv)

  229.                     call data%State%MudSystem%Ann_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Xstart_PipeSection(data%State%F_Counts%StringIntervalCounts+1))

  230.                     call data%State%MudSystem%Ann_Mud_Forehead_section%AddToFirst (data%State%F_Counts%StringIntervalCounts+1)

  231.                     call data%State%MudSystem%Ann_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Xstart_PipeSection(data%State%F_Counts%StringIntervalCounts+1))

  232.                     call data%State%MudSystem%Ann_Mud_Backhead_section%AddToFirst (data%State%F_Counts%StringIntervalCounts+1)

  233.                     call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  234.                     call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0) 

  235.                     call data%State%MudSystem%Ann_MudOrKick%AddToFirst (KickNumber)  

  236.                     call data%State%MudSystem%Ann_CuttingMud%AddToFirst (0)

  237.          

  238.                                 

  239.                     data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)

  240.                     data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)

  241.                                 

  242.                     call data%State%MudSystem%Op_MudDischarged_Volume%Remove (data%State%MudSystem%Op_KickLoc)

  243.                     call data%State%MudSystem%Op_Mud_Backhead_X%Remove (data%State%MudSystem%Op_KickLoc)

  244.                     call data%State%MudSystem%Op_Mud_Backhead_section%Remove (data%State%MudSystem%Op_KickLoc)

  245.                     call data%State%MudSystem%Op_Mud_Forehead_X%Remove (data%State%MudSystem%Op_KickLoc)

  246.                     call data%State%MudSystem%Op_Mud_Forehead_section%Remove (data%State%MudSystem%Op_KickLoc)

  247.                     call data%State%MudSystem%Op_Density%Remove (data%State%MudSystem%Op_KickLoc)

  248.                     call data%State%MudSystem%Op_RemainedVolume_in_LastSection%Remove (data%State%MudSystem%Op_KickLoc)

  249.                     call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%Remove (data%State%MudSystem%Op_KickLoc)   

  250.                     call data%State%MudSystem%Op_MudOrKick%Remove (data%State%MudSystem%Op_KickLoc)   

  251.                                 

  252.                                 

  253. ! backheade kick zire mate bashad

  254.                 if (data%State%MudSystem%Op_KickLoc > 1) then

  255. !if ( Op_Density%Array (Op_KickLoc-1) /= data%State%MudSystem%NewDensity ) then

  256.                                     

  257.                     if ( ABS(data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then

  258.           

  259.         

  260.             

  261.                         call data%State%MudSystem%Op_Density%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewDensity)

  262.                         call data%State%MudSystem%Op_MudDischarged_Volume%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewVolume)

  263.                         call data%State%MudSystem%Op_Mud_Forehead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  264.                         call data%State%MudSystem%Op_Mud_Forehead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  265.                         call data%State%MudSystem%Op_Mud_Backhead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  266.                         call data%State%MudSystem%Op_Mud_Backhead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  267.                         call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)

  268.                         call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)

  269.                         call data%State%MudSystem%Op_MudOrKick%AddTo (data%State%MudSystem%Op_KickLoc,0)

  270.         

  271.             

  272.                     else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity

  273.           

  274.                         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)

  275.                         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

  276.             

  277.                     endif   

  278.                             

  279.              else       !if Op_KickLoc == 1     (*****Migration Start*****)  *3-3===============================

  280. !write(*,*) '****3-3'

  281. 

  282.                     call data%State%MudSystem%Op_Density%AddToFirst (data%State%MudSystem%NewDensity)

  283.                     call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)

  284.                     call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                

  285.                     call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  286.                     call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)

  287.                     call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  288.                     call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  289.                     call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  290.                     call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)

  291.                 

  292.              endif   

  293.                             

  294.                             

  295.                             

  296.             

  297.      endif

  298.      

  299.          

  300.  endif      

  301.  

  302. !========================================================================================

  303. 

  304.  

  305. !============================== foreheade kick be mate reside bashad *3 with pump ==============================

  306.             

  307. ! if (Op_KickLoc == Op_MudOrKick%Length () .and. Ann_KickLoc==0 .and. data%State%MudSystem%AnnulusFlowRate /= 0.0 ) then

  308. !     write(*,*) '****3 with pump'

  309. !

  310. !     KickMigration_2SideBit= .true.

  311. !     !iloc= 2

  312. !

  313. !     !KickDv= Area_OpSectionFt(Op_Mud_Forehead_section%Array(Op_KickLoc)) * KickDx * 7.48051948        ! ft^3  to gal

  314. !

  315. !!farz mikonam baraye in yek iteration kick az OP hazf nemishavad va hajme aan bishtar az pump flow ast

  316. !

  317. !            KickDv= ((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline)

  318. !

  319. !            call Ann_Density%AddToFirst (Kick_Density)

  320. !            call Ann_MudDischarged_Volume%AddToFirst (KickDv)

  321. !            call Ann_Mud_Forehead_X%AddToFirst (Xstart_PipeSection(data%State%F_Counts%StringIntervalCounts+1))

  322. !            call Ann_Mud_Forehead_section%AddToFirst (F_StringIntervalCounts+1)

  323. !            call Ann_Mud_Backhead_X%AddToFirst (Xstart_PipeSection(F_StringIntervalCounts+1))

  324. !            call Ann_Mud_Backhead_section%AddToFirst (F_StringIntervalCounts+1)

  325. !            call Ann_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  326. !            call Ann_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  327. !            call Ann_MudOrKick%AddToFirst (KickNumber)

  328. !            call Ann_CuttingMud%AddToFirst (0)

  329. !

  330. !            Op_MudDischarged_Volume%Array (Op_KickLoc)= Op_MudDischarged_Volume%Array (Op_KickLoc) - MinKickDv

  331. !

  332. !        !

  333. !        !if ( ((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline) >= KickDv ) then    ! sorate pump bishtar az kick bashad

  334. !        !

  335. !        !    KickDv= ((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline)

  336. !

  337. !

  338. !

  339. !            ! BackHead:

  340. !            if ( Op_Density%Array (Op_KickLoc-1) /=data%State%MudSystem%St_Density%Last() ) then

  341. !

  342. !

  343. !                Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)

  344. !                Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)

  345. !

  346. !                call Op_Density%AddTo (Op_KickLocMudSystem%St_Density%Last())

  347. !                call Op_MudDischarged_Volume%AddTo (Op_KickLoc,KickDv)

  348. !                call Op_Mud_Forehead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)

  349. !                call Op_Mud_Forehead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)

  350. !                call Op_Mud_Backhead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)

  351. !                call Op_Mud_Backhead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)

  352. !                call Op_RemainedVolume_in_LastSection%AddTo (Op_KickLoc,0.0d0)

  353. !                call Op_EmptyVolume_inBackheadLocation%AddTo (Op_KickLoc,0.0d0)

  354. !                call Op_MudOrKick%AddTo (Op_KickLoc,0)

  355. !

  356. !

  357. !            else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity

  358. !

  359. !                Op_MudDischarged_Volume%Array (Op_KickLoc-1)= Op_MudDischarged_Volume%Array (Op_KickLoc-1) + KickDv

  360. !

  361. !            endif

  362. !

  363. !

  364. !

  365. !

  366. ! endif

  367.  

  368. !========================================================================================

  369.  

  370.  

  371. !=============================    tamame kick zire mate bashad  *1 ================================

  372.  if ( data%State%MudSystem%Op_KickLoc>0 .and. data%State%MudSystem%Op_KickLoc < data%State%MudSystem%Op_MudOrKick%Length () ) then

  373. !write(*,*) '****1'

  374. !iloc= 1

  375.      

  376.      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

  377.      

  378.      

  379.         data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)

  380.         data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)     

  381.      

  382.      if ( data%State%MudSystem%KickDv < data%State%MudSystem%Op_MudDischarged_Volume%Array (data%State%MudSystem%Op_KickLoc+1) ) then    !eleman bala sari baghi mimund

  383.          

  384. !write(*,*) 'cond 11111111111111'

  385.      

  386.             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

  387.         

  388.             data%State%MudSystem%NewDensity= data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc+1)

  389.             data%State%MudSystem%NewVolume= data%State%MudSystem%KickDv   

  390.             

  391.      else   !KickDv > Op_MudDischarged_Volume%Array (imudKick+1) eleman baghi nemimund

  392.          

  393. ! write(*,*) 'cond 22222222222222222'

  394.          

  395.          

  396.             data%State%MudSystem%KickDv= data%State%MudSystem%Op_MudDischarged_Volume%Array (data%State%MudSystem%Op_KickLoc+1)

  397.         

  398.             data%State%MudSystem%NewVolume= data%State%MudSystem%KickDv

  399.             data%State%MudSystem%NewDensity= data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc+1)     

  400.      

  401.    

  402.             

  403.             

  404.             call data%State%MudSystem%Op_MudDischarged_Volume%Remove (data%State%MudSystem%Op_KickLoc+1)

  405.             call data%State%MudSystem%Op_Mud_Backhead_X%Remove (data%State%MudSystem%Op_KickLoc+1)

  406.             call data%State%MudSystem%Op_Mud_Backhead_section%Remove (data%State%MudSystem%Op_KickLoc+1)

  407.             call data%State%MudSystem%Op_Mud_Forehead_X%Remove (data%State%MudSystem%Op_KickLoc+1)

  408.             call data%State%MudSystem%Op_Mud_Forehead_section%Remove (data%State%MudSystem%Op_KickLoc+1)

  409.             call data%State%MudSystem%Op_Density%Remove (data%State%MudSystem%Op_KickLoc+1)

  410.             call data%State%MudSystem%Op_RemainedVolume_in_LastSection%Remove (data%State%MudSystem%Op_KickLoc+1)

  411.             call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%Remove (data%State%MudSystem%Op_KickLoc+1)   

  412.             call data%State%MudSystem%Op_MudOrKick%Remove (data%State%MudSystem%Op_KickLoc+1)     

  413.             

  414.      endif

  415.      

  416. ! backheade kick zire mate bashad

  417.      if (data%State%MudSystem%Op_KickLoc > 1) then

  418. !if ( Op_Density%Array (Op_KickLoc-1) /= data%State%MudSystem%NewDensity ) then

  419.               

  420.           if ( ABS(data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then

  421.             

  422. 

  423.           

  424.           

  425.                 call data%State%MudSystem%Op_Density%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewDensity)

  426.                 call data%State%MudSystem%Op_MudDischarged_Volume%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewVolume)

  427.                 call data%State%MudSystem%Op_Mud_Forehead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)                                

  428.                 call data%State%MudSystem%Op_Mud_Forehead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  429.                 call data%State%MudSystem%Op_Mud_Backhead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  430.                 call data%State%MudSystem%Op_Mud_Backhead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  431.                 call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)

  432.                 call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)

  433.                 call data%State%MudSystem%Op_MudOrKick%AddTo (data%State%MudSystem%Op_KickLoc,0)

  434.             

  435.           else  !Op_Density%Array (Op_KickLoc-1) == data%State%MudSystem%NewDensity

  436.           

  437.                 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)

  438.                 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

  439.             

  440.           endif

  441.      else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-1===============================

  442. !write(*,*) '****5-1'

  443. 

  444.                 call data%State%MudSystem%Op_Density%AddToFirst (data%State%MudSystem%NewDensity)

  445.                 call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)

  446.                 call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                

  447.                 call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  448.                 call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)

  449.                 call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  450.                 call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  451.                 call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  452.                 call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)

  453.                 

  454.      endif

  455.      

  456.      

  457.  endif

  458. 

  459. !========================================================================================

  460.  

  461. !write(*,*) 'a) density and cutting:' , Ann_Density%Length() , Ann_CuttingMud%Length()

  462.  

  463.  

  464. !===========================  tamame kick balaye mate bashad *2 ==================================

  465.  

  466.  if ( data%State%MudSystem%Ann_KickLoc > 0 .and.  data%State%MudSystem%Op_KickLoc==0 ) then

  467. !write(*,*) '****2'

  468.      

  469. !iloc= 1

  470.      

  471.      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

  472.      

  473.      data%State%MudSystem%NewDensity= data%State%MudSystem%Ann_Density%Array (data%State%MudSystem%Ann_KickLoc+1)

  474.      data%State%MudSystem%NewVolume= data%State%MudSystem%KickDv

  475.      CuttingValue= data%State%MudSystem%Ann_CuttingMud%Array (data%State%MudSystem%Ann_KickLoc+1)

  476.      

  477.      if ( data%State%MudSystem%KickDv < data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc+1) ) then    !eleman bala sari baghi mimund

  478.      

  479.             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

  480.             

  481.      else   !KickDv > Ann_MudDischarged_Volume%Array (imudKick+1) eleman baghi nemimund

  482.          

  483.             data%State%MudSystem%KickDv= data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc+1)  

  484.             data%State%MudSystem%NewVolume= data%State%MudSystem%KickDv

  485.      

  486.             call data%State%MudSystem%Ann_MudDischarged_Volume%Remove (data%State%MudSystem%Ann_KickLoc+1)

  487.             call data%State%MudSystem%Ann_Mud_Backhead_X%Remove (data%State%MudSystem%Ann_KickLoc+1)

  488.             call data%State%MudSystem%Ann_Mud_Backhead_section%Remove (data%State%MudSystem%Ann_KickLoc+1)

  489.             call data%State%MudSystem%Ann_Mud_Forehead_X%Remove (data%State%MudSystem%Ann_KickLoc+1)

  490.             call data%State%MudSystem%Ann_Mud_Forehead_section%Remove (data%State%MudSystem%Ann_KickLoc+1)

  491.             call data%State%MudSystem%Ann_Density%Remove (data%State%MudSystem%Ann_KickLoc+1)

  492.             call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%Remove (data%State%MudSystem%Ann_KickLoc+1)

  493.             call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%Remove (data%State%MudSystem%Ann_KickLoc+1) 

  494.             call data%State%MudSystem%Ann_MudOrKick%Remove (data%State%MudSystem%Ann_KickLoc+1) 

  495.             call data%State%MudSystem%Ann_CuttingMud%Remove (data%State%MudSystem%Ann_KickLoc+1) 

  496.             

  497.      endif

  498. 

  499. ! backheade kick balaye mate bashad

  500.      

  501.      if (data%State%MudSystem%Ann_KickLoc > 1) then

  502. !if ( Ann_Density%Array (Ann_KickLoc-1) /= data%State%MudSystem%NewDensity ) then

  503.               

  504.           if ( ABS(data%State%MudSystem%Ann_Density%Array (data%State%MudSystem%Ann_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then

  505.     

  506.               data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Ann_Mud_Backhead_X%Array (data%State%MudSystem%Ann_KickLoc)

  507.               data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Ann_Mud_Backhead_section%Array (data%State%MudSystem%Ann_KickLoc)

  508.           

  509.           

  510.                 call data%State%MudSystem%Ann_Density%AddTo (data%State%MudSystem%Ann_KickLoc,data%State%MudSystem%NewDensity)

  511.                 call data%State%MudSystem%Ann_MudDischarged_Volume%AddTo (data%State%MudSystem%Ann_KickLoc,data%State%MudSystem%NewVolume)

  512.                 call data%State%MudSystem%Ann_Mud_Forehead_X%AddTo (data%State%MudSystem%Ann_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  513.                 call data%State%MudSystem%Ann_Mud_Forehead_section%AddTo (data%State%MudSystem%Ann_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  514.                 call data%State%MudSystem%Ann_Mud_Backhead_X%AddTo (data%State%MudSystem%Ann_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  515.                 call data%State%MudSystem%Ann_Mud_Backhead_section%AddTo (data%State%MudSystem%Ann_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  516.                 call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Ann_KickLoc,0.0d0)

  517.                 call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Ann_KickLoc,0.0d0)

  518.                 call data%State%MudSystem%Ann_MudOrKick%AddTo (data%State%MudSystem%Ann_KickLoc,0)

  519.                 call data%State%MudSystem%Ann_CuttingMud%AddTo (data%State%MudSystem%Ann_KickLoc,0)

  520.             

  521.           else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity

  522. 

  523.                 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)

  524.                 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                

  525.                 

  526.             

  527.           endif

  528.           

  529.     else       !if Ann_KickLoc == 1   *6 ===============================

  530. !write(*,*) '****6'

  531.          

  532.             data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Ann_Mud_Backhead_X%Array (data%State%MudSystem%Ann_KickLoc)

  533.             data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Ann_Mud_Backhead_section%Array (data%State%MudSystem%Ann_KickLoc)

  534.           

  535.           

  536.             call data%State%MudSystem%Ann_Density%AddToFirst (data%State%MudSystem%NewDensity)

  537.             call data%State%MudSystem%Ann_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)

  538.             call data%State%MudSystem%Ann_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                

  539.             call data%State%MudSystem%Ann_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  540.             call data%State%MudSystem%Ann_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)

  541.             call data%State%MudSystem%Ann_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  542.             call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  543.             call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  544.             call data%State%MudSystem%Ann_MudOrKick%AddToFirst (0)

  545.             call data%State%MudSystem%Ann_CuttingMud%AddToFirst (CuttingValue)

  546.                 

  547.     endif          

  548.      

  549.  endif     

  550.      

  551. !========================================================================================

  552. 

  553.  

  554.  

  555.  

  556.  

  557. 

  558.             

  559. !============================== kick 2 tarafe mate bashad *4 ==============================

  560.  

  561.  if ( data%State%MudSystem%Ann_KickLoc > 0 .and.  data%State%MudSystem%Op_KickLoc > 0 ) then 

  562. !write(*,*) '****4'

  563.  

  564.      data%State%MudSystem%iLoc= 2

  565.  

  566.      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

  567.      

  568.      

  569.         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

  570. 

  571.         data%State%MudSystem%NewDensity= data%State%MudSystem%Ann_Density%Array (data%State%MudSystem%Ann_KickLoc+1)

  572.         data%State%MudSystem%NewVolume= data%State%MudSystem%MinKickDv  

  573.      

  574.       if ( data%State%MudSystem%MinKickDv == data%State%MudSystem%KickDv ) then    !eleman bala sari baghi mimund, paeeni(kick) dar OP ham baghi mimund

  575. !write(*,*) '****4----1'

  576. 

  577.      

  578.                         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

  579.             

  580.                         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

  581.             

  582.                         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

  583.             

  584.             

  585. ! backheade kick zire mate bashad

  586.                         if ( data%State%MudSystem%Op_KickLoc>1) then

  587.                             

  588. !if ( Op_Density%Array (Op_KickLoc-1) /= data%State%MudSystem%NewDensity ) then

  589.           

  590.                                 if ( ABS(data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then

  591.                     

  592.                                 data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)

  593.                                 data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)

  594.             

  595.                                 call data%State%MudSystem%Op_Density%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewDensity)

  596.                                 call data%State%MudSystem%Op_MudDischarged_Volume%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewVolume)

  597.                                 call data%State%MudSystem%Op_Mud_Forehead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  598.                                 call data%State%MudSystem%Op_Mud_Forehead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  599.                                 call data%State%MudSystem%Op_Mud_Backhead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  600.                                 call data%State%MudSystem%Op_Mud_Backhead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  601.                                 call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)

  602.                                 call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)

  603.                                 call data%State%MudSystem%Op_MudOrKick%AddTo (data%State%MudSystem%Op_KickLoc,0)

  604.         

  605.             

  606.                             else  ! merge

  607. 

  608.                                 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)

  609.                                 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

  610. 

  611.                             endif 

  612.                             

  613.                         else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================

  614. !write(*,*) '****5-2'

  615.          

  616.                                 data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)

  617.                                 data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)

  618.           

  619.           

  620.                                 call data%State%MudSystem%Op_Density%AddToFirst (data%State%MudSystem%NewDensity)

  621.                                 call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)

  622.                                 call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                

  623.                                 call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  624.                                 call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)

  625.                                 call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  626.                                 call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  627.                                 call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  628.                                 call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)

  629.                 

  630.                         endif

  631.                             

  632.                        

  633.            

  634.       elseif ( data%State%MudSystem%MinKickDv == data%State%MudSystem%Ann_MudDischarged_Volume%Array (data%State%MudSystem%Ann_KickLoc+1) ) then  ! eleman bala sari baghi nemimund

  635. !write(*,*) '****4----2'

  636.             

  637.                         call data%State%MudSystem%Ann_MudDischarged_Volume%Remove (data%State%MudSystem%Ann_KickLoc+1)

  638.                         call data%State%MudSystem%Ann_Mud_Backhead_X%Remove (data%State%MudSystem%Ann_KickLoc+1)

  639.                         call data%State%MudSystem%Ann_Mud_Backhead_section%Remove (data%State%MudSystem%Ann_KickLoc+1)

  640.                         call data%State%MudSystem%Ann_Mud_Forehead_X%Remove (data%State%MudSystem%Ann_KickLoc+1)

  641.                         call data%State%MudSystem%Ann_Mud_Forehead_section%Remove (data%State%MudSystem%Ann_KickLoc+1)

  642.                         call data%State%MudSystem%Ann_Density%Remove (data%State%MudSystem%Ann_KickLoc+1)

  643.                         call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%Remove (data%State%MudSystem%Ann_KickLoc+1)

  644.                         call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%Remove (data%State%MudSystem%Ann_KickLoc+1) 

  645.                         call data%State%MudSystem%Ann_MudOrKick%Remove (data%State%MudSystem%Ann_KickLoc+1) 

  646.                         call data%State%MudSystem%Ann_CuttingMud%Remove (data%State%MudSystem%Ann_KickLoc+1) 

  647.             

  648.                         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

  649.             

  650.                         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

  651.             

  652. ! backheade kick zire mate bashad

  653.                         if (data%State%MudSystem%Op_KickLoc > 1) then

  654.                             

  655. !if ( Op_Density%Array (Op_KickLoc-1) /= data%State%MudSystem%NewDensity ) then

  656.                                 

  657.                             if ( ABS(data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then

  658.           

  659.           

  660.                                 data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)

  661.                                 data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)

  662.             

  663.                                 call data%State%MudSystem%Op_Density%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewDensity)

  664.                                 call data%State%MudSystem%Op_MudDischarged_Volume%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewVolume)

  665.                                 call data%State%MudSystem%Op_Mud_Forehead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  666.                                 call data%State%MudSystem%Op_Mud_Forehead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  667.                                 call data%State%MudSystem%Op_Mud_Backhead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  668.                                 call data%State%MudSystem%Op_Mud_Backhead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  669.                                 call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)

  670.                                 call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)

  671.                                 call data%State%MudSystem%Op_MudOrKick%AddTo (data%State%MudSystem%Op_KickLoc,0)

  672.         

  673.             

  674.                             else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity

  675.                                 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)

  676.                                 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

  677.             

  678.                             endif  

  679.                             

  680.                         else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================

  681.          

  682.                                 data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)

  683.                                 data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)

  684.           

  685.           

  686.                                 call data%State%MudSystem%Op_Density%AddToFirst (data%State%MudSystem%NewDensity)

  687.                                 call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)

  688.                                 call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                

  689.                                 call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  690.                                 call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)

  691.                                 call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  692.                                 call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  693.                                 call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  694.                                 call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)

  695.                 

  696.                         endif                            

  697.                             

  698.                         

  699.      elseif ( data%State%MudSystem%MinKickDv == data%State%MudSystem%Op_MudDischarged_Volume%Last () ) then  ! eleman balaee baghi mimund, kick az OP kamel kharej mishod

  700. !write(*,*) '****4----3'

  701.      

  702.             

  703.             

  704.                         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

  705.             

  706.                         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

  707. 

  708.           

  709.           

  710.                     data%State%MudSystem%Old_KickBackHead_X= data%State%MudSystem%Op_Mud_Backhead_X%Array (data%State%MudSystem%Op_KickLoc)

  711.                     data%State%MudSystem%Old_KickBackHead_Section= data%State%MudSystem%Op_Mud_Backhead_section%Array (data%State%MudSystem%Op_KickLoc)   

  712.                                 

  713.                                 

  714.                         call data%State%MudSystem%Op_MudDischarged_Volume%Remove (data%State%MudSystem%Op_KickLoc)        ! Op_KickLoc= last

  715.                         call data%State%MudSystem%Op_Mud_Backhead_X%Remove (data%State%MudSystem%Op_KickLoc)

  716.                         call data%State%MudSystem%Op_Mud_Backhead_section%Remove (data%State%MudSystem%Op_KickLoc)

  717.                         call data%State%MudSystem%Op_Mud_Forehead_X%Remove (data%State%MudSystem%Op_KickLoc)

  718.                         call data%State%MudSystem%Op_Mud_Forehead_section%Remove (data%State%MudSystem%Op_KickLoc)

  719.                         call data%State%MudSystem%Op_Density%Remove (data%State%MudSystem%Op_KickLoc)

  720.                         call data%State%MudSystem%Op_RemainedVolume_in_LastSection%Remove (data%State%MudSystem%Op_KickLoc)

  721.                         call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%Remove (data%State%MudSystem%Op_KickLoc)   

  722.                         call data%State%MudSystem%Op_MudOrKick%Remove (data%State%MudSystem%Op_KickLoc)    

  723.           

  724. ! backheade kick zire mate bashad

  725.                         if (data%State%MudSystem%Op_KickLoc > 1) then

  726.                             

  727. !if ( Op_Density%Array (Op_KickLoc-1) /= data%State%MudSystem%NewDensity ) then

  728.                             

  729.                             if ( ABS(data%State%MudSystem%Op_Density%Array (data%State%MudSystem%Op_KickLoc-1) - data%State%MudSystem%NewDensity) >= data%State%MudSystem%DensityMixTol ) then

  730.           

  731. 

  732.                                 call data%State%MudSystem%Op_Density%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewDensity)

  733.                                 call data%State%MudSystem%Op_MudDischarged_Volume%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%NewVolume)

  734.                                 call data%State%MudSystem%Op_Mud_Forehead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  735.                                 call data%State%MudSystem%Op_Mud_Forehead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  736.                                 call data%State%MudSystem%Op_Mud_Backhead_X%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_X)

  737.                                 call data%State%MudSystem%Op_Mud_Backhead_section%AddTo (data%State%MudSystem%Op_KickLoc,data%State%MudSystem%Old_KickBackHead_Section)

  738.                                 call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)

  739.                                 call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddTo (data%State%MudSystem%Op_KickLoc,0.0d0)

  740.                                 call data%State%MudSystem%Op_MudOrKick%AddTo (data%State%MudSystem%Op_KickLoc,0)

  741.    

  742.                             else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity

  743.                                 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)

  744.                                 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

  745.             

  746.                             endif    

  747.                             

  748.                         else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================

  749. 

  750.                                 call data%State%MudSystem%Op_Density%AddToFirst (data%State%MudSystem%NewDensity)

  751.                                 call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (data%State%MudSystem%NewVolume)

  752.                                 call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)                                

  753.                                 call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  754.                                 call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Old_KickBackHead_X)

  755.                                 call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (data%State%MudSystem%Old_KickBackHead_Section)

  756.                                 call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  757.                                 call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  758.                                 call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)

  759.                 

  760.                         endif                            

  761.                                 

  762.             data%State%MudSystem%iLoc= 1        ! ok

  763.                         

  764.      endif

  765. 

  766.      

  767.  endif

  768.  

  769. !========================================================================================

  770.           

  771.           

  772.           

  773. !============================== kick 2 tarafe mate bashad *4 with pump ==============================

  774. 

  775. !

  776. !if ( Ann_KickLoc > 0 .and.  Op_KickLoc > 0 .and. data%State%MudSystem%AnnulusFlowRate /= 0.0 ) then

  777. !    write(*,*) '****4 with pump'

  778. !

  779. !    KickMigration_2SideBit= .true.

  780. !

  781. !    !iloc= 2

  782. !

  783. !   KickDv= Area_PipeSectionFt(Ann_Mud_Forehead_section%Array(Ann_KickLoc)) * KickDx * 7.48051948d0        ! ft^3  to gal

  784. !   !MinKickDv= min( KickDv,Ann_MudDischarged_Volume%Array (Ann_KickLoc+1), Op_MudDischarged_Volume%Last () )            ! Ann_KickLoc+1=2   Op_MudDischarged_Volume%Last ()=kick

  785. !

  786. !

  787. !       !MinKickDv= min( KickDv,Ann_MudDischarged_Volume%Array (Ann_KickLoc+1), Op_MudDischarged_Volume%Last () )            ! Ann_KickLoc+1=2   Op_MudDischarged_Volume%Last ()=kick

  788. !       !

  789. !       !data%State%MudSystem%NewDensity= Ann_Density%Array (Ann_KickLoc+1)

  790. !       !NewVolume= MinKickDv

  791. !

  792. !

  793. !       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

  794. !           !WRITE(*,*) '*****sorate pump bishtar az kick*******'

  795. !           MinKickDv= ((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline)  ! dar asl maxKickDv ast

  796. !

  797. !

  798. !

  799. !

  800. !

  801. !

  802. !

  803. !

  804. !               if ( Op_MudDischarged_Volume%Last () > MinKickDv ) then    !eleman paeeni(kick) dar OP  baghi mimund

  805. !

  806. !                   Ann_MudDischarged_Volume%Array (Ann_KickLoc)= Ann_MudDischarged_Volume%Array (Ann_KickLoc) + MinKickDv       ! Ann_KickLoc= 1

  807. !

  808. !                   Op_MudDischarged_Volume%Array (Op_KickLoc)= Op_MudDischarged_Volume%Array (Op_KickLoc) - MinKickDv       ! Op_KickLoc= last

  809. !

  810. !                   Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)

  811. !                   Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)

  812. !                              ! backheade kick zire mate bashad

  813. !                               if ( Op_KickLoc>1) then

  814. !

  815. !                                           if ( Op_Density%Array (Op_KickLoc-1) /=data%State%MudSystem%St_Density%Last() ) then

  816. !

  817. !

  818. !                                               Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)

  819. !                                               Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)

  820. !

  821. !                                               call Op_Density%AddTo (Op_KickLocMudSystem%St_Density%Last())

  822. !                                               call Op_MudDischarged_Volume%AddTo (Op_KickLoc,MinKickDv)

  823. !                                               call Op_Mud_Forehead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)

  824. !                                               call Op_Mud_Forehead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)

  825. !                                               call Op_Mud_Backhead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)

  826. !                                               call Op_Mud_Backhead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)

  827. !                                               call Op_RemainedVolume_in_LastSection%AddTo (Op_KickLoc,0.0d0)

  828. !                                               call Op_EmptyVolume_inBackheadLocation%AddTo (Op_KickLoc,0.0d0)

  829. !                                               call Op_MudOrKick%AddTo (Op_KickLoc,0)

  830. !

  831. !

  832. !                                           else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity

  833. !

  834. !                                               Op_MudDischarged_Volume%Array (Op_KickLoc-1)= Op_MudDischarged_Volume%Array (Op_KickLoc-1) + NewVolume

  835. !

  836. !                                           endif

  837. !

  838. !                               else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================

  839. !                   write(*,*) '****5-2 with pump'

  840. !

  841. !

  842. !                                       !Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)

  843. !                                       !Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)

  844. !

  845. !

  846. !                                       call Op_Density%AddToFirst data%State%MudSystem%St_Density%Last())

  847. !                                       call Op_MudDischarged_Volume%AddToFirst (MinKickDv)

  848. !                                       call Op_Mud_Forehead_X%AddToFirst (Old_KickBackHead_X)

  849. !                                       call Op_Mud_Forehead_section%AddToFirst (Old_KickBackHead_Section)

  850. !                                       call Op_Mud_Backhead_X%AddToFirst (Old_KickBackHead_X)

  851. !                                       call Op_Mud_Backhead_section%AddToFirst (Old_KickBackHead_Section)

  852. !                                       call Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  853. !                                       call Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  854. !                                       call Op_MudOrKick%AddToFirst (0)

  855. !

  856. !                               endif

  857. !

  858. !               elseif ( Op_MudDischarged_Volume%Last () <= MinKickDv ) then    !eleman paeeni(kick) dar OP  baghi nemimund yani kick az OP kamel kharej mishod

  859. !

  860. !                   MinKickDv= Op_MudDischarged_Volume%Last ()

  861. !

  862. !

  863. !               write(*,*) '****4----3 with pump a'

  864. !

  865. !

  866. !                       Ann_MudDischarged_Volume%Array (Ann_KickLoc+1)= Ann_MudDischarged_Volume%Array (Ann_KickLoc+1) + ((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline)-MinKickDv

  867. !

  868. !                       Ann_MudDischarged_Volume%Array (Ann_KickLoc)= Ann_MudDischarged_Volume%Array (Ann_KickLoc) + MinKickDv       ! Ann_KickLoc= 1

  869. !

  870. !                       call Op_MudDischarged_Volume%Remove (Op_KickLoc)        ! Op_KickLoc= last

  871. !                       call Op_Mud_Backhead_X%Remove (Op_KickLoc)

  872. !                       call Op_Mud_Backhead_section%Remove (Op_KickLoc)

  873. !                       call Op_Mud_Forehead_X%Remove (Op_KickLoc)

  874. !                       call Op_Mud_Forehead_section%Remove (Op_KickLoc)

  875. !                       call Op_Density%Remove (Op_KickLoc)

  876. !                       call Op_RemainedVolume_in_LastSection%Remove (Op_KickLoc)

  877. !                       call Op_EmptyVolume_inBackheadLocation%Remove (Op_KickLoc)

  878. !                       call Op_MudOrKick%Remove (Op_KickLoc)

  879. !

  880. !

  881. !                                    ! backheade kick zire mate bashad

  882. !                               if (Op_KickLoc > 1) then

  883. !

  884. !                                   if ( Op_Density%Array (Op_KickLoc-1) /=data%State%MudSystem%St_Density%Last() ) then

  885. !

  886. !

  887. !                                       !Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)

  888. !                                       !Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)

  889. !

  890. !                                       call Op_Density%AddTo (Op_KickLocMudSystem%St_Density%Last())

  891. !                                       call Op_MudDischarged_Volume%AddTo (Op_KickLoc,MinKickDv)

  892. !                                       call Op_Mud_Forehead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)

  893. !                                       call Op_Mud_Forehead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)

  894. !                                       call Op_Mud_Backhead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)

  895. !                                       call Op_Mud_Backhead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)

  896. !                                       call Op_RemainedVolume_in_LastSection%AddTo (Op_KickLoc,0.0d0)

  897. !                                       call Op_EmptyVolume_inBackheadLocation%AddTo (Op_KickLoc,0.0d0)

  898. !                                       call Op_MudOrKick%AddTo (Op_KickLoc,0)

  899. !

  900. !

  901. !

  902. !                                   else  !Op_Density%Array (imudKick-1) == data%State%MudSystem%NewDensity

  903. !

  904. !

  905. !                                       Op_MudDischarged_Volume%Array (Op_KickLoc-1)= Op_MudDischarged_Volume%Array (Op_KickLoc-1) + MinKickDv

  906. !

  907. !                                   endif

  908. !

  909. !                               else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================

  910. !

  911. !

  912. !                                       Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)

  913. !                                       Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)

  914. !

  915. !

  916. !                                       call Op_Density%AddToFirst data%State%MudSystem%St_Density%Last())

  917. !                                       call Op_MudDischarged_Volume%AddToFirst (MinKickDv)

  918. !                                       call Op_Mud_Forehead_X%AddToFirst (Old_KickBackHead_X)

  919. !                                       call Op_Mud_Forehead_section%AddToFirst (Old_KickBackHead_Section)

  920. !                                       call Op_Mud_Backhead_X%AddToFirst (Old_KickBackHead_X)

  921. !                                       call Op_Mud_Backhead_section%AddToFirst (Old_KickBackHead_Section)

  922. !                                       call Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  923. !                                       call Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  924. !                                       call Op_MudOrKick%AddToFirst (0)

  925. !

  926. !                               endif

  927. !

  928. !

  929. !               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

  930. !

  931. !

  932. !

  933. !

  934. !       else    !if(  ((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline) < KickDv ) then        ! sorate pump kamtar az kick bashad

  935. !           !WRITE(*,*) '*****sorate pump kamtar az kick*******'

  936. !

  937. !

  938. !

  939. !

  940. !           MinKickDv= min( KickDv,Ann_MudDischarged_Volume%Array (Ann_KickLoc+1), Op_MudDischarged_Volume%Last () )            ! Ann_KickLoc+1=2   Op_MudDischarged_Volume%Last ()=kick

  941. !

  942. !

  943. !

  944. !        !write(*,*) 'MinKickDv=' , MinKickDv

  945. !

  946. !

  947. !         if ( MinKickDv == KickDv ) then    !eleman bala sari baghi mimund, paeeni(kick) dar OP ham baghi mimund

  948. !        !write(*,*) '****4----1 with pump'

  949. !        !write(*,*) data%State%MudSystem%St_Density%Last()=' ,data%State%MudSystem%St_Density%Last()

  950. !        !write(*,*) '((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline)=' , ((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline)

  951. !        !write(*,*) 'Ann_Density%Array(Ann_KickLoc+1)=' , Ann_Density%Array(Ann_KickLoc+1)

  952. !        !write(*,*) '(MinKickDv-((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline))=' , (MinKickDv-((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline))

  953. !

  954. !

  955. !                       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))) &

  956. !                                       / (((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline) + (MinKickDv-((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline)))

  957. !                       NewVolume= MinKickDv

  958. !

  959. !

  960. !                       Ann_MudDischarged_Volume%Array (Ann_KickLoc+1)= Ann_MudDischarged_Volume%Array (Ann_KickLoc+1) - (MinKickDv-((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline))

  961. !

  962. !                       Ann_MudDischarged_Volume%Array (Ann_KickLoc)= Ann_MudDischarged_Volume%Array (Ann_KickLoc) + MinKickDv       ! Ann_KickLoc= 1

  963. !

  964. !                       Op_MudDischarged_Volume%Array (Op_KickLoc)= Op_MudDischarged_Volume%Array (Op_KickLoc) - MinKickDv       ! Op_KickLoc= last

  965. !

  966. !

  967. !                           ! backheade kick zire mate bashad

  968. !                       if ( Op_KickLoc>1) then

  969. !

  970. !

  971. !

  972. !                           if ( ABS(Op_Density%Array (Op_KickLoc-1) - data%State%MudSystem%NewDensity) > DensityMixTol) then ! .OR. (Op_MudDischarged_Volume%Array (Op_KickLoc-1)>42.) ) then

  973. !

  974. !

  975. !

  976. !                               Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)

  977. !                               Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)

  978. !

  979. !                               call Op_Density%AddTo (Op_KickLoc,data%State%MudSystem%NewDensity)

  980. !                               call Op_MudDischarged_Volume%AddTo (Op_KickLoc,NewVolume)

  981. !                               call Op_Mud_Forehead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)

  982. !                               call Op_Mud_Forehead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)

  983. !                               call Op_Mud_Backhead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)

  984. !                               call Op_Mud_Backhead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)

  985. !                               call Op_RemainedVolume_in_LastSection%AddTo (Op_KickLoc,0.0d0)

  986. !                               call Op_EmptyVolume_inBackheadLocation%AddTo (Op_KickLoc,0.0d0)

  987. !                               call Op_MudOrKick%AddTo (Op_KickLoc,0)

  988. !

  989. !

  990. !                           else  !Merge Condition

  991. !

  992. !                               Op_MudDischarged_Volume%Array (Op_KickLoc-1)= Op_MudDischarged_Volume%Array (Op_KickLoc-1) + NewVolume

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

  994. !                                                                   (Op_MudDischarged_Volume%Array (Op_KickLoc-1)+NewVolume)

  995. !

  996. !

  997. !                           endif

  998. !

  999. !                       else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================

  1000. !       write(*,*) '****5-2 with pump'

  1001. !

  1002. !                               Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)

  1003. !                               Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)

  1004. !

  1005. !

  1006. !                               call Op_Density%AddToFirst (data%State%MudSystem%NewDensity)

  1007. !                               call Op_MudDischarged_Volume%AddToFirst (NewVolume)

  1008. !                               call Op_Mud_Forehead_X%AddToFirst (Old_KickBackHead_X)

  1009. !                               call Op_Mud_Forehead_section%AddToFirst (Old_KickBackHead_Section)

  1010. !                               call Op_Mud_Backhead_X%AddToFirst (Old_KickBackHead_X)

  1011. !                               call Op_Mud_Backhead_section%AddToFirst (Old_KickBackHead_Section)

  1012. !                               call Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  1013. !                               call Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  1014. !                               call Op_MudOrKick%AddToFirst (0)

  1015. !

  1016. !                       endif

  1017. !

  1018. !

  1019. !

  1020. !       elseif ( MinKickDv == Ann_MudDischarged_Volume%Array (Ann_KickLoc+1) ) then  ! eleman bala sari baghi nemimund

  1021. !       write(*,*) '****4----2 with pump'

  1022. !

  1023. !                       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))) &

  1024. !                                       / (((data%State%MudSystem%AnnulusFlowRate/60.0d0)*DeltaT_Mudline) + Ann_MudDischarged_Volume%Array (Ann_KickLoc+1))

  1025. !                       NewVolume= MinKickDv

  1026. !

  1027. !                       call RemoveAnnulusMudArrays(Ann_KickLoc+1)

  1028. !

  1029. !                       Ann_MudDischarged_Volume%Array (Ann_KickLoc)= Ann_MudDischarged_Volume%Array (Ann_KickLoc) + MinKickDv       ! Ann_KickLoc= 1

  1030. !

  1031. !                       Op_MudDischarged_Volume%Array (Op_KickLoc)= Op_MudDischarged_Volume%Array (Op_KickLoc) - MinKickDv       ! Op_KickLoc= last

  1032. !

  1033. !                           ! backheade kick zire mate bashad

  1034. !                       if (Op_KickLoc > 1) then

  1035. !

  1036. !                           if ( ABS(Op_Density%Array (Op_KickLoc-1) - data%State%MudSystem%NewDensity) > DensityMixTol) then ! .OR. (Op_MudDischarged_Volume%Array (Op_KickLoc-1)>42.) ) then

  1037. !

  1038. !                               !

  1039. !                               Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)

  1040. !                               Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)

  1041. !

  1042. !                               call Op_Density%AddTo (Op_KickLoc,data%State%MudSystem%NewDensity)

  1043. !                               call Op_MudDischarged_Volume%AddTo (Op_KickLoc,NewVolume)

  1044. !                               call Op_Mud_Forehead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)

  1045. !                               call Op_Mud_Forehead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)

  1046. !                               call Op_Mud_Backhead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)

  1047. !                               call Op_Mud_Backhead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)

  1048. !                               call Op_RemainedVolume_in_LastSection%AddTo (Op_KickLoc,0.0d0)

  1049. !                               call Op_EmptyVolume_inBackheadLocation%AddTo (Op_KickLoc,0.0d0)

  1050. !                               call Op_MudOrKick%AddTo (Op_KickLoc,0)

  1051. !

  1052. !

  1053. !                           else  !Merge Condition

  1054. !

  1055. !                               Op_MudDischarged_Volume%Array (Op_KickLoc-1)= Op_MudDischarged_Volume%Array (Op_KickLoc-1) + NewVolume

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

  1057. !                                                                   (Op_MudDischarged_Volume%Array (Op_KickLoc-1)+NewVolume)

  1058. !

  1059. !

  1060. !

  1061. !                           endif

  1062. !

  1063. !                       else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================

  1064. !

  1065. !                               Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)

  1066. !                               Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)

  1067. !

  1068. !

  1069. !                               call Op_Density%AddToFirst (data%State%MudSystem%NewDensity)

  1070. !                               call Op_MudDischarged_Volume%AddToFirst (NewVolume)

  1071. !                               call Op_Mud_Forehead_X%AddToFirst (Old_KickBackHead_X)

  1072. !                               call Op_Mud_Forehead_section%AddToFirst (Old_KickBackHead_Section)

  1073. !                               call Op_Mud_Backhead_X%AddToFirst (Old_KickBackHead_X)

  1074. !                               call Op_Mud_Backhead_section%AddToFirst (Old_KickBackHead_Section)

  1075. !                               call Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  1076. !                               call Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  1077. !                               call Op_MudOrKick%AddToFirst (0)

  1078. !

  1079. !                       endif

  1080. !

  1081. !

  1082. !        elseif ( MinKickDv == Op_MudDischarged_Volume%Last () ) then  ! eleman balaee baghi mimund, kick az OP kamel kharej mishod

  1083. !        write(*,*) '****4----3 with pump b'

  1084. !

  1085. !                       data%State%MudSystem%NewDensity=data%State%MudSystem%St_Density%Last()

  1086. !                       NewVolume= MinKickDv

  1087. !

  1088. !

  1089. !                       Old_KickBackHead_X= Op_Mud_Backhead_X%Array (Op_KickLoc)

  1090. !                       Old_KickBackHead_Section= Op_Mud_Backhead_section%Array (Op_KickLoc)

  1091. !

  1092. !

  1093. !                       !Ann_MudDischarged_Volume%Array (Ann_KickLoc+1)= Ann_MudDischarged_Volume%Array (Ann_KickLoc+1) - MinKickDv farz kardam dast be elemane balaee nazanam

  1094. !

  1095. !                       Ann_MudDischarged_Volume%Array (Ann_KickLoc)= Ann_MudDischarged_Volume%Array (Ann_KickLoc) + MinKickDv       ! Ann_KickLoc= 1

  1096. !    !write(*,*) 'pointer 1'

  1097. !                       call Op_MudDischarged_Volume%Remove (Op_KickLoc)        ! Op_KickLoc= last

  1098. !                       call Op_Mud_Backhead_X%Remove (Op_KickLoc)

  1099. !                       call Op_Mud_Backhead_section%Remove (Op_KickLoc)

  1100. !                       call Op_Mud_Forehead_X%Remove (Op_KickLoc)

  1101. !                       call Op_Mud_Forehead_section%Remove (Op_KickLoc)

  1102. !                       call Op_Density%Remove (Op_KickLoc)

  1103. !                       call Op_RemainedVolume_in_LastSection%Remove (Op_KickLoc)

  1104. !                       call Op_EmptyVolume_inBackheadLocation%Remove (Op_KickLoc)

  1105. !                       call Op_MudOrKick%Remove (Op_KickLoc)

  1106. !

  1107. !    !write(*,*) 'pointer 2'

  1108. !

  1109. !                            ! backheade kick zire mate bashad

  1110. !                       if (Op_KickLoc > 1) then

  1111. !

  1112. !                           if ( ABS(Op_Density%Array (Op_KickLoc-1) - data%State%MudSystem%NewDensity) > DensityMixTol) then ! .OR. (Op_MudDischarged_Volume%Array (Op_KickLoc-1)>42.) ) then

  1113. !    !write(*,*) 'pointer 3'

  1114. !

  1115. !

  1116. !

  1117. !

  1118. !                               call Op_Density%AddTo (Op_KickLoc,data%State%MudSystem%NewDensity)

  1119. !                               call Op_MudDischarged_Volume%AddTo (Op_KickLoc,NewVolume)

  1120. !                               call Op_Mud_Forehead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)

  1121. !                               call Op_Mud_Forehead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)

  1122. !                               call Op_Mud_Backhead_X%AddTo (Op_KickLoc,Old_KickBackHead_X)

  1123. !                               call Op_Mud_Backhead_section%AddTo (Op_KickLoc,Old_KickBackHead_Section)

  1124. !                               call Op_RemainedVolume_in_LastSection%AddTo (Op_KickLoc,0.0d0)

  1125. !                               call Op_EmptyVolume_inBackheadLocation%AddTo (Op_KickLoc,0.0d0)

  1126. !                               call Op_MudOrKick%AddTo (Op_KickLoc,0)

  1127. !

  1128. !    !write(*,*) 'pointer 4'

  1129. !

  1130. !                           else  !Merge Condition

  1131. !

  1132. !                               Op_MudDischarged_Volume%Array (Op_KickLoc-1)= Op_MudDischarged_Volume%Array (Op_KickLoc-1) + NewVolume

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

  1134. !                                                                   (Op_MudDischarged_Volume%Array (Op_KickLoc-1)+NewVolume)

  1135. !

  1136. !                           endif

  1137. !

  1138. !                       else       !if Op_KickLoc == 1     (*****Migration Start*****)  *5-2===============================

  1139. !    !write(*,*) 'pointer 5'

  1140. !

  1141. !

  1142. !    !write(*,*) 'pointer 6'

  1143. !

  1144. !

  1145. !                               call Op_Density%AddToFirst (data%State%MudSystem%NewDensity)

  1146. !                               call Op_MudDischarged_Volume%AddToFirst (NewVolume)

  1147. !                               call Op_Mud_Forehead_X%AddToFirst (Old_KickBackHead_X)

  1148. !                               call Op_Mud_Forehead_section%AddToFirst (Old_KickBackHead_Section)

  1149. !                               call Op_Mud_Backhead_X%AddToFirst (Old_KickBackHead_X)

  1150. !                               call Op_Mud_Backhead_section%AddToFirst (Old_KickBackHead_Section)

  1151. !                               call Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  1152. !                               call Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  1153. !                               call Op_MudOrKick%AddToFirst (0)

  1154. !    !write(*,*) 'pointer 7'

  1155. !

  1156. !                       endif

  1157. !

  1158. !

  1159. !       endif

  1160. !

  1161. !

  1162. !

  1163. !       endif        !(  ((data%State%MudSystem%AnnulusFlowRate/60.)*DeltaT_Mudline) < KickDv )        ! sorate pump kamtar az kick bashad

  1164. !

  1165. !

  1166. !

  1167. !

  1168. !    endif

  1169. 

  1170. !========================================================================================

  1171.    

  1172. ENDDO   ! KickNumber= 1, NewInfluxNumber

  1173. data%State%MudSystem%KickNumber = kickNumber        

  1174.         

  1175. !write(*,*)    'c)Ann_MudDischarged_Volume%Array(:)=' , sum(Ann_MudDischarged_Volume%Array(:))

  1176.         

  1177.         

  1178.              

  1179.     end subroutine Kick_Migration