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/FillingWell_By_BellNipple.i90

219 lines
10 KiB
Raw Blame History 

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

  2. subroutine FillingWell_By_BellNipple    !  is called in subroutine CirculationCodeSelect

  3.     

  4. ! this subroutine is for lines:   1) BellNippleToWell-NonFullWell : data%State%MUD(8)%Q

  5. !                                 2) PumpsToWell_KillLine : data%State%MUD(10)%Q

  6.     

  7.         Use GeoElements_FluidModule

  8.         USE CMudPropertiesVariables

  9.         USE MudSystemVARIABLES

  10. use SimulationVariables !@@@

  11.         use SimulationVariables

  12.         use SimulationVariables !@

  13. !use CTanks

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

  15.         USE sROP_Other_Variables

  16.         USE sROP_Variables

  17.         use KickVARIABLESModule

  18.    

  19.    implicit none

  20.    

  21.  real(8)  deltaV,Xposition,FillingDensity

  22.  

  23.  integer kloc,SectionPosition

  24.    

  25. 

  26.    

  27.    

  28. ! Well Is Not Full

  29.    

  30.    

  31.    

  32.     if (data%State%MudSystem%Ann_MudOrKick%Last() == 104) then      ! Last Element is air      we must observe: Ann_Mud_Forehead_X%Last()=0.0

  33.         

  34.         write(*,*) 'FillingWell_By_BellNipple-Last Element is air'

  35.         

  36. !write(*,*)  '*Ann_Mud_Forehead_X%Last()=' , Ann_Mud_Forehead_X%Last()

  37. !write(*,*)  '*Ann_MudOrKick%Last()=' , Ann_MudOrKick%Last()

  38.         

  39.             

  40.     

  41.             FillingDensity= data%State%MudSystem%BellNippleDensity

  42.             

  43. !****************************

  44.             if ( data%State%MudSystem%Ann_MudDischarged_Volume%Last() > (((data%State%MUD(8)%Q+data%State%MUD(10)%Q)/60.)*data%State%MudSystem%DeltaT_Mudline)) then    ! air baghi mimune

  45.                 

  46.                 kloc= data%State%MudSystem%Ann_MudDischarged_Volume%Length()-1

  47.                 

  48.                 

  49.                 

  50.                 deltaV= ((data%State%MUD(8)%Q+data%State%MUD(10)%Q)/60.)*data%State%MudSystem%DeltaT_Mudline

  51.                 

  52.                 data%State%MudSystem%Ann_MudDischarged_Volume%Array(data%State%MudSystem%Ann_MudDischarged_Volume%Length())= data%State%MudSystem%Ann_MudDischarged_Volume%Array(data%State%MudSystem%Ann_MudDischarged_Volume%Length()) - deltaV

  53.                 

  54.    

  55. !========================ANNULUS ENTRANCE====================

  56.         

  57.          if (ABS(data%State%MudSystem%Ann_Density%Array(kloc) - FillingDensity) >= data%State%MudSystem%DensityMixTol) then     ! new mud is pumped

  58.             call data%State%MudSystem%Ann_Density%AddTo (kloc, FillingDensity)   

  59.             call data%State%MudSystem%Ann_MudDischarged_Volume%AddTo (kloc, 0.0d0)

  60.             call data%State%MudSystem%Ann_Mud_Forehead_X%AddTo (kloc, 0.0d0)

  61.             call data%State%MudSystem%Ann_Mud_Forehead_section%AddTo (kloc, 1)

  62.             call data%State%MudSystem%Ann_Mud_Backhead_X%AddTo (kloc, 0.0d0)

  63.             call data%State%MudSystem%Ann_Mud_Backhead_section%AddTo (kloc, data%State%MudSystem%NoPipeSections)

  64.             call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%AddTo (kloc, 0.0d0)

  65.             call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%AddTo (kloc, 0.0d0)

  66.             call data%State%MudSystem%Ann_MudOrKick%AddTo (kloc, 0)

  67.             call data%State%MudSystem%Ann_CuttingMud%AddTo (kloc,0) 

  68.              

  69. !AnnulusSuctionDensity_Old= Hz_Density_Utube

  70.          endif    

  71.             

  72. !========================ANNULUS====================

  73. 

  74.      data%State%MudSystem%Ann_MudDischarged_Volume%Array(kloc)= data%State%MudSystem%Ann_MudDischarged_Volume%Array(kloc)+ deltaV    !(gal)

  75.      

  76.      

  77.      

  78.             else       ! ( Ann_MudDischarged_Volume%Last() <= (((data%State%MUD(8)%Q+data%State%MUD(10)%Q)/60.)*DeltaT_Mudline)) then    ! air baghi namune

  79. 

  80.                 

  81.                 

  82.                 

  83.                 kloc= data%State%MudSystem%Ann_MudDischarged_Volume%Length()-1

  84.                 

  85.                 deltaV= data%State%MudSystem%Ann_MudDischarged_Volume%Last()

  86.                 

  87.                 

  88.                 

  89.                 if (ABS(data%State%MudSystem%Ann_Density%Array(kloc)-FillingDensity)< data%State%MudSystem%DensityMixTol .and. data%State%MudSystem%Ann_CuttingMud%Array(kloc)==0) then    ! .OR. (Ann_MudDischarged_Volume%Array(kloc)< 42.) ) then      ! 1-Pockets are Merged

  90.                      data%State%MudSystem%Ann_Density%Array(kloc)= (data%State%MudSystem%Ann_Density%Array(kloc)*data%State%MudSystem%Ann_MudDischarged_Volume%Array(kloc)+FillingDensity*deltaV)/(data%State%MudSystem%Ann_MudDischarged_Volume%Array(kloc)+deltaV)

  91.                      data%State%MudSystem%Ann_MudDischarged_Volume%Array(kloc)= data%State%MudSystem%Ann_MudDischarged_Volume%Array(kloc)+deltaV

  92.                      data%State%MudSystem%Ann_Mud_Forehead_X%Array(kloc)= data%State%MudSystem%Xend_PipeSection(data%State%MudSystem%NoPipeSections)

  93.                      data%State%MudSystem%Ann_Mud_Forehead_section%Array(kloc)= data%State%MudSystem%NoPipeSections

  94. !Ann_Mud_Backhead_X%Array(kloc)= no change

  95. !Ann_Mud_Backhead_section%Array(kloc)= no change

  96.                      data%State%MudSystem%Ann_RemainedVolume_in_LastSection%Array(kloc)= (0.0)

  97.                      data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%Array(kloc)= (0.0) 

  98.                  

  99.                     call data%State%MudSystem%Ann_MudDischarged_Volume%Remove (kloc+1)

  100.                     call data%State%MudSystem%Ann_Mud_Backhead_X%Remove (kloc+1)

  101.                     call data%State%MudSystem%Ann_Mud_Backhead_section%Remove (kloc+1)

  102.                     call data%State%MudSystem%Ann_Mud_Forehead_X%Remove (kloc+1)

  103.                     call data%State%MudSystem%Ann_Mud_Forehead_section%Remove (kloc+1)

  104.                     call data%State%MudSystem%Ann_Density%Remove (kloc+1)

  105.                     call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%Remove (kloc+1)

  106.                     call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%Remove (kloc+1)

  107.                     call data%State%MudSystem%Ann_MudOrKick%Remove (kloc+1)

  108.                     call data%State%MudSystem%Ann_CuttingMud%Remove (kloc+1)

  109.                  

  110.                  

  111.                 else        ! 2-Merging conditions are not meeted, so new pocket== air is replaced with filling mud

  112.                     data%State%MudSystem%Ann_Density%Array(kloc+1) =FillingDensity

  113.                     data%State%MudSystem%Ann_MudOrKick%Array(kloc+1)= 0

  114.                 

  115.                 endif                

  116. 

  117.                 

  118.             endif

  119.             

  120. ! end condition (Ann_MudOrKick%Last() == 104)  ! Last Element is air

  121.             

  122. !**********************************************************************************************************************************************************

  123.             

  124.             

  125.             

  126.             

  127.     else       ! (Ann_MudOrKick%Last() == 0) then      ! Last Element is  NOT air-      so we must observe: Ann_Mud_Forehead_X%Last()/=0.0

  128.         

  129. !write(*,*) 'FillingWell_By_BellNipple-Last Element is NOT air'

  130. !

  131. !write(*,*)  '*Ann_Mud_Forehead_X%Last()=' , Ann_Mud_Forehead_X%Last()

  132. !write(*,*)  '*Ann_MudOrKick%Last()=' , Ann_MudOrKick%Last()

  133.         

  134.         

  135.                 deltaV= ((data%State%MUD(8)%Q+data%State%MUD(10)%Q)/60.)*data%State%MudSystem%DeltaT_Mudline

  136.                 

  137.                 kloc= data%State%MudSystem%Ann_MudDischarged_Volume%Length()

  138.                 

  139.                 

  140. 

  141.                 

  142.    

  143. !========================ANNULUS ENTRANCE====================

  144.         

  145.              if (ABS(data%State%MudSystem%Ann_Density%Last() - FillingDensity) >= data%State%MudSystem%DensityMixTol .or. data%State%MudSystem%Ann_CuttingMud%Last()==1) then    ! .OR. (Ann_MudDischarged_Volume%Array(kloc)>42.) ) then     ! new mud is pumped

  146.                  Xposition= data%State%MudSystem%Ann_Mud_Forehead_X%Last()

  147.                  SectionPosition= data%State%MudSystem%Ann_Mud_Forehead_section%Last()

  148.                 call data%State%MudSystem%Ann_Density%Add (FillingDensity)   

  149.                 call data%State%MudSystem%Ann_MudDischarged_Volume%Add (0.0d0)

  150.                 call data%State%MudSystem%Ann_Mud_Forehead_X%Add (Xposition)

  151.                 call data%State%MudSystem%Ann_Mud_Forehead_section%Add (SectionPosition)

  152.                 call data%State%MudSystem%Ann_Mud_Backhead_X%Add (Xposition)

  153.                 call data%State%MudSystem%Ann_Mud_Backhead_section%Add (SectionPosition)

  154.                 call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%Add (0.0d0)

  155.                 call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%Add (0.0d0)

  156.                 call data%State%MudSystem%Ann_MudOrKick%Add (0)

  157.                 call data%State%MudSystem%Ann_CuttingMud%Add (0)

  158.              

  159. !AnnulusSuctionDensity_Old= Hz_Density_Utube

  160. !endif

  161.             

  162. !========================ANNULUS====================

  163. 

  164.             data%State%MudSystem%Ann_MudDischarged_Volume%Array(data%State%MudSystem%Ann_MudDischarged_Volume%Length())= data%State%MudSystem%Ann_MudDischarged_Volume%Array(data%State%MudSystem%Ann_MudDischarged_Volume%Length())+ deltaV    !(gal)

  165.      

  166.      

  167.              else     !  Merged with last Mud

  168.                     data%State%MudSystem%Ann_Density%Array(kloc)= (data%State%MudSystem%Ann_Density%Array(kloc)*data%State%MudSystem%Ann_MudDischarged_Volume%Array(kloc)+FillingDensity*deltaV)/(data%State%MudSystem%Ann_MudDischarged_Volume%Array(kloc)+deltaV)

  169.                     data%State%MudSystem%Ann_MudDischarged_Volume%Array(kloc)= data%State%MudSystem%Ann_MudDischarged_Volume%Array(kloc)+deltaV

  170. !Ann_Mud_Forehead_X%Array(kloc)= Xend_PipeSection(NoPipeSections)

  171. !Ann_Mud_Forehead_section%Array(kloc)= NoPipeSections

  172. !Ann_Mud_Backhead_X%Array(kloc)= no change

  173. !Ann_Mud_Backhead_section%Array(kloc)= no change

  174.                     data%State%MudSystem%Ann_RemainedVolume_in_LastSection%Array(kloc)= (0.0)

  175.                     data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%Array(kloc)= (0.0) 

  176.              endif

  177.          

  178.          

  179.          

  180. 

  181.         

  182.         

  183.     endif

  184.     

  185.         

  186.             

  187.                   

  188.          

  189. 

  190.          

  191.          

  192.          

  193.    

  194.    

  195.    

  196.    

  197.    

  198.    

  199.    

  200.    

  201.    

  202.    

  203.    

  204.    

  205.    

  206.    

  207.    

  208.    

  209.    

  210.    

  211.    

  212.    

  213.    

  214.    

  215.    

  216.     

  217.         

  218.     end subroutine FillingWell_By_BellNipple