mahmood19227
/
SimulationCore2
1
0
Derivar 0
Código Questões 0 Pedidos de integração 0 Lançamentos 0 Wiki Trabalho
Simulation Core
Não pode escolher mais do que 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
68 Cometimentos
2 Ramos
134 MiB
 
 
 
 
 
 
Árvore: 14f31e09cb
Ramos Etiquetas
${ item.name }
Criar ramo ${ searchTerm }
de '14f31e09cb'
${ noResults }
SimulationCore2/Equipments/MudSystem/FillingWell_By_BellNipple.i90

219 linhas
10 KiB
Em bruto Responsabilidade Histórico 

  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