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

282 lines
20 KiB
Raw Blame History 

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

  2. subroutine ElementsCreation    !  is called in subroutine Fluid_Flow_Solver

  3.     

  4.         Use GeoElements_FluidModule

  5.         USE CMudPropertiesVariables

  6.         USE MudSystemVARIABLES

  7. use SimulationVariables !@@@

  8.         use SimulationVariables

  9.         USE CHOKEVARIABLES

  10. !use ConfigurationVariables !@

  11. !use CDataDisplayConsole

  12. !@ use ConfigurationVariables ,  StandPipePressureDataDisplay=>StandPipePressure

  13. !use CManifolds

  14.         use SimulationVariables !@

  15.         USE CHOKEVARIABLES

  16. !use ConfigurationVariables !@

  17. !use CChokeManifoldVariables

  18.     use SimulationVariables

  19. ! !use CTanks

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

  21.         USE sROP_Other_Variables

  22.         USE sROP_Variables

  23.         use KickVARIABLESModule

  24.         use CError

  25.    

  26.    implicit none

  27.    

  28.    integer jelement, jmud, jsection,ielement,i

  29.    integer jopelement,jopmud,jopsection,iisection,isection,OpSection

  30.    

  31. !===========================================================WELL============================================================

  32. !===========================================================WELL============================================================

  33. 

  34.         if(allocated(data%State%MudSystem%Xstart_PipeSection)) deallocate(data%State%MudSystem%Xstart_PipeSection)

  35.         if(allocated(data%State%MudSystem%Xend_PipeSection)) deallocate(data%State%MudSystem%Xend_PipeSection)

  36.         if(allocated(data%State%MudSystem%PipeSection_VolumeCapacity)) deallocate(data%State%MudSystem%PipeSection_VolumeCapacity)

  37.         if(allocated(data%State%MudSystem%Area_PipeSectionFt)) deallocate(data%State%MudSystem%Area_PipeSectionFt)

  38.         if(allocated(data%State%MudSystem%GeoType)) deallocate(data%State%MudSystem%GeoType)

  39.         if(allocated(data%State%MudSystem%OD_PipeSectionInch)) deallocate(data%State%MudSystem%OD_PipeSectionInch)

  40.         if(allocated(data%State%MudSystem%ID_PipeSectionInch)) deallocate(data%State%MudSystem%ID_PipeSectionInch)

  41.         if(allocated(data%State%MudSystem%Angle_PipeSection)) deallocate(data%State%MudSystem%Angle_PipeSection)

  42.         

  43.         if(allocated(data%State%MudSystem%Xstart_OpSection)) deallocate(data%State%MudSystem%Xstart_OpSection)

  44.         if(allocated(data%State%MudSystem%Xend_OpSection)) deallocate(data%State%MudSystem%Xend_OpSection)

  45.         if(allocated(data%State%MudSystem%OpSection_VolumeCapacity)) deallocate(data%State%MudSystem%OpSection_VolumeCapacity)

  46.         if(allocated(data%State%MudSystem%Area_OpSectionFt)) deallocate(data%State%MudSystem%Area_OpSectionFt)

  47.         if(allocated(data%State%MudSystem%GeoTypeOp)) deallocate(data%State%MudSystem%GeoTypeOp)

  48.         if(allocated(data%State%MudSystem%OD_OpSectionInch)) deallocate(data%State%MudSystem%OD_OpSectionInch)

  49.         if(allocated(data%State%MudSystem%ID_OpSectionInch)) deallocate(data%State%MudSystem%ID_OpSectionInch)

  50.         if(allocated(data%State%MudSystem%Angle_OpSection)) deallocate(data%State%MudSystem%Angle_OpSection)        

  51. 

  52.         

  53. 

  54. ALLOCATE (data%State%MudSystem%Xstart_PipeSection(data%State%F_Counts%StringIntervalCounts+data%State%F_Counts%AnnulusIntervalCounts),data%State%MudSystem%Xend_PipeSection(data%State%F_Counts%StringIntervalCounts+data%State%F_Counts%AnnulusIntervalCounts) &

  55.     ,data%State%MudSystem%PipeSection_VolumeCapacity(data%State%F_Counts%StringIntervalCounts+data%State%F_Counts%AnnulusIntervalCounts),data%State%MudSystem%Area_PipeSectionFt(data%State%F_Counts%StringIntervalCounts+data%State%F_Counts%AnnulusIntervalCounts), &

  56.     data%State%MudSystem%GeoType(data%State%F_Counts%StringIntervalCounts+data%State%F_Counts%AnnulusIntervalCounts),data%State%MudSystem%OD_PipeSectionInch(data%State%F_Counts%StringIntervalCounts+data%State%F_Counts%AnnulusIntervalCounts),data%State%MudSystem%ID_PipeSectionInch(data%State%F_Counts%StringIntervalCounts+data%State%F_Counts%AnnulusIntervalCounts))

  57. 

  58. 

  59. ALLOCATE (data%State%MudSystem%Xstart_OpSection(data%State%F_Counts%BottomHoleIntervalCounts),data%State%MudSystem%Xend_OpSection(data%State%F_Counts%BottomHoleIntervalCounts) &

  60.     ,data%State%MudSystem%OpSection_VolumeCapacity(data%State%F_Counts%BottomHoleIntervalCounts),data%State%MudSystem%Area_OpSectionFt(data%State%F_Counts%BottomHoleIntervalCounts), &

  61.     data%State%MudSystem%GeoTypeOp(data%State%F_Counts%BottomHoleIntervalCounts),data%State%MudSystem%OD_OpSectionInch(data%State%F_Counts%BottomHoleIntervalCounts),data%State%MudSystem%ID_OpSectionInch(data%State%F_Counts%BottomHoleIntervalCounts))

  62. 

  63.         data%State%MudSystem%OpSection=0

  64.         data%State%MudSystem%isection=0

  65. 

  66.   

  67.         DO iisection=1, data%State%F_Counts%IntervalsTotalCounts

  68.             IF (data%State%F_Interval(iisection)%GeoType  == 1) THEN

  69.                 data%State%MudSystem%OpSection= data%State%MudSystem%OpSection+1

  70.                 data%State%MudSystem%Xstart_OpSection(data%State%MudSystem%OpSection)= (data%State%F_Interval(iisection)%StartDepth)

  71.                 data%State%MudSystem%Xend_OpSection(data%State%MudSystem%OpSection)= (data%State%F_Interval(iisection)%EndDepth)

  72.                 data%State%MudSystem%Area_OpSectionFt(data%State%MudSystem%OpSection)= PII*((data%State%F_Interval(iisection)%OD/12.0d0)**2-(data%State%F_Interval(iisection)%ID/12.0d0)**2)/4.0d0   !D(in), AREA(ft^2)

  73.                 data%State%MudSystem%OD_OpSectionInch(data%State%MudSystem%OpSection)= (data%State%F_Interval(iisection)%OD)

  74.                 data%State%MudSystem%ID_OpSectionInch(data%State%MudSystem%OpSection)= (data%State%F_Interval(iisection)%ID)        !REAL(data%State%F_Interval(iisection)%Volume)

  75.                 data%State%MudSystem%GeoTypeOp(data%State%MudSystem%OpSection)= data%State%F_Interval(iisection)%GeoType     ! niaz nist ehtemalan

  76. !Angle_OpSection(OpSection)= data%State%F_Interval(iisection)%Angle

  77. !write(*,*) 'iisection=' , iisection

  78. !write(*,*) 'StartDepth=' , data%State%F_Interval(iisection)%StartDepth

  79. !write(*,*) 'EndDepth=' , data%State%F_Interval(iisection)%EndDepth

  80. !write(*,*) 'OD=' , data%State%F_Interval(iisection)%OD

  81. !write(*,*) 'ID=' , data%State%F_Interval(iisection)%ID

  82.             ELSE

  83.                 data%State%MudSystem%isection= data%State%MudSystem%isection+1

  84.                 data%State%MudSystem%Xstart_PipeSection(data%State%MudSystem%isection)= (data%State%F_Interval(iisection)%StartDepth)

  85. !write(*,*) 'data%State%F_Interval(iisection)%StartDepth=' , data%State%F_Interval(iisection)%StartDepth

  86.                 data%State%MudSystem%Xend_PipeSection(data%State%MudSystem%isection)= (data%State%F_Interval(iisection)%EndDepth)

  87. !write(*,*) 'data%State%F_Interval(iisection)%EndDepth=' , data%State%F_Interval(iisection)%EndDepth

  88.                 

  89.                 data%State%MudSystem%OD_PipeSectionInch(data%State%MudSystem%isection)= (data%State%F_Interval(iisection)%OD) 

  90.                 data%State%MudSystem%Area_PipeSectionFt(data%State%MudSystem%isection)= PII*((data%State%F_Interval(iisection)%OD/12.0d0)**2-(data%State%F_Interval(iisection)%ID/12.0d0)**2)/4.0d0   !D(in), AREA(ft^2)

  91.                 data%State%MudSystem%ID_PipeSectionInch(data%State%MudSystem%isection)= (data%State%F_Interval(iisection)%ID)

  92. !PipeSection_VolumeCapacity(isection)= Area_PipeSectionFt(isection)* ABS(Xend_PipeSection(isection)-Xstart_PipeSection(isection))* 7.48051948          !REAL(data%State%F_Interval(iisection)%Volume)      ! (gal)

  93.                 data%State%MudSystem%GeoType(data%State%MudSystem%isection)= data%State%F_Interval(iisection)%GeoType

  94. !Angle_PipeSection(isection)= data%State%F_Interval(iisection)%Angle

  95.             ENDIF

  96.             

  97.         ENDDO

  98. 

  99. 

  100.         

  101.         call data%State%MudSystem%Xstart_MudElement%Empty()   

  102.         call data%State%MudSystem%Xstart_MudElement%Add(data%State%MudSystem%Xstart_PipeSection(1))

  103.         

  104.         

  105.         call data%State%MudSystem%Xstart_OpMudElement%Empty()

  106.         call data%State%MudSystem%Xstart_OpMudElement%Add(data%State%MudSystem%Xstart_OpSection(1))

  107.         

  108.         

  109.         call data%State%MudSystem%TVDstart_MudElement%Empty()

  110.         call TVD_Calculator(data%State%MudSystem%Xstart_PipeSection(1),data%State%MudSystem%MudCircVerticalDepth)

  111.         call data%State%MudSystem%TVDstart_MudElement%Add(data%State%MudSystem%MudCircVerticalDepth)

  112.         

  113.         

  114.         call data%State%MudSystem%TVDstart_OpMudElement%Empty()

  115.         call TVD_Calculator(data%State%MudSystem%Xstart_OpSection(1),data%State%MudSystem%MudCircVerticalDepth)

  116.         call data%State%MudSystem%TVDstart_OpMudElement%Add(data%State%MudSystem%MudCircVerticalDepth)        

  117.         

  118.         

  119.         

  120.         data%State%MudSystem%NoPipeSections= data%State%MudSystem%isection        ! sections in string and annulus(GeoType 0 & 2)

  121. 

  122.         

  123.         DO OpSection= 1,data%State%F_Counts%BottomHoleIntervalCounts

  124.             data%State%MudSystem%OpSection_VolumeCapacity(OpSection)= data%State%MudSystem%Area_OpSectionFt(OpSection)* ABS(data%State%MudSystem%Xend_OpSection(OpSection)-data%State%MudSystem%Xstart_OpSection(OpSection))* 7.48051948d0          !REAL(data%State%F_Interval(iisection)%Volume)

  125.         ENDDO

  126.         data%State%MudSystem%OpSection=OpSection        

  127.         DO isection= 1,data%State%MudSystem%NoPipeSections

  128.             data%State%MudSystem%PipeSection_VolumeCapacity(isection)= data%State%MudSystem%Area_PipeSectionFt(isection)* ABS(data%State%MudSystem%Xend_PipeSection(isection)-data%State%MudSystem%Xstart_PipeSection(isection))* 7.48051948d0          !REAL(data%State%F_Interval(iisection)%Volume)      ! (gal)

  129.         ENDDO

  130.         data%State%MudSystem%isection = isection

  131.         

  132.   

  133.         

  134. !types:   Mud= 0  Kick=1

  135. 

  136. !===========================================

  137.         if (data%State%MudSystem%FirstMudSet==0) then

  138.             call data%State%MudSystem%Hz_MudDischarged_Volume%AddToFirst(data%State%MudSystem%PipeSection_VolumeCapacity(1))  !startup initial

  139.             call data%State%MudSystem%Hz_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Xstart_PipeSection(1))

  140.             call data%State%MudSystem%Hz_Mud_Backhead_section%AddToFirst (1)

  141.             call data%State%MudSystem%Hz_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Xend_PipeSection(1))

  142.             call data%State%MudSystem%Hz_Mud_Forehead_section%AddToFirst (1)

  143.             call data%State%MudSystem%Hz_Density%AddToFirst (data%Configuration%Mud%ActiveDensity)       ! initial(ppg)

  144.             call data%State%MudSystem%Hz_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  145.             call data%State%MudSystem%Hz_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)  

  146.             call data%State%MudSystem%Hz_MudOrKick%AddToFirst (0)  

  147.             

  148.             

  149.             call data%State%MudSystem%St_MudDischarged_Volume%AddToFirst(sum(data%State%MudSystem%PipeSection_VolumeCapacity(2:data%State%F_Counts%StringIntervalCounts)))  !startup initial

  150.             call data%State%MudSystem%St_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Xstart_PipeSection(2))

  151.             call data%State%MudSystem%St_Mud_Backhead_section%AddToFirst (2)

  152.             call data%State%MudSystem%St_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Xend_PipeSection(data%State%F_Counts%StringIntervalCounts))

  153.             call data%State%MudSystem%St_Mud_Forehead_section%AddToFirst (data%State%F_Counts%StringIntervalCounts)

  154.             call data%State%MudSystem%St_Density%AddToFirst (data%Configuration%Mud%ActiveDensity)       ! initial(ppg)

  155.             call data%State%MudSystem%St_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  156.             call data%State%MudSystem%St_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  157.             call data%State%MudSystem%St_MudOrKick%AddToFirst (0)  

  158.             

  159.                 

  160.             call data%State%MudSystem%Ann_MudDischarged_Volume%AddToFirst(sum(data%State%MudSystem%PipeSection_VolumeCapacity(data%State%F_Counts%StringIntervalCounts+1:data%State%MudSystem%NoPipeSections)))

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

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

  163.             call data%State%MudSystem%Ann_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Xend_PipeSection(data%State%MudSystem%NoPipeSections))

  164.             call data%State%MudSystem%Ann_Mud_Forehead_section%AddToFirst (data%State%MudSystem%NoPipeSections)

  165.             call data%State%MudSystem%Ann_Density%AddToFirst (data%Configuration%Mud%ActiveDensity)       ! initial(ppg)

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

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

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

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

  170.             

  171.             data%State%MudSystem%OldPosition= data%State%MudSystem%Xend_PipeSection(data%State%F_Counts%StringIntervalCounts)  

  172.             

  173.             data%State%MudSystem%OldAnnulusCapacity= sum(data%State%MudSystem%PipeSection_VolumeCapacity(data%State%F_Counts%StringIntervalCounts+1:data%State%MudSystem%NoPipeSections))

  174.                      

  175.             

  176.             call data%State%MudSystem%ChokeLine_MudDischarged_Volume%AddToFirst(data%State%MudSystem%ChokeLine_VolumeCapacity)

  177.             call data%State%MudSystem%ChokeLine_Mud_Backhead_X%AddToFirst (0.0d0)

  178.             call data%State%MudSystem%ChokeLine_Mud_Backhead_section%AddToFirst (1)

  179.             call data%State%MudSystem%ChokeLine_Mud_Forehead_X%AddToFirst (data%Configuration%BopStack%ChokeLineLength)

  180.             call data%State%MudSystem%ChokeLine_Mud_Forehead_section%AddToFirst (1)

  181.             call data%State%MudSystem%ChokeLine_Density%AddToFirst (data%Configuration%Mud%ActiveDensity)       ! initial(ppg)

  182.             call data%State%MudSystem%ChokeLine_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  183.             call data%State%MudSystem%ChokeLine_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  184.             call data%State%MudSystem%ChokeLine_MudOrKick%AddToFirst (0) 

  185.             

  186. 

  187.             call data%State%MudSystem%Op_MudDischarged_Volume%AddToFirst (sum(data%State%MudSystem%OpSection_VolumeCapacity(1:data%State%F_Counts%BottomHoleIntervalCounts)))

  188.             call data%State%MudSystem%Op_Mud_Backhead_X%AddToFirst (data%State%MudSystem%Xstart_OpSection(1))

  189.             call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (1)

  190.             call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Xend_OpSection(data%State%F_Counts%BottomHoleIntervalCounts))

  191.             call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%F_Counts%BottomHoleIntervalCounts)

  192.             call data%State%MudSystem%Op_Density%AddToFirst (data%Configuration%Mud%ActiveDensity)            

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

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

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

  196.             

  197. !F_StringIntervalCountsOld= F_StringIntervalCounts   ! is used for adding new pipe to string

  198.             data%State%MudSystem%F_StringIntervalCounts_Old= data%State%F_Counts%StringIntervalCounts   ! is used for adding new pipe to string

  199.             

  200.                 

  201.             data%State%MudSystem%FirstMudSet= 1     

  202.         endif

  203. 

  204.         

  205. !===================== Trip Detection ================

  206.         

  207. !DeltaVolumeOp > 0 : Trip in

  208. !DeltaVolumeOp < 0 : Trip out

  209. 

  210. 

  211.         data%State%MudSystem%DeltaVolumeOp= ((data%State%MudSystem%Xend_PipeSection(data%State%F_Counts%StringIntervalCounts)-data%State%MudSystem%OldPosition)*PII*((data%State%MudSystem%OD_PipeSectionInch(data%State%F_Counts%StringIntervalCounts+1)/12.0d0)**2)/4.0d0)* 7.48051948d0! ft^3  to gal    !   D(in)

  212.         data%State%MudSystem%DeltaVolumeOp = INT(data%State%MudSystem%DeltaVolumeOp * 100000.d0) / 100000.d0

  213.         

  214.         data%State%MudSystem%DeltaVolumePipe= ((data%State%MudSystem%Xend_PipeSection(data%State%F_Counts%StringIntervalCounts)-data%State%MudSystem%OldPosition)*PII*((data%State%MudSystem%ID_PipeSectionInch(data%State%F_Counts%StringIntervalCounts+data%State%F_Counts%AnnulusIntervalCounts)/12.0d0)**2)/4.0d0)* 7.48051948d0! ft^3  to gal

  215.         data%State%MudSystem%DeltaVolumePipe = INT(data%State%MudSystem%DeltaVolumePipe * 100000.d0) / 100000.d0

  216.         

  217. !DeltaVolumeAnnulusCapacity= ((Xend_PipeSection(data%State%F_Counts%StringIntervalCounts)-OldPosition))*Area_PipeSectionFt(NoPipeSections)* 7.48051948d0! ft^3  to gal

  218.         KickVARIABLES%DrillStringSpeed = (data%State%MudSystem%Xend_PipeSection(data%State%F_Counts%StringIntervalCounts)-data%State%MudSystem%OldPosition) / 0.1

  219.         

  220.         data%State%MudSystem%DeltaVolumeAnnulusCapacity= sum(data%State%MudSystem%PipeSection_VolumeCapacity(data%State%F_Counts%StringIntervalCounts+1:data%State%MudSystem%NoPipeSections)) - data%State%MudSystem%OldAnnulusCapacity

  221.         

  222.         

  223. !write(*,*) 'DeltaVolumeAnnulusCapacity= ' , DeltaVolumeAnnulusCapacity

  224.         

  225. !write(*,*) 'DeltaVolumePipe=' , DeltaVolumePipe

  226. !write(*,*) 'DeltaVolumeOp=' , DeltaVolumeOp

  227. !

  228. !

  229. !write(*,*) 'Bit here=' , Xend_PipeSection(data%State%F_Counts%StringIntervalCounts)

  230.         

  231.         

  232.         

  233.          

  234.         data%State%MudSystem%OldAnnulusCapacity= sum(data%State%MudSystem%PipeSection_VolumeCapacity(data%State%F_Counts%StringIntervalCounts+1:data%State%MudSystem%NoPipeSections))

  235. 

  236.         data%State%MudSystem%OldPosition= data%State%MudSystem%Xend_PipeSection(data%State%F_Counts%StringIntervalCounts)

  237.                 

  238. ! Needed for trip in or out:

  239.         if (data%State%MudSystem%Hz_Mud_Backhead_X%Length() == 0) then

  240.             

  241.                     CALL ErrorStop('Hz_Mud_Backhead_X Length is 0')

  242.        endif

  243.         

  244.         

  245.         data%State%MudSystem%Hz_Mud_Backhead_X%Array(1)= data%State%MudSystem%Xstart_PipeSection(1)

  246.         data%State%MudSystem%Hz_Mud_Backhead_section%Array(1)= 1

  247.         

  248.         data%State%MudSystem%AddedElementsToString = data%State%F_Counts%StringIntervalCounts - data%State%MudSystem%F_StringIntervalCounts_Old

  249.         data%State%MudSystem%St_Mud_Backhead_X%Array(1)= data%State%MudSystem%Xstart_PipeSection(2)

  250.         data%State%MudSystem%St_Mud_Backhead_section%Array(1)= 2

  251.         data%State%MudSystem%Ann_Mud_Backhead_X%Array(1)= data%State%MudSystem%Xstart_PipeSection(data%State%F_Counts%StringIntervalCounts+1)

  252.         data%State%MudSystem%Ann_Mud_Backhead_section%Array(1)= data%State%F_Counts%StringIntervalCounts+1

  253.         data%State%MudSystem%Op_Mud_Backhead_X%Array(1)= data%State%MudSystem%Xstart_OpSection(1)

  254.         data%State%MudSystem%Op_Mud_Backhead_section%Array(1)= 1

  255.         data%State%MudSystem%ChokeLine_Mud_Backhead_X%Array(1)= 0.

  256.         data%State%MudSystem%ChokeLine_Mud_Backhead_section%Array(1)= 1

  257.            

  258.         

  259.         data%State%MudSystem%F_StringIntervalCounts_Old= data%State%F_Counts%StringIntervalCounts

  260. !write(*,*) 'Xstart_PipeSection(2)' , Xstart_PipeSection(2)

  261. !write(*,*) 'Xend_PipeSection(1)' , Xend_PipeSection(1)

  262. 

  263.         

  264. !===================================================

  265.         

  266. !

  267. !DeltaWellCap= sum(PipeSection_VolumeCapacity(F_StringIntervalCounts+1:NoPipeSections)) + sum(OpSection_VolumeCapacity(1:F_BottomHoleIntervalCounts)) - WellCapOld

  268. !WellCapOld= sum(PipeSection_VolumeCapacity(F_StringIntervalCounts+1:NoPipeSections)) + sum(OpSection_VolumeCapacity(1:F_BottomHoleIntervalCounts))

  269. !write(*,*) 'DeltaWellCap=' , DeltaWellCap

  270. !

  271. !

  272. !

  273. !DeltaAnnCap= sum(PipeSection_VolumeCapacity(F_StringIntervalCounts+1:NoPipeSections))  - AnnCapOld

  274. !AnnCapOld= sum(PipeSection_VolumeCapacity(F_StringIntervalCounts+1:NoPipeSections))

  275. !write(*,*) 'DeltaAnnCap=' , DeltaAnnCap

  276.   

  277.     end subroutine ElementsCreation

  278.     

  279.     

  280.     

  281.