mahmood19227
/
SimulationCore2
1
0
Rozštěpit 0
Zdrojový kód Úkoly 0 Požadavky na natažení 0 Vydání 0 Wiki Aktivita
Simulation Core
Nelze vybrat více než 25 témat Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.
25 Revize
2 Větve
134 MiB
 
 
 
 
 
 
Strom: 451aa39cdc
Větve Značky
${ item.name }
Vytvořit větev ${ searchTerm }
z „451aa39cdc“
${ noResults }
SimulationCore2/Equipments/MudSystem/Elements_Creation.f90

275 řádky
17 KiB
Surový Blame Historie 

  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,iisection,isection,OpSection

  23.    

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

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

  26. 

  27.         if(allocated(MudSystem%Xstart_PipeSection)) deallocate(MudSystem%Xstart_PipeSection)

  28.         if(allocated(MudSystem%Xend_PipeSection)) deallocate(MudSystem%Xend_PipeSection)

  29.         if(allocated(MudSystem%PipeSection_VolumeCapacity)) deallocate(MudSystem%PipeSection_VolumeCapacity)

  30.         if(allocated(MudSystem%Area_PipeSectionFt)) deallocate(MudSystem%Area_PipeSectionFt)

  31.         if(allocated(MudSystem%GeoType)) deallocate(MudSystem%GeoType)

  32.         if(allocated(MudSystem%OD_PipeSectionInch)) deallocate(MudSystem%OD_PipeSectionInch)

  33.         if(allocated(MudSystem%ID_PipeSectionInch)) deallocate(MudSystem%ID_PipeSectionInch)

  34.         if(allocated(MudSystem%Angle_PipeSection)) deallocate(MudSystem%Angle_PipeSection)

  35.         

  36.         if(allocated(MudSystem%Xstart_OpSection)) deallocate(MudSystem%Xstart_OpSection)

  37.         if(allocated(MudSystem%Xend_OpSection)) deallocate(MudSystem%Xend_OpSection)

  38.         if(allocated(MudSystem%OpSection_VolumeCapacity)) deallocate(MudSystem%OpSection_VolumeCapacity)

  39.         if(allocated(MudSystem%Area_OpSectionFt)) deallocate(MudSystem%Area_OpSectionFt)

  40.         if(allocated(MudSystem%GeoTypeOp)) deallocate(MudSystem%GeoTypeOp)

  41.         if(allocated(MudSystem%OD_OpSectionInch)) deallocate(MudSystem%OD_OpSectionInch)

  42.         if(allocated(MudSystem%ID_OpSectionInch)) deallocate(MudSystem%ID_OpSectionInch)

  43.         if(allocated(MudSystem%Angle_OpSection)) deallocate(MudSystem%Angle_OpSection)        

  44. 

  45.         

  46. 

  47. ALLOCATE (MudSystem%Xstart_PipeSection(F_Counts%StringIntervalCounts+F_Counts%AnnulusIntervalCounts),MudSystem%Xend_PipeSection(F_Counts%StringIntervalCounts+F_Counts%AnnulusIntervalCounts) &

  48.     ,MudSystem%PipeSection_VolumeCapacity(F_Counts%StringIntervalCounts+F_Counts%AnnulusIntervalCounts),MudSystem%Area_PipeSectionFt(F_Counts%StringIntervalCounts+F_Counts%AnnulusIntervalCounts), &

  49.     MudSystem%GeoType(F_Counts%StringIntervalCounts+F_Counts%AnnulusIntervalCounts),MudSystem%OD_PipeSectionInch(F_Counts%StringIntervalCounts+F_Counts%AnnulusIntervalCounts),MudSystem%ID_PipeSectionInch(F_Counts%StringIntervalCounts+F_Counts%AnnulusIntervalCounts))

  50. 

  51. 

  52. ALLOCATE (MudSystem%Xstart_OpSection(F_Counts%BottomHoleIntervalCounts),MudSystem%Xend_OpSection(F_Counts%BottomHoleIntervalCounts) &

  53.     ,MudSystem%OpSection_VolumeCapacity(F_Counts%BottomHoleIntervalCounts),MudSystem%Area_OpSectionFt(F_Counts%BottomHoleIntervalCounts), &

  54.     MudSystem%GeoTypeOp(F_Counts%BottomHoleIntervalCounts),MudSystem%OD_OpSectionInch(F_Counts%BottomHoleIntervalCounts),MudSystem%ID_OpSectionInch(F_Counts%BottomHoleIntervalCounts))

  55. 

  56.         MudSystem%OpSection=0

  57.         MudSystem%isection=0

  58. 

  59.   

  60.         DO iisection=1, F_Counts%IntervalsTotalCounts

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

  62.                 MudSystem%OpSection= MudSystem%OpSection+1

  63.                 MudSystem%Xstart_OpSection(MudSystem%OpSection)= (F_Interval(iisection)%StartDepth)

  64.                 MudSystem%Xend_OpSection(MudSystem%OpSection)= (F_Interval(iisection)%EndDepth)

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

  66.                 MudSystem%OD_OpSectionInch(MudSystem%OpSection)= (F_Interval(iisection)%OD)

  67.                 MudSystem%ID_OpSectionInch(MudSystem%OpSection)= (F_Interval(iisection)%ID)        !REAL(F_Interval(iisection)%Volume)   

  68.                 MudSystem%GeoTypeOp(MudSystem%OpSection)= F_Interval(iisection)%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.                 MudSystem%isection= MudSystem%isection+1

  77.                 MudSystem%Xstart_PipeSection(MudSystem%isection)= (F_Interval(iisection)%StartDepth)

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

  79.                 MudSystem%Xend_PipeSection(MudSystem%isection)= (F_Interval(iisection)%EndDepth)

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

  81.                 

  82.                 MudSystem%OD_PipeSectionInch(MudSystem%isection)= (F_Interval(iisection)%OD) 

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

  84.                 MudSystem%ID_PipeSectionInch(MudSystem%isection)= (F_Interval(iisection)%ID)

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

  86.                 MudSystem%GeoType(MudSystem%isection)= F_Interval(iisection)%GeoType

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

  88.             ENDIF

  89.             

  90.         ENDDO

  91. 

  92. 

  93.         

  94.         call MudSystem%Xstart_MudElement%Empty()   

  95.         call MudSystem%Xstart_MudElement%Add(MudSystem%Xstart_PipeSection(1))

  96.         

  97.         

  98.         call MudSystem%Xstart_OpMudElement%Empty()

  99.         call MudSystem%Xstart_OpMudElement%Add(MudSystem%Xstart_OpSection(1))

  100.         

  101.         

  102.         call MudSystem%TVDstart_MudElement%Empty()

  103.         call TVD_Calculator(MudSystem%Xstart_PipeSection(1),MudSystem%MudCircVerticalDepth)

  104.         call MudSystem%TVDstart_MudElement%Add(MudSystem%MudCircVerticalDepth)

  105.         

  106.         

  107.         call MudSystem%TVDstart_OpMudElement%Empty()

  108.         call TVD_Calculator(MudSystem%Xstart_OpSection(1),MudSystem%MudCircVerticalDepth)

  109.         call MudSystem%TVDstart_OpMudElement%Add(MudSystem%MudCircVerticalDepth)        

  110.         

  111.         

  112.         

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

  114. 

  115.         

  116.         DO OpSection= 1,F_Counts%BottomHoleIntervalCounts

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

  118.         ENDDO

  119.         MudSystem%OpSection=OpSection        

  120.         DO isection= 1,MudSystem%NoPipeSections

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

  122.         ENDDO

  123.         MudSystem%isection = isection

  124.         

  125.   

  126.         

  127.         !types:   Mud= 0  Kick=1

  128. 

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

  130.         if (MudSystem%FirstMudSet==0) then

  131.             call MudSystem%Hz_MudDischarged_Volume%AddToFirst(MudSystem%PipeSection_VolumeCapacity(1))  !startup initial

  132.             call MudSystem%Hz_Mud_Backhead_X%AddToFirst (MudSystem%Xstart_PipeSection(1))

  133.             call MudSystem%Hz_Mud_Backhead_section%AddToFirst (1)

  134.             call MudSystem%Hz_Mud_Forehead_X%AddToFirst (MudSystem%Xend_PipeSection(1))

  135.             call MudSystem%Hz_Mud_Forehead_section%AddToFirst (1)

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

  137.             call MudSystem%Hz_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  138.             call MudSystem%Hz_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)  

  139.             call MudSystem%Hz_MudOrKick%AddToFirst (0)  

  140.             

  141.             

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

  143.             call MudSystem%St_Mud_Backhead_X%AddToFirst (MudSystem%Xstart_PipeSection(2))

  144.             call MudSystem%St_Mud_Backhead_section%AddToFirst (2)

  145.             call MudSystem%St_Mud_Forehead_X%AddToFirst (MudSystem%Xend_PipeSection(F_Counts%StringIntervalCounts))

  146.             call MudSystem%St_Mud_Forehead_section%AddToFirst (F_Counts%StringIntervalCounts)

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

  148.             call MudSystem%St_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  149.             call MudSystem%St_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  150.             call MudSystem%St_MudOrKick%AddToFirst (0)  

  151.             

  152.                 

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

  154.             call MudSystem%Ann_Mud_Backhead_X%AddToFirst (MudSystem%Xstart_PipeSection(F_Counts%StringIntervalCounts+1))

  155.             call MudSystem%Ann_Mud_Backhead_section%AddToFirst (F_Counts%StringIntervalCounts+1)

  156.             call MudSystem%Ann_Mud_Forehead_X%AddToFirst (MudSystem%Xend_PipeSection(MudSystem%NoPipeSections))

  157.             call MudSystem%Ann_Mud_Forehead_section%AddToFirst (MudSystem%NoPipeSections)

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

  159.             call MudSystem%Ann_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  160.             call MudSystem%Ann_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  161.             call MudSystem%Ann_MudOrKick%AddToFirst (0) 

  162.             call MudSystem%Ann_CuttingMud%AddToFirst (0) 

  163.             

  164.             MudSystem%OldPosition= MudSystem%Xend_PipeSection(F_Counts%StringIntervalCounts)  

  165.             

  166.             MudSystem%OldAnnulusCapacity= sum(MudSystem%PipeSection_VolumeCapacity(F_Counts%StringIntervalCounts+1:MudSystem%NoPipeSections))

  167.                      

  168.             

  169.             call MudSystem%ChokeLine_MudDischarged_Volume%AddToFirst(MudSystem%ChokeLine_VolumeCapacity)

  170.             call MudSystem%ChokeLine_Mud_Backhead_X%AddToFirst (0.0d0)

  171.             call MudSystem%ChokeLine_Mud_Backhead_section%AddToFirst (1)

  172.             call MudSystem%ChokeLine_Mud_Forehead_X%AddToFirst (BopStackSpecification%ChokeLineLength)

  173.             call MudSystem%ChokeLine_Mud_Forehead_section%AddToFirst (1)

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

  175.             call MudSystem%ChokeLine_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  176.             call MudSystem%ChokeLine_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)

  177.             call MudSystem%ChokeLine_MudOrKick%AddToFirst (0) 

  178.             

  179. 

  180.             call MudSystem%Op_MudDischarged_Volume%AddToFirst (sum(MudSystem%OpSection_VolumeCapacity(1:F_Counts%BottomHoleIntervalCounts)))

  181.             call MudSystem%Op_Mud_Backhead_X%AddToFirst (MudSystem%Xstart_OpSection(1))

  182.             call MudSystem%Op_Mud_Backhead_section%AddToFirst (1)

  183.             call MudSystem%Op_Mud_Forehead_X%AddToFirst (MudSystem%Xend_OpSection(F_Counts%BottomHoleIntervalCounts))

  184.             call MudSystem%Op_Mud_Forehead_section%AddToFirst (F_Counts%BottomHoleIntervalCounts)

  185.             call MudSystem%Op_Density%AddToFirst (MudProperties%ActiveDensity)            

  186.             call MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)

  187.             call MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)  

  188.             call MudSystem%Op_MudOrKick%AddToFirst (0)  

  189.             

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

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

  192.             

  193.                 

  194.             MudSystem%FirstMudSet= 1     

  195.         endif

  196. 

  197.         

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

  199.         

  200.         !DeltaVolumeOp > 0 : Trip in

  201.         !DeltaVolumeOp < 0 : Trip out

  202. 

  203. 

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

  205.         MudSystem%DeltaVolumeOp = INT(MudSystem%DeltaVolumeOp * 100000.d0) / 100000.d0

  206.         

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

  208.         MudSystem%DeltaVolumePipe = INT(MudSystem%DeltaVolumePipe * 100000.d0) / 100000.d0

  209.         

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

  211.         DrillStringSpeed = (MudSystem%Xend_PipeSection(F_Counts%StringIntervalCounts)-MudSystem%OldPosition) / 0.1

  212.         

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

  214.         

  215.         

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

  217.         

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

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

  220.         !

  221.         !

  222.         !write(*,*) 'Bit here=' , Xend_PipeSection(F_Counts%StringIntervalCounts)

  223.         

  224.         

  225.         

  226.          

  227.         MudSystem%OldAnnulusCapacity= sum(MudSystem%PipeSection_VolumeCapacity(F_Counts%StringIntervalCounts+1:MudSystem%NoPipeSections))

  228. 

  229.         MudSystem%OldPosition= MudSystem%Xend_PipeSection(F_Counts%StringIntervalCounts)

  230.                 

  231.         ! Needed for trip in or out:

  232.         if (MudSystem%Hz_Mud_Backhead_X%Length() == 0) then

  233.             

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

  235.        endif

  236.         

  237.         

  238.         MudSystem%Hz_Mud_Backhead_X%Array(1)= MudSystem%Xstart_PipeSection(1)

  239.         MudSystem%Hz_Mud_Backhead_section%Array(1)= 1

  240.         

  241.         MudSystem%AddedElementsToString = F_Counts%StringIntervalCounts - MudSystem%F_StringIntervalCounts_Old

  242.         MudSystem%St_Mud_Backhead_X%Array(1)= MudSystem%Xstart_PipeSection(2)

  243.         MudSystem%St_Mud_Backhead_section%Array(1)= 2

  244.         MudSystem%Ann_Mud_Backhead_X%Array(1)= MudSystem%Xstart_PipeSection(F_Counts%StringIntervalCounts+1)

  245.         MudSystem%Ann_Mud_Backhead_section%Array(1)= F_Counts%StringIntervalCounts+1

  246.         MudSystem%Op_Mud_Backhead_X%Array(1)= MudSystem%Xstart_OpSection(1)

  247.         MudSystem%Op_Mud_Backhead_section%Array(1)= 1

  248.         MudSystem%ChokeLine_Mud_Backhead_X%Array(1)= 0.

  249.         MudSystem%ChokeLine_Mud_Backhead_section%Array(1)= 1

  250.            

  251.         

  252.         MudSystem%F_StringIntervalCounts_Old= F_Counts%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.