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.
62 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 95ad7885e9
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '95ad7885e9'
${ noResults }
SimulationCore2/FluidFlow/Well_Pressure_Data_Transfer...

714 lines
38 KiB
Raw Blame History 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/FluidFlow/Well_Pressure_Data_Transfer.f90"

  2. SUBROUTINE WellPressureDataTransfer

  3.     

  4. !! This subroutine calculates pressure distribution in well

  5. !! We divide well hydraulic system to 4 zones. 1- pump to string zone; this zone is horizontal

  6. !! 2- string zone; this zone includes drill pipes and collars and is vertical or neraly vertical

  7. !! 3- annulus zone; this zone includes annulus space between string and openhole or casing

  8. !! 4- Openhole zone; this zone includes spaces under bit to bottom of the wellbore

  9. !! The last two zone includes annulus space and open hole, are influenced by kicks and have crucial role in

  10. !! computing pressure distribution because reference point (back pressure in well head open condition

  11. !! and bottomhole pressure in well head closed condition) are in one of them. because of this, pressure

  12. !! distribution calculates in two subroutines : PressureAnnAndOHDistribution and PressurePumptoBitDistribution

  13. !! pressure change through well consist of pressure change due to friction, change of elevation and acceleration

  14. !! frictional pressure drop calculated by subroutine Sub_Press_Drop_Calculator

  15. !! This subroutine includes hydrostatic pressure and later will include effect of corss-section area change

  16. !! which causes acceleration or decceleration of flow

  17.     

  18.     USE FricPressDropVarsModule

  19.     use MudSystemModule

  20.     USE MudSystemVARIABLES

  21.     use SimulationVariables !@@@

  22.     USE GeoElements_FluidModule

  23.     USE Fluid_Flow_Startup_Vars

  24.     use KickVARIABLESModule

  25. ! USE CMudPropertiesVariables

  26. ! USE CBopStackVariables

  27. ! USE sROP_Variables

  28. ! USE CHOKEVARIABLES

  29. ! use CChokeManifoldVariables

  30. ! use SimulationVariables

  31. ! USE CBitProblemsVariables

  32. ! USE CChokeProblemsVariables

  33. ! USE CStringConfigurationVariables

  34. ! use CDataDisplayConsole

  35.     

  36.     IMPLICIT NONE

  37.     

  38.     INTEGER :: i , j

  39.     REAL :: InstantaneousTotalOpenChokeArea , VolumeDensityProduct

  40.     

  41.     KickVARIABLES%ChokeIsClosing = .FALSE.

  42.     data%State%FricPressDrop%Kchoke = 0.0

  43.     data%State%FricPressDrop%KBit = 0.0

  44.     

  45.     

  46. !!!!!!!!!!!!!!!! bit is present

  47.     BitTrue = data%Configuration%StringConfiguration%StringConfigurations(1)%ComponentType  ==  Bit_ComponentType           ! Bit_ComponentType = 0

  48.     BitCd = 0.98

  49.     BitNozzDia = 32.0 * data%Configuration%StringConfiguration%BitDefinition%BitNozzleSize       ! nozzle diameter in 1/32 in

  50.     BitNozzleArea = 7.6699E-4 * BitNozzDia**2

  51.     BitNozzleNum = data%Configuration%StringConfiguration%BitDefinition%BitNozzleNo - data%State%FricPressDrop%BitJetsPlugged * data%problems%BitProblems%PlugJetsCount

  52.     BitTotNozzArea = BitNozzleNum * BitNozzleArea + 0.5 * data%State%FricPressDrop%BitJetsWashedOut * data%problems%BitProblems%JetWashoutCount * BitNozzleArea

  53.     IF (BitNozzleNum == 0) THEN

  54.         data%State%FricPressDrop%BitTotallyPluged = .TRUE.

  55.     ELSE

  56.         data%State%FricPressDrop%BitTotallyPluged = .FALSE.

  57.     END IF

  58.     

  59.     data%State%FricPressDrop%FloatValveIn = data%Configuration%StringConfiguration%BitDefinition%FloatValve

  60. !FloatValveOpen = .TRUE.

  61. !IF (JetWashoutCount > 0 .OR. PlugJetsCount > 0) THEN

  62. !    WRITE (*,*) 'PlugJetsCount' , PlugJetsCount

  63. !    WRITE (*,*) 'JetWashoutCount', JetWashoutCount

  64. !END IF

  65.     

  66. !WRITE (*,*) 'BitNozzleNum', BitNozzleNum

  67. !WRITE (*,*) 'BitTotNozzArea', BitTotNozzArea

  68. !WRITE (*,*) 'Float Valve??', BitDefinition%FloatValve

  69.     

  70. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  71.     

  72.     IF(ALLOCATED(KickVARIABLES%GasPocketFlowEl))      DEALLOCATE(KickVARIABLES%GasPocketFlowEl)

  73.     

  74. !!!!!!!!!!!!!!!!!!!!  Well Head Condition ( Open or Closed )

  75.     KickVARIABLES%ChokeKroneckerDelta = 0

  76. 

  77.     

  78.     IF (data%State%MudSystem%WellToPitsOpen == .FALSE. .AND. data%State%MudSystem%WellToChokeManifoldOpen == .FALSE.) THEN

  79.         

  80.         KickVARIABLES%WellHeadOpen = .FALSE.

  81. !WRITE (*,*) ' Well Head is closed '

  82.     ELSE 

  83.         KickVARIABLES%WellHeadOpen = .TRUE.

  84.     END IF

  85.     

  86.     IF (data%State%MudSystem%WellToPitsOpen == .FALSE. .AND. data%State%MudSystem%WellToChokeManifoldOpen)        KickVARIABLES%ChokeKroneckerDelta = 1

  87. !WRITE (*,*) ' WelltoPitsOpen=' , WelltoPitsOpen, 'WellToChokeManifoldOpen= ' , WellToChokeManifoldOpen

  88.     

  89. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  90.     

  91.     

  92.     data%State%FricPressDrop%NoHorizontalEl = data%State%MudSystem%NoHorizontalMudElements

  93.     data%State%FricPressDrop%NoStringEl = data%State%MudSystem%NoStringMudElements

  94.     data%State%FricPressDrop%NoAnnulusEl = data%State%MudSystem%NoCasingMudElements

  95.     data%State%FricPressDrop%NoWellToChokeEl = 0

  96.     IF (KickVARIABLES%ChokeKroneckerDelta == 1)       data%State%FricPressDrop%NoWellToChokeEl = data%State%MudSystem%ChokeLine_Density%Length()

  97.     data%State%FricPressDrop%NoOpenHoleEl = data%State%MudSystem%NoBottomHoleMudElements

  98.     data%State%FricPressDrop%NumbEl = data%State%FricPressDrop%NoHorizontalEl + data%State%FricPressDrop%NoStringEl + data%State%FricPressDrop%NoAnnulusEl + data%State%FricPressDrop%NoWellToChokeEl + data%State%FricPressDrop%NoOpenHoleEl

  99.     IF(ALLOCATED(FlowEl))       DEALLOCATE(FlowEl)

  100.     ALLOCATE(FlowEl(data%State%FricPressDrop%NumbEl))

  101.     

  102. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  Transfering Data from module:MudSystemVARIABLES  to  module:FricPressDropVars to calculate Pressure distribution in flow path

  103. !!!!!!!!!!!!!!!!!!!!!!! Horizontal line

  104. !WRITE (*,*) 'H', NoHorizontalEl

  105.     DO i = 1 , data%State%FricPressDrop%NoHorizontalEl

  106.         FlowEl(i)%StartX = data%State%MudSystem%Xstart_MudElement%Array(i) 

  107.         FlowEl(i)%EndX = data%State%MudSystem%Xend_MudElement%Array(i)

  108.         FlowEl(i)%StartTVD = 0.d0

  109.         FlowEl(i)%EndTVD = 0.d0

  110.         FlowEl(i)%Id = 0.0

  111.         FlowEl(i)%Od = data%State%MudSystem%PipeOD_MudElement%Array(i)

  112.         FlowEl(i)%density = data%State%MudSystem%Density_MudElement%Array(i)

  113.         

  114.         FlowEl(i)%Dhyd = FlowEl(i)%Od

  115.         FlowEl(i)%Length = ABS(FlowEl(i)%EndX - FlowEl(i)%StartX)

  116.         FlowEl(i)%DepthDiff = 0.d0

  117.         FlowEl(i)%Volume = PI / 4.0 * FlowEl(i)%Od**2 * REAL(FlowEl(i)%Length) / Convfttoinch**2

  118.         IF (data%State%MudSystem%MudType_MudElement%Array(i) == 0) THEN           ! = 0 for mud, = 1 for gas kick, = 4 for air

  119.             FlowEl(i)%MaterialType = 0

  120.         ELSE IF (data%State%MudSystem%MudType_MudElement%Array(i) == 4) THEN

  121.             FlowEl(i)%MaterialType = 4

  122.         ELSE

  123.             FlowEl(i)%MaterialType = 1

  124.         END IF

  125.         

  126.         FlowEl(i)%dPdLgrav = 0.0

  127.         FlowEl(i)%StaticPressDiff = 0.0

  128. 

  129. 

  130.         

  131.     END DO

  132. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  133.     

  134. !!!!!!!!!!!!!!!!!!!!!!!!! String

  135.     data%State%FricPressDrop%StringFirstEl = data%State%FricPressDrop%NoHorizontalEl + 1

  136.     data%State%FricPressDrop%StringLastEl = data%State%FricPressDrop%NoHorizontalEl + data%State%FricPressDrop%NoStringEl

  137.     DO i = data%State%FricPressDrop%NoHorizontalEl + 1 , data%State%FricPressDrop%NoHorizontalEl + data%State%FricPressDrop%NoStringEl

  138. !WRITE (*,*) 'ST , i' , i

  139.         FlowEl(i)%StartX = data%State%MudSystem%Xstart_MudElement%Array(i)

  140. !WRITE (*,*) 'StartX', FlowEl(i)%StartX

  141.         FlowEl(i)%EndX = data%State%MudSystem%Xend_MudElement%Array(i)

  142. !WRITE (*,*) 'EndX', FlowEl(i)%EndX

  143.         FlowEl(i)%StartTVD = data%State%MudSystem%TVDstart_MudElement%Array(i)

  144. !WRITE (*,*) 'StartTVD', FlowEl(i)%StartTVD

  145.         FlowEl(i)%EndTVD = data%State%MudSystem%TVDend_MudElement%Array(i)

  146. !WRITE (*,*) 'EndTVD', FlowEl(i)%EndTVD

  147.         FlowEl(i)%Id = 0.0

  148. !WRITE (*,*) 'Id', FlowEl(i)%Id

  149.         FlowEl(i)%Od = data%State%MudSystem%PipeOD_MudElement%Array(i)

  150. !WRITE (*,*) 'Od', FlowEl(i)%Od

  151.         FlowEl(i)%Density = data%State%MudSystem%Density_MudElement%Array(i)

  152. !WRITE (*,*) 'Density', FlowEl(i)%Density

  153.         

  154.         

  155.         FlowEl(i)%Dhyd = FlowEl(i)%Od

  156.         FlowEl(i)%Length = ABS(FlowEl(i)%EndX - FlowEl(i)%StartX)

  157. !WRITE (*,*) 'Length', FlowEl(i)%Length

  158.         FlowEl(i)%DepthDiff = ABS(FlowEl(i)%StartTVD - FlowEl(i)%EndTVD)

  159. !WRITE (*,*) 'DepthDiff', FlowEl(i)%DepthDiff

  160.         FlowEl(i)%Area = PI / 4.0 * FlowEl(i)%Od**2 / Convfttoinch**2

  161.         FlowEl(i)%Volume = FlowEl(i)%Area * REAL(FlowEl(i)%Length)

  162.         IF (data%State%MudSystem%MudType_MudElement%Array(i) == 0) THEN           ! = 0 for mud, = 1 for gas kick, = 4 for air

  163.             FlowEl(i)%MaterialType = 0

  164.         ELSE IF (data%State%MudSystem%MudType_MudElement%Array(i) == 4) THEN

  165.             FlowEl(i)%MaterialType = 4

  166.         ELSE

  167.             FlowEl(i)%MaterialType = 1

  168.         END IF

  169.         

  170.         IF (FlowEl(i)%MaterialType == 1 .OR. FlowEl(i)%MaterialType == 4) THEN

  171.             FlowEl(i)%dPdLgrav = 0.0

  172.         ELSE

  173.             FlowEl(i)%dPdLgrav = 0.052 * FlowEl(i)%Density

  174.         END IF

  175.         FlowEl(i)%StaticPressDiff = FlowEl(i)%dPdLgrav * REAL(FlowEl(i)%DepthDiff)

  176.         

  177. 

  178. 

  179.         

  180.     END DO

  181. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  182.     

  183. !!!!!!!!!!!!!!!!!!!!!!!!!!!! Annulus

  184.     data%State%FricPressDrop%AnnulusFirstEl = data%State%FricPressDrop%NoHorizontalEl + data%State%FricPressDrop%NoStringEl + 1

  185.     data%State%FricPressDrop%AnnulusLastEl = data%State%FricPressDrop%NoHorizontalEl + data%State%FricPressDrop%NoStringEl + data%State%FricPressDrop%NoAnnulusEl

  186.     DO i = data%State%FricPressDrop%NoHorizontalEl + data%State%FricPressDrop%NoStringEl + 1 , data%State%FricPressDrop%NoHorizontalEl + data%State%FricPressDrop%NoStringEl + data%State%FricPressDrop%NoAnnulusEl

  187.         FlowEl(i)%StartX = data%State%MudSystem%Xstart_MudElement%Array(i)

  188.         FlowEl(i)%EndX = data%State%MudSystem%Xend_MudElement%Array(i)

  189.         FlowEl(i)%StartTVD = data%State%MudSystem%TVDstart_MudElement%Array(i)

  190.         FlowEl(i)%EndTVD = data%State%MudSystem%TVDend_MudElement%Array(i)

  191.         FlowEl(i)%Id = data%State%MudSystem%PipeID_MudElement%Array(i)

  192.         FlowEl(i)%Od = data%State%MudSystem%PipeOD_MudElement%Array(i)

  193.         FlowEl(i)%Density = data%State%MudSystem%Density_MudElement%Array(i)        

  194.         

  195.         FlowEl(i)%Dhyd = FlowEl(i)%Od - FlowEl(i)%Id

  196.         FlowEl(i)%Length = ABS(FlowEl(i)%EndX - FlowEl(i)%StartX)

  197.         FlowEl(i)%DepthDiff = ABS(FlowEl(i)%StartTVD - FlowEl(i)%EndTVD)

  198.         FlowEl(i)%Area = PI / 4.0 * (FlowEl(i)%Od**2 - FlowEl(i)%Id**2) / Convfttoinch**2

  199.         FlowEl(i)%Volume = FlowEl(i)%Area * REAL(FlowEl(i)%Length)

  200.         IF (data%State%MudSystem%MudType_MudElement%Array(i) == 0) THEN           ! = 0 for mud, = 1 for gas kick, = 4 for air

  201.             FlowEl(i)%MaterialType = 0

  202.         ELSE IF (data%State%MudSystem%MudType_MudElement%Array(i) == 4) THEN

  203.             FlowEl(i)%MaterialType = 4

  204.         ELSE

  205.             FlowEl(i)%MaterialType = 1

  206.         END IF

  207.         

  208.         IF (FlowEl(i)%MaterialType == 1 .OR. FlowEl(i)%MaterialType == 4) THEN

  209.             FlowEl(i)%dPdLgrav = 0.0

  210.         ELSE

  211.             FlowEl(i)%dPdLgrav = 0.052 * FlowEl(i)%density

  212.         END IF

  213.         FlowEl(i)%StaticPressDiff = FlowEl(i)%dPdLgrav * REAL(FlowEl(i)%DepthDiff)

  214. 

  215. 

  216.         

  217.     END DO

  218. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  219.     

  220. !!!!!!!!!!!!!!! Well to choke manifold path

  221.     j = 1

  222.     DO i = data%State%FricPressDrop%NoHorizontalEl + data%State%FricPressDrop%NoStringEl + data%State%FricPressDrop%NoAnnulusEl + 1 , data%State%FricPressDrop%NoHorizontalEl + data%State%FricPressDrop%NoStringEl + data%State%FricPressDrop%NoAnnulusEl + data%State%FricPressDrop%NoWelltoChokeEl

  223.         FlowEl(i)%StartX = data%State%MudSystem%ChokeLine_Mud_Backhead_X%Array(j)

  224.         FlowEl(i)%EndX = data%State%MudSystem%ChokeLine_Mud_Forehead_X%Array(j)

  225.         FlowEl(i)%StartTVD = 0.d0

  226.         FlowEl(i)%EndTVD = 0.d0

  227.         FlowEl(i)%Id = 0.0

  228.         FlowEl(i)%Od = data%Configuration%BopStack%ChokeLineId

  229.         FlowEl(i)%density = data%State%MudSystem%ChokeLine_Density%Array(j)

  230.             

  231.         FlowEl(i)%Dhyd = FlowEl(i)%Od

  232.         FlowEl(i)%Length = ABS(FlowEl(i)%EndX - FlowEl(i)%StartX)

  233.         FlowEl(i)%DepthDiff = 0.d0

  234.         FlowEl(i)%Area = PI / 4.0 * FlowEl(i)%Od**2 / Convfttoinch**2

  235.         FlowEl(i)%Volume = FlowEl(i)%Area * REAL(FlowEl(i)%Length)

  236.         IF (data%State%MudSystem%ChokeLine_MudOrKick%Array(j) == 0 .OR. data%State%MudSystem%ChokeLine_MudOrKick%Array(j) == 4) THEN      ! = 0 for mud, = 1 for gas kick, = 4 for air

  237.             FlowEl(i)%MaterialType = data%State%MudSystem%ChokeLine_MudOrKick%Array(j)

  238.         ELSE

  239.             FlowEl(i)%MaterialType = 1

  240.         END IF

  241.         

  242.             

  243.         FlowEl(i)%dPdLgrav = 0.0

  244.         FlowEl(i)%StaticPressDiff = 0.0

  245.         

  246. !WRITE (*,*) 'Ch density, length, Type' , i, FlowEl(i)%density , FlowEl(i)%length, FlowEl(i)%MaterialType

  247. 

  248.         j = j + 1

  249.             

  250.     END DO

  251.             

  252. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  253.     

  254. !!!!!!!!!!!!!!! Open Hole

  255.     data%State%FricPressDrop%OpenholeFirstEl = data%State%FricPressDrop%NoHorizontalEl + data%State%FricPressDrop%NoStringEl + data%State%FricPressDrop%NoAnnulusEl + data%State%FricPressDrop%NoWelltoChokeEl + 1

  256.     j = 1

  257.     DO i = data%State%FricPressDrop%OpenholeFirstEl , data%State%FricPressDrop%NumbEl ! = NoHorizontalEl + NoStringEl + NoCasingEl + NoOpenHoleEl

  258.         FlowEl(i)%StartX = data%State%MudSystem%Xstart_OpMudElement%Array(j)

  259.         FlowEl(i)%EndX = data%State%MudSystem%Xend_OpMudElement%Array(j)

  260.         FlowEl(i)%StartTVD = data%State%MudSystem%TVDstart_OpMudElement%Array(j)

  261.         FlowEl(i)%EndTVD = data%State%MudSystem%TVDend_OpMudElement%Array(j)

  262.         FlowEl(i)%Id = 0.0

  263.         FlowEl(i)%Od = data%State%MudSystem%PipeOD_OpMudElement%Array(j)

  264.         FlowEl(i)%density = data%State%MudSystem%Density_OpMudElement%Array(j)

  265.         FlowEl(i)%MaterialType = data%State%MudSystem%MudTypeOp_MudElement%Array(j)     ! = 0 for mud, = 1 for gas kick, = 4 for air

  266.         

  267.         FlowEl(i)%Dhyd = FlowEl(i)%Od

  268.         FlowEl(i)%Length = ABS(FlowEl(i)%EndX - FlowEl(i)%StartX)

  269.         FlowEl(i)%DepthDiff = ABS(FlowEl(i)%StartTVD - FlowEl(i)%EndTVD)

  270.         FlowEl(i)%Area = PI / 4.0 * FlowEl(i)%Od**2 / Convfttoinch**2        

  271.         FlowEl(i)%Volume = FlowEl(i)%Area * REAL(FlowEl(i)%Length)

  272.         IF (data%State%MudSystem%MudTypeOp_MudElement%Array(j) == 0) THEN           ! = 0 for mud, = 1 for gas kick, = 4 for air

  273.             FlowEl(i)%MaterialType = 0

  274.         ELSE IF (data%State%MudSystem%MudTypeOp_MudElement%Array(j) == 4) THEN

  275.             FlowEl(i)%MaterialType = 4

  276.         ELSE

  277.             FlowEl(i)%MaterialType = 1

  278.         END IF

  279.         

  280.         j = j + 1

  281.         IF (FlowEl(i)%MaterialType == 1) THEN

  282.             FlowEl(i)%dPdLgrav = 0.0

  283.         ELSE

  284.             FlowEl(i)%dPdLgrav = 0.052 * FlowEl(i)%density

  285.         END IF

  286.         FlowEl(i)%StaticPressDiff = FlowEl(i)%dPdLgrav * REAL(FlowEl(i)%DepthDiff)

  287.     

  288. !WRITE (*,*) 'O density, length, Type of ith element' , i, FlowEl(i)%density , FlowEl(i)%length, FlowEl(i)%MaterialType

  289. 

  290.     END DO

  291. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  292.     

  293. !!!!!!!!!!!!!!!!!!  Mud Element Viscosity Calculation

  294.     

  295.     DO i = 1 , data%State%FricPressDrop%NumbEl

  296.         IF (FlowEl(i)%MaterialType /= 0)    CYCLE

  297.         IF (FlowEl(i)%density < 8.33) THEN

  298.             WRITE (*,*) 'H, S, A, Ch, O', data%State%FricPressDrop%NoHorizontalEl , data%State%FricPressDrop%StringFirstEl , data%State%FricPressDrop%AnnulusFirstEl , data%State%FricPressDrop%NoWellToChokeEl , data%State%FricPressDrop%OpenHoleFirstEl

  299.             

  300.             WRITE (*,*) 'Element No, Volume(gal), Density(ppg), Type'

  301.             DO j = 1 , data%State%FricPressDrop%NumbEl

  302.                 WRITE (*,*) j, FlowEl(j)%Volume * ConvFt3toUSGal , FlowEl(j)%Density, FlowEl(j)%MaterialType

  303.             END DO

  304.         

  305.             CALL ErrorStop('Density below water density (8.33)', i)

  306.             CYCLE

  307.         END IF

  308.         

  309.         FlowEl(i)%Theta600 = Theta600Refrence + 11.0 * (MAX(FlowEl(i)%density , 8.33) - DensityRefrence)

  310.         FlowEl(i)%Theta300 = Theta300Refrence + 6.0 * (MAX(FlowEl(i)%density , 8.33) - DensityRefrence)

  311. !WRITE (*,*) 'i, Theta600, Theta600', i, FlowEl(i)%Theta600, FlowEl(i)%Theta300

  312.     END DO

  313. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  314. 

  315.     

  316.     FlowEl(:)%FlowRate = 0.0

  317.     FlowEl(:)%StartPress = 0.0

  318.     FlowEl(:)%EndPress = 0.0

  319.     

  320. !WRITE (*,*) 'NoGasPocket=' , SIZE(GasPocketWeight%Array)

  321.     

  322.     

  323.     

  324. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  325.     

  326. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  327.     

  328.     data%State%MudSystem%OpenArea32 = ((data%Equipments%ChokeManifold%LeftManualChoke * (1.0 - data%State%FricPressDrop%ManChoke1Plug * REAL(data%problems%ChokeProblems%ManualChoke1PluggedPercent)) / 100.0) + 0.5 * data%State%FricPressDrop%ManChoke1Washout) * data%State%Choke%ChokeAreaFullyOpen

  329.     data%State%MudSystem%OpenArea33 = data%State%CHOOKE(1)%AreaChokeFinal * Convfttoinch**2              !  (1.d0 - data%State%CHOOKE(1)%PercentClose) * ChokeAreaFullyOpen

  330.     data%State%MudSystem%OpenArea34 = data%State%CHOOKE(2)%AreaChokeFinal * Convfttoinch**2              !  (1.d0 - data%State%CHOOKE(2)%PercentClose) * ChokeAreaFullyOpen

  331.     data%State%MudSystem%OpenArea35 = ((data%Equipments%ChokeManifold%RightManualChoke * (1.0 - data%State%FricPressDrop%ManChoke2Plug * REAL(data%problems%ChokeProblems%ManualChoke2PluggedPercent)) / 100.0) + 0.5 * data%State%FricPressDrop%ManChoke2Washout) * data%State%Choke%ChokeAreaFullyOpen

  332. !write(*,*) 'OpenArea32=' , OpenArea32, active32, ManChoke1Plug, ManualChoke1PluggedPercent, ManChoke1Washout

  333. !write(*,*) 'OpenArea33=' , OpenArea33, active33

  334. !write(*,*) 'OpenArea34=' , OpenArea34, active34, !HydraulicChoke2PluggedPercent

  335. !write(*,*) 'OpenArea35=' , OpenArea35, active35, ManChoke2Plug, ManualChoke2PluggedPercent, ManChoke2Washout

  336.     InstantaneousTotalOpenChokeArea = data%State%MudSystem%OpenArea32 * active32 + data%State%MudSystem%OpenArea33 * active33 + data%State%MudSystem%OpenArea34 * active34 + data%State%MudSystem%OpenArea35 * active35 + data%State%FricPressDrop%ChokeBypassArea * active29

  337.     data%State%FricPressDrop%OldTotalOpenChokeArea = data%State%FricPressDrop%TotalOpenChokeArea

  338. !WRITE (*,*) 'Instantaneous / Old TotalOpenChokeArea', InstantaneousTotalOpenChokeArea, OldTotalOpenChokeArea

  339.     IF (data%State%FricPressDrop%OldTotalOpenChokeArea <= 0.01 * data%State%Choke%ChokeAreaFullyOpen)     data%State%FricPressDrop%OldTotalOpenChokeArea = 0.01 * data%State%Choke%ChokeAreaFullyOpen

  340.     IF (InstantaneousTotalOpenChokeArea <= 0.01 * data%State%Choke%ChokeAreaFullyOpen) THEN

  341.         data%State%MudSystem%WellToChokeManifoldOpen = .FALSE.

  342.         data%State%FricPressDrop%OldTotalOpenChokeArea = 0.01 * data%State%Choke%ChokeAreaFullyOpen

  343. !WRITE (*,*) ' Choke Controler Here 2'

  344.         

  345.     ELSE IF (InstantaneousTotalOpenChokeArea > 0.5 * data%State%Choke%ChokeAreaFullyOpen .OR. data%State%MudSystem%WellToPitsOpen) THEN

  346. ! mud flows through well to bell nipple, or choke is rather open

  347.         data%State%FricPressDrop%TotalOpenChokeArea = InstantaneousTotalOpenChokeArea

  348. !WRITE (*,*) ' Choke Controler Here 1'

  349.     ELSE

  350.         IF (InstantaneousTotalOpenChokeArea > data%State%FricPressDrop%OldTotalOpenChokeArea) THEN

  351.             data%State%FricPressDrop%TotalOpenChokeArea = MIN(1.1 * data%State%FricPressDrop%OldTotalOpenChokeArea , InstantaneousTotalOpenChokeArea)

  352.             WRITE (*,*) ' Choke is opening' !, TotalOpenChokeArea, OldTotalOpenChokeArea, InstantaneousTotalOpenChokeArea

  353.         ELSE IF (InstantaneousTotalOpenChokeArea < data%State%FricPressDrop%OldTotalOpenChokeArea) THEN

  354.             data%State%FricPressDrop%TotalOpenChokeArea = MAX(0.9 * data%State%FricPressDrop%OldTotalOpenChokeArea , InstantaneousTotalOpenChokeArea)

  355.             WRITE (*,*) ' Choke is closing' !, TotalOpenChokeArea, OldTotalOpenChokeArea, InstantaneousTotalOpenChokeArea

  356.         ELSE

  357.             data%State%FricPressDrop%TotalOpenChokeArea = InstantaneousTotalOpenChokeArea

  358.         END IF

  359.     END IF

  360. !WRITE (*,*) 'TotalOpenChokeArea=', TotalOpenChokeArea

  361.     

  362.         

  363.     

  364.     

  365.             

  366. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  367.     

  368. !!!!!!!!!!!!!!!!!!!!  Well Head Condition ( Open or Closed )

  369.     KickVARIABLES%ChokeKroneckerDelta = 0

  370. !WRITE (*,*) ' WelltoPitsOpen = ', WelltoPitsOpen

  371. !WRITE (*,*) ' WellToChokeManifoldOpen = ', WellToChokeManifoldOpen

  372.     IF (data%State%MudSystem%WellToPitsOpen == .FALSE. .AND. data%State%MudSystem%WellToChokeManifoldOpen == .FALSE.) THEN

  373. !WRITE (*,*) ' WelltoPitsOpen = ', WelltoPitsOpen

  374. !WRITE (*,*) ' WellToChokeManifoldOpen = ', WellToChokeManifoldOpen

  375.         

  376.         KickVARIABLES%WellHeadOpen = .FALSE.

  377. !WRITE (*,*) ' Well Head is closed '

  378.     ELSE

  379.         KickVARIABLES%WellHeadOpen = .TRUE.

  380.     END IF

  381.     

  382.     IF (data%State%MudSystem%WellToPitsOpen == .FALSE. .AND. data%State%MudSystem%WellToChokeManifoldOpen)        KickVARIABLES%ChokeKroneckerDelta = 1

  383. !WRITE (*,*) ' WelltoPitsOpen=' , WelltoPitsOpen, 'WellToChokeManifoldOpen= ' , WellToChokeManifoldOpen

  384. !WRITE (*,*) 'WellToChokeOpen , WellToChokeWasOpen', WellToChokeManifoldOpen, KickVARIABLES%WellToChokeManifoldWasOpen

  385. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  386. 

  387.     IF (KickVARIABLES%NoGasPocket > 0) THEN

  388.         IF (data%State%MudSystem%Choke_Kick_Saved_Volume_Final > 0.d0) THEN

  389. !WRITE (*,*) 'Choke_Kick_Saved_Volume_Final=', Choke_Kick_Saved_Volume_Final, (GasPocketModifiedVol%Array(NoGasPocket) * Convft3ToUSgal)

  390.             KickVARIABLES%ExitMass = REAL(data%State%MudSystem%Choke_Kick_Saved_Volume_Final / (GasPocketModifiedVol%Array(KickVARIABLES%NoGasPocket) * Convft3ToUSgal)) * GasPocketWeight%Array(KickVARIABLES%NoGasPocket)

  391. !IF (NoGasPocket > 1)        ExitMass = ExitMass + (SUM(GasPocketDeltaVol%Array(1 : NoGasPocket - 1)) / GasPocketNewVol%Array(NoGasPocket)) * GasPocketWeight%Array(NoGasPocket)

  392. !WRITE (*,*) 'Total Exit mass=' , ExitMass !, DeltaVolumePipe, data%State%MudSystem%StringFlowRate * dt / ConvMinToSec

  393.             IF (FlowEl(data%State%FricPressDrop%OpenholeFirstEl - 1)%MaterialType /= 1) THEN

  394.                 CALL RemoveGasPocket(KickVARIABLES%NoGasPocket)

  395.                 WRITE (*,*) 'Choke_Kick_Saved_Volume_Final=', data%State%MudSystem%Choke_Kick_Saved_Volume_Final

  396.             END IF

  397.             

  398.         END IF

  399.         

  400.         

  401. !NoGasPocket = SIZE(GasPocketWeight%Array)

  402.         IF (KickVARIABLES%NoGasPocket > 0)         CALL GasPocketFlowElementTransformer

  403.     END IF

  404.     

  405.     IF (data%State%FricPressDrop%NoWelltoChokeEl > 0) THEN

  406.         KickVARIABLES%OldChokeDensity = KickVARIABLES%ChokeDensity

  407.         VolumeDensityProduct = 0.0

  408.         Do i = data%State%FricPressDrop%AnnulusLastEl + 1 , data%State%FricPressDrop%OpenholeFirstEl - 1

  409.             VolumeDensityProduct = VolumeDensityProduct + ((MAX(FlowEl(i)%Density , KickVARIABLES%ChokeMinDensity)) * FlowEl(i)%Volume)

  410.         End Do

  411.         KickVARIABLES%ChokeDensity = VolumeDensityProduct / SUM(FlowEl(data%State%FricPressDrop%AnnulusLastEl + 1 : data%State%FricPressDrop%OpenholeFirstEl - 1)%Volume)

  412.                             

  413. !WRITE (*,*) 'ChokeDensity=', KickVARIABLES%ChokeDensity

  414.         data%State%FricPressDrop%Kchoke = (KickVARIABLES%ChokeDensity / ((2.0 * 89158.0) * (0.26 * 0.61 * data%State%FricPressDrop%TotalOpenChokeArea)**2)) * 4.d0    ! *4.d0: seyyed gofte

  415.     END IF

  416.     

  417.     IF (data%State%FricPressDrop%BitTotallyPluged == .FALSE.) THEN

  418.         data%State%FricPressDrop%KBit = FlowEl(data%State%FricPressDrop%StringLastEl)%density / 12042.0 / BitCd**2 / BitTotNozzArea**2

  419.     END IF

  420.     

  421.     

  422.     

  423. END SUBROUTINE WellPressureDataTransfer

  424.     

  425.     

  426. SUBROUTINE GasPocketFlowElementTransformer

  427. 

  428. !! This Subroutine makes relationship between fluid flow elements and gas pocket elements

  429. !! The main variable of this subroutine is GasPocketFlowEl

  430. !! For each gas pocket, GasPocketFlowEl has a row, which columns are numbers of flow elements which are contains that gas pocket

  431. !! For example, if we have two gas pockets and they are in (7,8) and (12,3,4) flow elements respectively,

  432. !! GasPocketFlowEl(1,:) = [12 , 3 , 4] and GasPocketFlowEl(2,:) = [7 , 8 , 0]

  433. 

  434. 

  435.     USE FricPressDropVarsModule

  436.     USE MudSystemVARIABLES

  437. use SimulationVariables !@@@

  438.     USE GeoElements_FluidModule

  439.     USE Fluid_Flow_Startup_Vars

  440.     use KickVARIABLESModule

  441.     USE CMudPropertiesVariables

  442.     USE CBopStackVariables

  443.     USE CDownHoleVariables

  444.     USE CError

  445.     

  446.     IMPLICIT NONE

  447.     

  448.     INTEGER :: i , j , k

  449.     REAL :: PressureCorrection

  450.     PressureCorrection = 1.0

  451.     

  452.     ALLOCATE(KickVARIABLES%GasPocketFlowEl(KickVARIABLES%NoGasPocket , 1))

  453.     KickVARIABLES%GasPocketFlowEl(:,:) = 0

  454. !WRITE (*,*) 'NoGasPocket=' , NoGasPocket

  455.     

  456.     i = 1

  457.     j = 1

  458.     DO k = data%State%FricPressDrop%OpenholeFirstEl , data%State%FricPressDrop%NumbEl

  459.         IF (FlowEl(k)%MaterialType == 1) THEN

  460.             IF (j > 1) THEN

  461.                 IF (KickVARIABLES%GasPocketFlowEl(i , j - 1) /= k - 1) THEN

  462.                     i = i + 1

  463.                     j = 1

  464.                 END IF

  465.             END IF

  466.             

  467.             IF (SIZE(KickVARIABLES%GasPocketFlowEl , dim = 2) < j) THEN

  468.                 ALLOCATE(KickVARIABLES%tempGasPocketFlowEl(SIZE(KickVARIABLES%GasPocketFlowEl , dim = 1) , SIZE(KickVARIABLES%GasPocketFlowEl , dim = 2)))

  469.                 KickVARIABLES%tempGasPocketFlowEl = KickVARIABLES%GasPocketFlowEl

  470.                 DEALLOCATE(KickVARIABLES%GasPocketFlowEl)

  471.                 ALLOCATE(KickVARIABLES%GasPocketFlowEl(SIZE(KickVARIABLES%tempGasPocketFlowEl , dim = 1) , SIZE(KickVARIABLES%tempGasPocketFlowEl , dim = 2) + 1))

  472.                 KickVARIABLES%GasPocketFlowEl(: , 1 : SIZE(KickVARIABLES%tempGasPocketFlowEl , dim = 2)) = KickVARIABLES%tempGasPocketFlowEl

  473.                 KickVARIABLES%GasPocketFlowEl(: , SIZE(KickVARIABLES%GasPocketFlowEl , dim = 2)) = 0

  474.                 DEALLOCATE(KickVARIABLES%tempGasPocketFlowEl)

  475.             END IF

  476.             

  477.             KickVARIABLES%GasPocketFlowEl(i , j) = k

  478.             j = j + 1

  479.         END IF

  480.     END DO

  481. !WRITE (*,*) 'GasPocketFlowEl=' , GasPocketFlowEl

  482.     

  483.     DO k = data%State%FricPressDrop%AnnulusFirstEl , data%State%FricPressDrop%OpenholeFirstEl - 1

  484.         IF (FlowEl(k)%MaterialType == 1) THEN

  485.             IF (j > 1) THEN

  486.                 IF (k == data%State%FricPressDrop%AnnulusFirstEl  .AND.  KickVARIABLES%GasPocketFlowEl(i , j - 1) == data%State%FricPressDrop%NumbEl) THEN

  487. !WRITE (*,*) 'Kick is Around Bit'

  488.                 ELSE IF (KickVARIABLES%GasPocketFlowEl(i , j - 1) /= k - 1) THEN

  489.                     i = i + 1

  490.                     j = 1

  491. !WRITE (*,*) 'i, j, k', i, j, k, FlowEl(k)%MaterialType

  492.                 END IF

  493.             END IF

  494.             

  495.             IF (j > SIZE(KickVARIABLES%GasPocketFlowEl , dim = 2)) THEN

  496.                 ALLOCATE(KickVARIABLES%tempGasPocketFlowEl(SIZE(KickVARIABLES%GasPocketFlowEl , dim = 1) , SIZE(KickVARIABLES%GasPocketFlowEl , dim = 2)))

  497.                 KickVARIABLES%tempGasPocketFlowEl = KickVARIABLES%GasPocketFlowEl

  498.                 DEALLOCATE(KickVARIABLES%GasPocketFlowEl)

  499.                 ALLOCATE(KickVARIABLES%GasPocketFlowEl(SIZE(KickVARIABLES%tempGasPocketFlowEl , dim = 1) , SIZE(KickVARIABLES%tempGasPocketFlowEl , dim = 2) + 1))

  500.                 KickVARIABLES%GasPocketFlowEl(: , 1 : SIZE(KickVARIABLES%tempGasPocketFlowEl , dim = 2)) = KickVARIABLES%tempGasPocketFlowEl

  501.                 KickVARIABLES%GasPocketFlowEl(: , SIZE(KickVARIABLES%GasPocketFlowEl , dim = 2)) = 0

  502.                 DEALLOCATE(KickVARIABLES%tempGasPocketFlowEl)

  503.             END IF

  504.             IF (i > KickVARIABLES%NoGasPocket) THEN

  505.                 WRITE (*,*) 'GasPocketFlowEl', KickVARIABLES%GasPocketFlowEl

  506.                 WRITE (*,*) 'i , j , k', i, j, k

  507.                 WRITE (*,*) 'H, S, A, Ch, O', data%State%FricPressDrop%NoHorizontalEl , data%State%FricPressDrop%StringFirstEl , data%State%FricPressDrop%AnnulusFirstEl , data%State%FricPressDrop%NoWellToChokeEl , data%State%FricPressDrop%OpenHoleFirstEl

  508.             

  509.                 WRITE (*,*) 'Element No, Volume(gal), Density(ppg),         Type'

  510.                 DO j = 1 , data%State%FricPressDrop%NumbEl

  511.                     WRITE (*,*) j, FlowEl(j)%Volume * ConvFt3toUSGal , FlowEl(j)%Density, FlowEl(j)%MaterialType

  512.                 END DO

  513. 

  514.                 CALL ErrorStop('Error in calculating GasPocketFlowEl')

  515.             END IF

  516. 

  517.             KickVARIABLES%GasPocketFlowEl(i , j) = k

  518. !WRITE (*,*) 'GasPocketFlowEl=' , GasPocketFlowEl

  519.             j = j + 1

  520.             

  521.         END IF

  522. !IF (i > NoGasPocket)        CALL ErrorStop('Error in GasPocketFlowEl' , i)

  523.     END DO

  524.     

  525. 

  526. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  527.     

  528. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  529.     GasPocketModifiedVol%Array(:) = 0.d0

  530.     

  531.     DO i = 1 , KickVARIABLES%NoGasPocket

  532. !WRITE(*,*) 'GasPocketFlowEl Data' , i , GasPocketFlowEl(: , i)

  533.         DO j = 1 , SIZE(KickVARIABLES%GasPocketFlowEl , dim = 2)

  534.             IF (KickVARIABLES%GasPocketFlowEl(i , j) > 0)     GasPocketModifiedVol%Array(i) = GasPocketModifiedVol%Array(i) + FlowEl(KickVARIABLES%GasPocketFlowEl(i , j))%Volume

  535.         END DO

  536.     END DO

  537.     i = data%State%FricPressDrop%AnnulusLastEl

  538.     j = data%State%FricPressDrop%OpenholeFirstEl - 1

  539.     

  540.     

  541.     GasPocketOldVol%Array(:) = GasPocketModifiedVol%Array(:)

  542.     

  543.     GasPocketOldPress%Array(:) = GasPocketNewPress%Array(:)

  544. !WRITE (*,*) ' GasPocketweight%Array(1)', GasPocketweight%Array(1)

  545.     IF (GasPocketWeight%Array(1) < 0.0)     CALL ErrorStop(' Error in Calculating Mass ' , KickVARIABLES%KickmdotBCoef)

  546.     

  547.     

  548.     GasPocketDensity%Array(:) = (GasPocketweight%Array(:) / GasPocketModifiedVol%Array(:)) / convft3toUSgal     ! [lbm/ft^3 to ppg]

  549.     DO i = 1 , SIZE(KickVARIABLES%GasPocketFlowEl , dim = 1)

  550.         DO j = 1 , SIZE(KickVARIABLES%GasPocketFlowEl , dim = 2)

  551.             IF (KickVARIABLES%GasPocketFlowEl(i , j) > 0)     FlowEl(KickVARIABLES%GasPocketFlowEl(i , j))%Density = GasPocketDensity%Array(i)

  552.         END DO

  553.     END DO

  554.     

  555.     

  556. !WRITE (*,*) 'Kick density (ppg)=' , GasPocketDensity(1)

  557.     data%Equipments%DownHole%InfluxRate = MAX(((KickVARIABLES%KickmdotACoef * (KickVARIABLES%KickmdotBCoef - GasPocketNewPress%Array(1))) / GasPocketDensity%Array(1) * ConvMinToSec) , 0.0)

  558. !WRITE (*,*) ' InfluxRate (gpm) =', InfluxRate

  559.     

  560.     i = data%State%FricPressDrop%OpenholeFirstEl - 1

  561.     IF (data%State%MudSystem%Choke_Kick_Saved_Volume_Final > 0.d0 .AND. KickVARIABLES%WellHeadOpen) THEN

  562.         WRITE (*,*) 'Kick is exiting through the choke'

  563. !KickVARIABLES%ExitMass = GasPocketDensity%Array(NoGasPocket) * (SUM(GasPocketFlowInduced%Array(:)) + (DeltaVolumePipe * ConvMinToSec / dt) + data%State%MudSystem%StringFlowRate) / ConvMinToSec * dt

  564.         GasPocketWeight%Array(KickVARIABLES%NoGasPocket) = GasPocketweight%Array(KickVARIABLES%NoGasPocket) - KickVARIABLES%ExitMass

  565.         IF (GasPocketWeight%Array(KickVARIABLES%NoGasPocket) > 0.0) THEN

  566.             GasPocketOldPress%Array(KickVARIABLES%NoGasPocket) = GasPocketWeight%Array(KickVARIABLES%NoGasPocket) * data%State%GasType(KickVARIABLES%KickGasType)%GasConstant * &

  567.                                                     GasPocketCompressibility%Array(KickVARIABLES%NoGasPocket) * GasPocketNewTemp%Array(KickVARIABLES%NoGasPocket) / GasPocketModifiedVol%Array(KickVARIABLES%NoGasPocket)

  568.             GasPocketDensity%Array(KickVARIABLES%NoGasPocket) = (GasPocketweight%Array(KickVARIABLES%NoGasPocket) / GasPocketModifiedVol%Array(KickVARIABLES%NoGasPocket)) / convft3toUSgal

  569.             GasPocketNewVol%Array(:) = GasPocketOldVol%Array(:)

  570.         ELSE    ! gas pocket is escaped from the well completely

  571.             WRITE (*,*) ' Last Pocket Removed'

  572.             WRITE (*,*) ' GasPocketFlowEl', KickVARIABLES%GasPocketFlowEl

  573.             CALL RemoveGasPocket(KickVARIABLES%NoGasPocket)

  574.             

  575. !WRITE (*,*) ' GasPocketFlowEl', GasPocketFlowEl

  576.             

  577.         END IF

  578.         

  579.     ELSE IF (KickVARIABLES%NoGasPocket == 1 .OR. KickVARIABLES%WellHeadOpen) THEN        ! kick is not last element of choke line or well head is closed

  580.             GasPocketNewPress%Array(:) = GasPocketNewPress%Array(:) * REAL(GasPocketNewVol%Array(:) / GasPocketOldVol%Array(:))

  581.             GasPocketOldPress%Array(:) = GasPocketNewPress%Array(:)

  582.             GasPocketNewVol%Array(:) = GasPocketOldVol%Array(:)

  583.     

  584.     ELSE    ! Many gas pocket is in the well and well head is closed

  585.         

  586. 103     FORMAT (2I, 4X, (F9.3), 5X, (F9.3))

  587.         

  588.         GasPocketNewPress%Array(KickVARIABLES%NoGasPocket) = GasPocketOldPress%Array(KickVARIABLES%NoGasPocket)

  589.         GasPocketNewVol%Array(KickVARIABLES%NoGasPocket) = GasPocketCompressibility%Array(KickVARIABLES%NoGasPocket) * data%State%GasType(KickVARIABLES%KickGasType)%GasConstant * &

  590.                             GasPocketNewTemp%Array(KickVARIABLES%NoGasPocket) * GasPocketWeight%Array(KickVARIABLES%NoGasPocket) / GasPocketNewPress%Array(KickVARIABLES%NoGasPocket)

  591.         

  592.         

  593.         

  594. !WRITE (*,*) 'Mid'

  595.         DO WHILE (ABS(PressureCorrection * 10.0) > KickConvergenceTolerance)

  596.             DO j = KickVARIABLES%NoGasPocket - 1 , 1 , -1

  597.                 CALL KickFunctionsCalculator(GasPocketNewPress%Array(j) , j , 5)

  598.                 GasPocketNewVol%Array(j) = GasPocketCompressibility%Array(j) * data%State%GasType(KickVARIABLES%KickGasType)%GasConstant * &

  599.                             GasPocketNewTemp%Array(j) * GasPocketWeight%Array(j) / GasPocketNewPress%Array(j)

  600. !WRITE (*,*) j, REAL(GasPocketNewPress%Array(j)), REAL(GasPocketNewVol%Array(j) * Convft3toUSgal)

  601.             END DO

  602.             PressureCorrection = (SUM(GasPocketNewVol%Array(:)) - SUM(GasPocketOldVol%Array(:))) / SUM(GasPocketNewVol%Array(:) / GasPocketNewPress%Array(:))

  603.             GasPocketNewPress%Array(KickVARIABLES%NoGasPocket) = GasPocketNewPress%Array(KickVARIABLES%NoGasPocket) + PressureCorrection

  604.             GasPocketNewVol%Array(KickVARIABLES%NoGasPocket) = GasPocketCompressibility%Array(KickVARIABLES%NoGasPocket) * data%State%GasType(KickVARIABLES%KickGasType)%GasConstant * &

  605.                             GasPocketNewTemp%Array(KickVARIABLES%NoGasPocket) * GasPocketWeight%Array(KickVARIABLES%NoGasPocket) / GasPocketNewPress%Array(KickVARIABLES%NoGasPocket)

  606.             j = KickVARIABLES%NoGasPocket

  607. !WRITE (*,*) j, REAL(GasPocketNewPress%Array(j)), REAL(GasPocketNewVol%Array(j) * Convft3toUSgal)

  608.         END DO

  609.         

  610. !WRITE (*,*) 'Pressure Correction = ', PressureCorrection

  611.         WRITE (*,*) 'After'

  612.         DO i = 1 , KickVARIABLES%NoGasPocket

  613.             WRITE (*,*) i, REAL(GasPocketNewPress%Array(i)), REAL((GasPocketNewVol%Array(i) * Convft3toUSgal))

  614.         END DO

  615.         

  616.         GasPocketOldPress%Array(:) = GasPocketNewPress%Array(:)

  617.         

  618.     END IF

  619.     

  620.     

  621.     IF (KickVARIABLES%GasPocketFlowEl(KickVARIABLES%NoGasPocket , 1) == 0) THEN

  622.         CALL RemoveGasPocket(1)

  623.         

  624. !WRITE (*,*) 'GasPocketFlowEl', GasPocketFlowEl

  625.         WRITE (*,*) 'First Pocket Removed'

  626. !WRITE (*,*) 'GasPocketFlowEl', GasPocketFlowEl

  627.     END IF

  628.     

  629.     

  630.     

  631.     data%Equipments%DownHole%KickVolume = INT(SUM(GasPocketOldVol%Array(:)) * convft3toUSgal / 42. * 10.0) / 10.0

  632.     

  633.     

  634. !WRITE (*,*) ' Gas Kick Pressure (psi) = ' , GasPocketOldPress(1) , INT((GasPocketNewVol(1) / GasPocketOldVol(1)) * 1000.d0) / 1000.d0

  635. !WRITE (*,*) ' b) GasPocketNewVol (ft^3) = ' , GasPocketOldVol(1)

  636.         

  637.         

  638.     

  639.     END SUBROUTINE

  640.     

  641.     

  642. SUBROUTINE RemoveGasPocket(ilocal)

  643.     

  644.     use KickVARIABLESModule

  645.     USE MudSystemVARIABLES

  646. use SimulationVariables !@@@

  647.     

  648.     IMPLICIT NONE

  649.     

  650.     INTEGER :: ilocal

  651. 

  652.     DEALLOCATE(KickVARIABLES%KickJacobian , KickVARIABLES%OldKickJacobian , KickVARIABLES%KickVandPFunction , KickVARIABLES%KickUnknownVector , KickVARIABLES%KickCorrectionVector)

  653.     

  654.         

  655.     WRITE (*,*) 'Gas Pocket Will be Removed', ilocal

  656.     call GasPocketOldPress%Remove(ilocal)

  657.     call GasPocketNewPress%Remove(ilocal)

  658.     call GasPocketOldTemp%Remove(ilocal)

  659.     call GasPocketNewTemp%Remove(ilocal)

  660.     call GasPocketOldVol%Remove(ilocal)

  661.     call GasPocketNewVol%Remove(ilocal)

  662.     call GasPocketDeltaVol%Remove(ilocal)

  663.     call GasPocketFlowInduced%Remove(ilocal)

  664.     call GasPocketModifiedVol%Remove(ilocal)

  665.     call GasPocketWeight%Remove(ilocal)

  666.     call GasPocketDensity%Remove(ilocal)

  667.     call GasPocketCompressibility%Remove(ilocal)

  668.     

  669.     KickVARIABLES%NoGasPocket = KickVARIABLES%NoGasPocket - 1

  670.      

  671.     IF (KickVARIABLES%NoGasPocket > 0) THEN

  672.         ALLOCATE(KickVARIABLES%KickJacobian(2 * KickVARIABLES%NoGasPocket , 2 * KickVARIABLES%NoGasPocket) , KickVARIABLES%OldKickJacobian(2 * KickVARIABLES%NoGasPocket , 2 * KickVARIABLES%NoGasPocket) , KickVARIABLES%KickVandPFunction(2 * KickVARIABLES%NoGasPocket))

  673.         ALLOCATE(KickVARIABLES%KickUnknownVector(2 * KickVARIABLES%NoGasPocket) , KickVARIABLES%KickCorrectionVector(2 * KickVARIABLES%NoGasPocket))

  674.         

  675.         IF (ALLOCATED(KickVARIABLES%GasPocketFlowEl)) THEN

  676.             ALLOCATE(KickVARIABLES%tempGasPocketFlowEl(KickVARIABLES%NoGasPocket , SIZE(KickVARIABLES%GasPocketFlowEl , dim = 2)))

  677.             KickVARIABLES%tempGasPocketFlowEl = KickVARIABLES%GasPocketFlowEl(1 : KickVARIABLES%NoGasPocket , :)

  678.             DEALLOCATE(KickVARIABLES%GasPocketFlowEl)

  679.             ALLOCATE(KickVARIABLES%GasPocketFlowEl(SIZE(KickVARIABLES%tempGasPocketFlowEl , dim = 1) , SIZE(KickVARIABLES%tempGasPocketFlowEl , dim = 2)))

  680.             KickVARIABLES%GasPocketFlowEl = KickVARIABLES%tempGasPocketFlowEl

  681.             DEALLOCATE(KickVARIABLES%tempGasPocketFlowEl)

  682.         END IF

  683.         

  684.     ELSE        ! NoGasPocket = 0

  685.         

  686.         

  687.         CALL GasPocketOldPress%Empty

  688.         CALL GasPocketNewPress%Empty

  689.         CALL GasPocketOldTemp%Empty

  690.         CALL GasPocketNewTemp%Empty

  691.         CALL GasPocketOldVol%Empty

  692.         CALL GasPocketNewVol%Empty

  693.         CALL GasPocketDeltaVol%Empty

  694.         CALL GasPocketFlowInduced%Empty

  695.         CALL GasPocketModifiedVol%Empty

  696.         CALL GasPocketWeight%Empty

  697.         CALL GasPocketDensity%Empty

  698.         

  699.         data%Equipments%DownHole%InfluxRate = 0.0

  700.         data%Equipments%DownHole%KickVolume = 0.0

  701.                 

  702.     END IF         

  703.     

  704. !WRITE (*,*) 'Gas Pocket Removed', NoGasPocket + 1, ALLOCATED(GasPocketWeight%Array)

  705.     

  706. END SUBROUTINE     

  707.                    

  708.                    

  709.                    

  710.                    

  711.                    

  712.                    

  713.