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.
22 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: e22107763a
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'e22107763a'
${ noResults }
SimulationCore2/Equipments/MudSystem/Elements_Creation.f90

275 lines
16 KiB
Raw Blame History 

  1. subroutine ElementsCreation    !  is called in subroutine Fluid_Flow_Solver

  2.     

  3.         Use GeoElements_FluidModule

  4.         USE CMudPropertiesVariables

  5.         USE MudSystemVARIABLES

  6.         USE Pumps_VARIABLES

  7.         !USE CHOKEVARIABLES

  8.         !USE CDataDisplayConsoleVariables ,  StandPipePressureDataDisplay=>StandPipePressure

  9.         !use CManifolds

  10.         use CDrillWatchVariables

  11.         !use CHOKEVARIABLES

  12.         !use CChokeManifoldVariables

  13.         ! !use CTanksVariables, TripTankVolume2 => DrillingWatch%TripTankVolume, TripTankDensity2 => TripTankDensity

  14.         USE sROP_Other_Variables

  15.         USE sROP_Variables

  16.         Use KickVariables

  17.         use CError

  18.    

  19.    implicit none

  20.    

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

  22.    integer jopelement,jopmud,jopsection

  23.    

  24. !===========================================================WELL============================================================

  25. !===========================================================WELL============================================================ 

  26. 

  27.         if(allocated(MudSystemDotXstart_PipeSection)) deallocate(MudSystemDotXstart_PipeSection)

  28.         if(allocated(MudSystemDotXend_PipeSection)) deallocate(MudSystemDotXend_PipeSection)

  29.         if(allocated(MudSystemDotPipeSection_VolumeCapacity)) deallocate(MudSystemDotPipeSection_VolumeCapacity)

  30.         if(allocated(MudSystemDotArea_PipeSectionFt)) deallocate(MudSystemDotArea_PipeSectionFt)

  31.         if(allocated(MudSystemDotGeoType)) deallocate(MudSystemDotGeoType)

  32.         if(allocated(MudSystemDotOD_PipeSectionInch)) deallocate(MudSystemDotOD_PipeSectionInch)

  33.         if(allocated(MudSystemDotID_PipeSectionInch)) deallocate(MudSystemDotID_PipeSectionInch)

  34.         if(allocated(MudSystemDotAngle_PipeSection)) deallocate(MudSystemDotAngle_PipeSection)

  35.         

  36.         if(allocated(MudSystemDotXstart_OpSection)) deallocate(MudSystemDotXstart_OpSection)

  37.         if(allocated(MudSystemDotXend_OpSection)) deallocate(MudSystemDotXend_OpSection)

  38.         if(allocated(MudSystemDotOpSection_VolumeCapacity)) deallocate(MudSystemDotOpSection_VolumeCapacity)

  39.         if(allocated(MudSystemDotArea_OpSectionFt)) deallocate(MudSystemDotArea_OpSectionFt)

  40.         if(allocated(MudSystemDotGeoTypeOp)) deallocate(MudSystemDotGeoTypeOp)

  41.         if(allocated(MudSystemDotOD_OpSectionInch)) deallocate(MudSystemDotOD_OpSectionInch)

  42.         if(allocated(MudSystemDotID_OpSectionInch)) deallocate(MudSystemDotID_OpSectionInch)

  43.         if(allocated(MudSystemDotAngle_OpSection)) deallocate(MudSystemDotAngle_OpSection)        

  44. 

  45.         

  46. 

  47. ALLOCATE (MudSystemDotXstart_PipeSection(F_StringIntervalCounts+F_AnnulusIntervalCounts),MudSystemDotXend_PipeSection(F_StringIntervalCounts+F_AnnulusIntervalCounts) &

  48.     ,MudSystemDotPipeSection_VolumeCapacity(F_StringIntervalCounts+F_AnnulusIntervalCounts),MudSystemDotArea_PipeSectionFt(F_StringIntervalCounts+F_AnnulusIntervalCounts), &

  49.     MudSystemDotGeoType(F_StringIntervalCounts+F_AnnulusIntervalCounts),MudSystemDotOD_PipeSectionInch(F_StringIntervalCounts+F_AnnulusIntervalCounts),MudSystemDotID_PipeSectionInch(F_StringIntervalCounts+F_AnnulusIntervalCounts))

  50. 

  51. 

  52. ALLOCATE (MudSystemDotXstart_OpSection(F_BottomHoleIntervalCounts),MudSystemDotXend_OpSection(F_BottomHoleIntervalCounts) &

  53.     ,MudSystemDotOpSection_VolumeCapacity(F_BottomHoleIntervalCounts),MudSystemDotArea_OpSectionFt(F_BottomHoleIntervalCounts), &

  54.     MudSystemDotGeoTypeOp(F_BottomHoleIntervalCounts),MudSystemDotOD_OpSectionInch(F_BottomHoleIntervalCounts),MudSystemDotID_OpSectionInch(F_BottomHoleIntervalCounts))

  55. 

  56.         MudSystemDotOpSection=0

  57.         MudSystemDotisection=0

  58. 

  59.   

  60.         DO MudSystemDotiisection=1, F_IntervalsTotalCounts

  61.             IF (F_Interval(MudSystemDotiisection)%GeoType  == 1) THEN

  62.                 MudSystemDotOpSection= MudSystemDotOpSection+1

  63.                 MudSystemDotXstart_OpSection(MudSystemDotOpSection)= (F_Interval(MudSystemDotiisection)%StartDepth)

  64.                 MudSystemDotXend_OpSection(MudSystemDotOpSection)= (F_Interval(MudSystemDotiisection)%EndDepth)

  65.                 MudSystemDotArea_OpSectionFt(MudSystemDotOpSection)= PII*((F_Interval(MudSystemDotiisection)%OD/12.0d0)**2-(F_Interval(MudSystemDotiisection)%ID/12.0d0)**2)/4.0d0   !D(in), AREA(ft^2)

  66.                 MudSystemDotOD_OpSectionInch(MudSystemDotOpSection)= (F_Interval(MudSystemDotiisection)%OD)

  67.                 MudSystemDotID_OpSectionInch(MudSystemDotOpSection)= (F_Interval(MudSystemDotiisection)%ID)        !REAL(F_Interval(iisection)%Volume)   

  68.                 MudSystemDotGeoTypeOp(MudSystemDotOpSection)= F_Interval(MudSystemDotiisection)%GeoType     ! niaz nist ehtemalan

  69.                 !Angle_OpSection(OpSection)= F_Interval(iisection)%Angle

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

  71.                 !write(*,*) 'StartDepth=' , F_Interval(iisection)%StartDepth

  72.                 !write(*,*) 'EndDepth=' , F_Interval(iisection)%EndDepth

  73.                 !write(*,*) 'OD=' , F_Interval(iisection)%OD

  74.                 !write(*,*) 'ID=' , F_Interval(iisection)%ID

  75.             ELSE

  76.                 MudSystemDotisection= MudSystemDotisection+1

  77.                 MudSystemDotXstart_PipeSection(MudSystemDotisection)= (F_Interval(MudSystemDotiisection)%StartDepth)

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

  79.                 MudSystemDotXend_PipeSection(MudSystemDotisection)= (F_Interval(MudSystemDotiisection)%EndDepth)

  80.                 !write(*,*) 'F_Interval(iisection)%EndDepth=' , F_Interval(iisection)%EndDepth

  81.                 

  82.                 MudSystemDotOD_PipeSectionInch(MudSystemDotisection)= (F_Interval(MudSystemDotiisection)%OD) 

  83.                 MudSystemDotArea_PipeSectionFt(MudSystemDotisection)= PII*((F_Interval(MudSystemDotiisection)%OD/12.0d0)**2-(F_Interval(MudSystemDotiisection)%ID/12.0d0)**2)/4.0d0   !D(in), AREA(ft^2)

  84.                 MudSystemDotID_PipeSectionInch(MudSystemDotisection)= (F_Interval(MudSystemDotiisection)%ID)

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

  86.                 MudSystemDotGeoType(MudSystemDotisection)= F_Interval(MudSystemDotiisection)%GeoType

  87.                 !Angle_PipeSection(isection)= F_Interval(iisection)%Angle

  88.             ENDIF

  89.             

  90.         ENDDO

  91. 

  92. 

  93.         

  94.         call Xstart_MudElement%Empty()   

  95.         call Xstart_MudElement%Add(MudSystemDotXstart_PipeSection(1))

  96.         

  97.         

  98.         call Xstart_OpMudElement%Empty()

  99.         call Xstart_OpMudElement%Add(MudSystemDotXstart_OpSection(1))

  100.         

  101.         

  102.         call TVDstart_MudElement%Empty()

  103.         call TVD_Calculator(MudSystemDotXstart_PipeSection(1),MudSystemDotMudCircVerticalDepth)

  104.         call TVDstart_MudElement%Add(MudSystemDotMudCircVerticalDepth)

  105.         

  106.         

  107.         call TVDstart_OPMudElement%Empty()

  108.         call TVD_Calculator(MudSystemDotXstart_OpSection(1),MudSystemDotMudCircVerticalDepth)

  109.         call TVDstart_OPMudElement%Add(MudSystemDotMudCircVerticalDepth)        

  110.         

  111.         

  112.         

  113.         MudSystemDotNoPipeSections= MudSystemDotisection        ! sections in string and annulus(GeoType 0 & 2)

  114. 

  115.         

  116.         DO MudSystemDotOpSection= 1,F_BottomHoleIntervalCounts

  117.             MudSystemDotOpSection_VolumeCapacity(MudSystemDotOpSection)= MudSystemDotArea_OpSectionFt(MudSystemDotOpSection)* ABS(MudSystemDotXend_OpSection(MudSystemDotOpSection)-MudSystemDotXstart_OpSection(MudSystemDotOpSection))* 7.48051948d0          !REAL(F_Interval(iisection)%Volume)

  118.         ENDDO

  119.         

  120.         DO MudSystemDotisection= 1,MudSystemDotNoPipeSections

  121.             MudSystemDotPipeSection_VolumeCapacity(MudSystemDotisection)= MudSystemDotArea_PipeSectionFt(MudSystemDotisection)* ABS(MudSystemDotXend_PipeSection(MudSystemDotisection)-MudSystemDotXstart_PipeSection(MudSystemDotisection))* 7.48051948d0          !REAL(F_Interval(iisection)%Volume)      ! (gal)

  122.         ENDDO

  123.      

  124.         

  125.   

  126.         

  127.         !types:   Mud= 0  Kick=1

  128. 

  129. !=========================================== 

  130.         if (MudSystemDotFirstMudSet==0) then

  131.             call MudSystemDotHz_MudDischarged_Volume%AddToFirst(MudSystemDotPipeSection_VolumeCapacity(1))  !startup initial

  132.             call MudSystemDotHz_Mud_Backhead_X%AddToFirst (MudSystemDotXstart_PipeSection(1))

  133.             call Hz_Mud_Backhead_section%AddToFirst (1)

  134.             call MudSystemDotHz_Mud_Forehead_X%AddToFirst (MudSystemDotXend_PipeSection(1))

  135.             call Hz_Mud_Forehead_section%AddToFirst (1)

  136.             call MudSystemDotHz_Density%AddToFirst (MudProperties%ActiveDensity)       ! initial(ppg)

  137.             call MudSystemDotHz_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  138.             call MudSystemDotHz_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)  

  139.             call Hz_MudOrKick%AddToFirst (0)  

  140.             

  141.             

  142.             call MudSystemDotSt_MudDischarged_Volume%AddToFirst(sum(MudSystemDotPipeSection_VolumeCapacity(2:F_StringIntervalCounts)))  !startup initial

  143.             call MudSystemDotSt_Mud_Backhead_X%AddToFirst (MudSystemDotXstart_PipeSection(2))

  144.             call St_Mud_Backhead_section%AddToFirst (2)

  145.             call MudSystemDotSt_Mud_Forehead_X%AddToFirst (MudSystemDotXend_PipeSection(F_StringIntervalCounts))

  146.             call St_Mud_Forehead_section%AddToFirst (F_StringIntervalCounts)

  147.             call St_Density%AddToFirst (MudProperties%ActiveDensity)       ! initial(ppg)

  148.             call MudSystemDotSt_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  149.             call MudSystemDotSt_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  150.             call St_MudOrKick%AddToFirst (0)  

  151.             

  152.                 

  153.             call MudSystemDotAnn_MudDischarged_Volume%AddToFirst(sum(MudSystemDotPipeSection_VolumeCapacity(F_StringIntervalCounts+1:MudSystemDotNoPipeSections)))

  154.             call Ann_Mud_Backhead_X%AddToFirst (MudSystemDotXstart_PipeSection(F_StringIntervalCounts+1))

  155.             call Ann_Mud_Backhead_section%AddToFirst (F_StringIntervalCounts+1)

  156.             call Ann_Mud_Forehead_X%AddToFirst (MudSystemDotXend_PipeSection(MudSystemDotNoPipeSections))

  157.             call Ann_Mud_Forehead_section%AddToFirst (MudSystemDotNoPipeSections)

  158.             call Ann_Density%AddToFirst (MudProperties%ActiveDensity)       ! initial(ppg)

  159.             call Ann_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  160.             call Ann_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  161.             call Ann_MudOrKick%AddToFirst (0) 

  162.             call Ann_CuttingMud%AddToFirst (0) 

  163.             

  164.             MudSystemDotOldPosition= MudSystemDotXend_PipeSection(F_StringIntervalCounts)  

  165.             

  166.             MudSystemDotOldAnnulusCapacity= sum(MudSystemDotPipeSection_VolumeCapacity(F_StringIntervalCounts+1:MudSystemDotNoPipeSections))

  167.                      

  168.             

  169.             call MudSystemDotChokeLine_MudDischarged_Volume%AddToFirst(MudSystemDotChokeLine_VolumeCapacity)

  170.             call MudSystemDotChokeLine_Mud_Backhead_X%AddToFirst (0.0d0)

  171.             call ChokeLine_Mud_Backhead_section%AddToFirst (1)

  172.             call MudSystemDotChokeLine_Mud_Forehead_X%AddToFirst (BopStackSpecification%ChokeLineLength)

  173.             call ChokeLine_Mud_Forehead_section%AddToFirst (1)

  174.             call MudSystemDotChokeLine_Density%AddToFirst (MudProperties%ActiveDensity)       ! initial(ppg)

  175.             call MudSystemDotChokeLine_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  176.             call MudSystemDotChokeLine_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  177.             call ChokeLine_MudOrKick%AddToFirst (0) 

  178.             

  179. 

  180.             call MudSystemDotOp_MudDischarged_Volume%AddToFirst (sum(MudSystemDotOpSection_VolumeCapacity(1:F_BottomHoleIntervalCounts)))

  181.             call MudSystemDotOp_Mud_Backhead_X%AddToFirst (MudSystemDotXstart_OpSection(1))

  182.             call Op_Mud_Backhead_section%AddToFirst (1)

  183.             call MudSystemDotOp_Mud_Forehead_X%AddToFirst (MudSystemDotXend_OpSection(F_BottomHoleIntervalCounts))

  184.             call Op_Mud_Forehead_section%AddToFirst (F_BottomHoleIntervalCounts)

  185.             call MudSystemDotOp_Density%AddToFirst (MudProperties%ActiveDensity)            

  186.             call MudSystemDotOp_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  187.             call MudSystemDotOp_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)  

  188.             call Op_MudOrKick%AddToFirst (0)  

  189.             

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

  191.             MudSystemDotF_StringIntervalCounts_Old= F_StringIntervalCounts   ! is used for adding new pipe to string

  192.             

  193.                 

  194.             MudSystemDotFirstMudSet= 1     

  195.         endif

  196. 

  197.         

  198. !===================== Trip Detection ================  

  199.         

  200.         !DeltaVolumeOp > 0 : Trip in

  201.         !DeltaVolumeOp < 0 : Trip out

  202. 

  203. 

  204.         MudSystemDotDeltaVolumeOp= ((MudSystemDotXend_PipeSection(F_StringIntervalCounts)-MudSystemDotOldPosition)*PII*((MudSystemDotOD_PipeSectionInch(F_StringIntervalCounts+1)/12.0d0)**2)/4.0d0)* 7.48051948d0! ft^3  to gal    !   D(in)

  205.         MudSystemDotDeltaVolumeOp = INT(MudSystemDotDeltaVolumeOp * 100000.d0) / 100000.d0

  206.         

  207.         MudSystemDotDeltaVolumePipe= ((MudSystemDotXend_PipeSection(F_StringIntervalCounts)-MudSystemDotOldPosition)*PII*((MudSystemDotID_PipeSectionInch(F_StringIntervalCounts+F_AnnulusIntervalCounts)/12.0d0)**2)/4.0d0)* 7.48051948d0! ft^3  to gal

  208.         MudSystemDotDeltaVolumePipe = INT(MudSystemDotDeltaVolumePipe * 100000.d0) / 100000.d0

  209.         

  210.         !DeltaVolumeAnnulusCapacity= ((Xend_PipeSection(F_StringIntervalCounts)-OldPosition))*Area_PipeSectionFt(NoPipeSections)* 7.48051948d0! ft^3  to gal

  211.         DrillStringSpeed = (MudSystemDotXend_PipeSection(F_StringIntervalCounts)-MudSystemDotOldPosition) / 0.1

  212.         

  213.         MudSystemDotDeltaVolumeAnnulusCapacity= sum(MudSystemDotPipeSection_VolumeCapacity(F_StringIntervalCounts+1:MudSystemDotNoPipeSections)) - MudSystemDotOldAnnulusCapacity

  214.         

  215.         

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

  217.         

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

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

  220.         !

  221.         !

  222.         !write(*,*) 'Bit here=' , Xend_PipeSection(F_StringIntervalCounts)

  223.         

  224.         

  225.         

  226.          

  227.         MudSystemDotOldAnnulusCapacity= sum(MudSystemDotPipeSection_VolumeCapacity(F_StringIntervalCounts+1:MudSystemDotNoPipeSections))

  228. 

  229.         MudSystemDotOldPosition= MudSystemDotXend_PipeSection(F_StringIntervalCounts)

  230.                 

  231.         ! Needed for trip in or out:

  232.         if (MudSystemDotHz_Mud_Backhead_X%Length() == 0) then

  233.             

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

  235.        endif

  236.         

  237.         

  238.         MudSystemDotHz_Mud_Backhead_X%Array(1)= MudSystemDotXstart_PipeSection(1)

  239.         Hz_Mud_Backhead_section%Array(1)= 1

  240.         

  241.         MudSystemDotAddedElementsToString = F_StringIntervalCounts - MudSystemDotF_StringIntervalCounts_Old

  242.         MudSystemDotSt_Mud_Backhead_X%Array(1)= MudSystemDotXstart_PipeSection(2)

  243.         St_Mud_Backhead_section%Array(1)= 2

  244.         Ann_Mud_Backhead_X%Array(1)= MudSystemDotXstart_PipeSection(F_StringIntervalCounts+1)

  245.         Ann_Mud_Backhead_section%Array(1)= F_StringIntervalCounts+1

  246.         MudSystemDotOp_Mud_Backhead_X%Array(1)= MudSystemDotXstart_OpSection(1)

  247.         Op_Mud_Backhead_section%Array(1)= 1

  248.         MudSystemDotChokeLine_Mud_Backhead_X%Array(1)= 0.

  249.         ChokeLine_Mud_Backhead_section%Array(1)= 1

  250.            

  251.         

  252.         MudSystemDotF_StringIntervalCounts_Old= F_StringIntervalCounts

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

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

  255. 

  256.         

  257. !===================================================

  258.         

  259.                         !

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

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

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

  263.                         !

  264.                         !

  265.                         !

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

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

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

  269.   

  270.     end subroutine ElementsCreation

  271.     

  272.     

  273.     

  274.