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.
57 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 8619d976a7
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '8619d976a7'
${ noResults }
SimulationCore2/Equipments/MudSystem/Plot_Final_Mud_Elements.i90

419 lines
25 KiB
Raw Blame History 

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

  2. subroutine PlotFinalMudElements    !  is called in subroutine CirculationCodeSelect

  3.     

  4.         Use GeoElements_FluidModule

  5.         USE CMudPropertiesVariables

  6.         USE MudSystemVARIABLES

  7. use SimulationVariables !@@@

  8.         use SimulationVariables

  9.         Use TD_StringConnectionData

  10.         USE CHOKEVARIABLES

  11. !use ConfigurationVariables !@

  12. !use CDataDisplayConsole

  13. !@ use ConfigurationVariables ,  StandPipePressureDataDisplay=>StandPipePressure

  14. !use CManifolds

  15.         use SimulationVariables !@

  16.         USE CHOKEVARIABLES

  17. !use ConfigurationVariables !@

  18. !use CChokeManifoldVariables

  19.     use SimulationVariables

  20. !use CTanks

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

  22.         USE sROP_Other_Variables

  23.         USE sROP_Variables

  24.         use KickVARIABLESModule

  25.         use OperationScenariosModule

  26.         use UTUBEVARSModule

  27.         use DownHoleModule

  28.         use CLog1

  29.         Use CError

  30.         Use , intrinsic :: IEEE_Arithmetic

  31.    

  32.    implicit none

  33.    

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

  35.    integer jopelement,jopmud,jopsection

  36.    character(len=120) :: temp1, temp2

  37. 

  38.    

  39.    

  40.    

  41.                     if (data%Equipments%ChokeControlPanel%ChokePanelStrokeResetSwitch == 1) then

  42.   write(*,*) 'well cap=' , sum(data%State%MudSystem%PipeSection_VolumeCapacity(data%State%F_Counts%StringIntervalCounts+1:data%State%MudSystem%NoPipeSections)) + sum(data%State%MudSystem%OpSection_VolumeCapacity(1:data%State%F_Counts%BottomHoleIntervalCounts)) 

  43.                         data%State%MudSystem%DeltaWellCap= sum(data%State%MudSystem%PipeSection_VolumeCapacity(data%State%F_Counts%StringIntervalCounts+1:data%State%MudSystem%NoPipeSections)) + sum(data%State%MudSystem%OpSection_VolumeCapacity(1:data%State%F_Counts%BottomHoleIntervalCounts)) - data%State%MudSystem%WellCapOld

  44.                         data%State%MudSystem%WellCapOld= sum(data%State%MudSystem%PipeSection_VolumeCapacity(data%State%F_Counts%StringIntervalCounts+1:data%State%MudSystem%NoPipeSections)) + sum(data%State%MudSystem%OpSection_VolumeCapacity(1:data%State%F_Counts%BottomHoleIntervalCounts))

  45.                         write(*,*) 'cap_reset,DeltaWellCap=' , data%State%MudSystem%DeltaWellCap

  46.                     endif 

  47.    

  48.   

  49.    

  50. 

  51. !========================ANNULUS END=================

  52. if ((data%State%MudSystem%Ann_Mud_Forehead_X%Last() - data%Configuration%BopStack%AboveAnnularHeight) > 0.8 .or. data%State%MudSystem%Ann_Density%Last()==0.0) then ! for Line (BellNippleToWell-NonFullWell)

  53.     data%State%MudSystem%WellisNOTFull= .true.

  54. else

  55.     data%State%MudSystem%WellisNOTFull= .false.

  56. endif

  57. 

  58. !WRITE(*,*) 'Ann_Mud_Forehead_X%Last() , KillHeight', Ann_Mud_Forehead_X%Last() , KillHeight

  59. if ((data%State%MudSystem%Ann_Mud_Forehead_X%Last() - data%Configuration%BopStack%KillHeight)>0.8 .or. data%State%MudSystem%Ann_Density%Last()==0.0) then ! for Line j4 , WellToChokeManifold(Through 26)

  60.     data%State%MudSystem%ChokeLineNOTFull= .true.

  61. else

  62.     data%State%MudSystem%ChokeLineNOTFull= .false.

  63. endif

  64. 

  65. !=========================================================

  66.         

  67.         jmud= 1

  68.         jsection= 1

  69.         jelement= 0     ! number of final mud elements

  70. 

  71.         

  72.         

  73.         call data%State%MudSystem%Xend_MudElement%Empty()

  74.         call data%State%MudSystem%TVDend_MudElement%Empty()

  75.         call data%State%MudSystem%Density_MudElement%Empty()

  76.         call data%State%MudSystem%MudGeoType%Empty()

  77.         call data%State%MudSystem%PipeID_MudElement%Empty()

  78.         call data%State%MudSystem%PipeOD_MudElement%Empty()

  79. !call Angle_MudElement%Empty()

  80.         call data%State%MudSystem%MudType_MudElement%Empty()

  81.         

  82. 

  83.         

  84.         DO WHILE(jmud <= data%State%MudSystem%Hz_Mud_Forehead_X%Length() .and. jsection<=1)

  85.             

  86.                 jelement= jelement+1

  87.                 data%State%MudSystem%TrueMinValue= min(data%State%MudSystem%Hz_Mud_Forehead_X%Array(jmud), data%State%MudSystem%Xend_PipeSection(jsection))

  88. 

  89.                 call data%State%MudSystem%Xend_MudElement%Add(data%State%MudSystem%TrueMinValue)

  90.                 call TVD_Calculator(data%State%MudSystem%TrueMinValue,data%State%MudSystem%MudCircVerticalDepth)

  91.                 call data%State%MudSystem%TVDend_MudElement%Add(data%State%MudSystem%MudCircVerticalDepth)

  92.                 call data%State%MudSystem%Density_MudElement%Add(data%State%MudSystem%Hz_Density%Array(jmud))

  93.                 call data%State%MudSystem%PipeID_MudElement%Add(data%State%MudSystem%ID_PipeSectionInch(jsection))

  94.                 call data%State%MudSystem%PipeOD_MudElement%Add(data%State%MudSystem%OD_PipeSectionInch(jsection))

  95. !call Angle_MudElement%Add(Angle_PipeSection(jsection))

  96.                 call data%State%MudSystem%MudType_MudElement%Add(data%State%MudSystem%Hz_MudOrKick%Array(jmud))

  97.                 

  98.                 

  99.                 if (data%State%MudSystem%Xend_MudElement%Array(jelement)== data%State%MudSystem%Hz_Mud_Forehead_X%Array(jmud)) then

  100.                     jmud= jmud+1

  101.                 else

  102.                     jsection= jsection+1

  103.                 endif

  104.         

  105.         ENDDO 

  106.         

  107.         data%State%MudSystem%NoHorizontalMudElements= jelement   

  108.         

  109. 

  110.         

  111.         

  112.         jmud= 1        

  113.         jsection= 2        

  114.         

  115.         DO WHILE(jmud <= data%State%MudSystem%St_Mud_Forehead_X%Length() .and. jsection<=data%State%F_Counts%StringIntervalCounts)

  116.             

  117.                 jelement= jelement+1

  118.                 data%State%MudSystem%TrueMinValue= min(data%State%MudSystem%St_Mud_Forehead_X%Array(jmud), data%State%MudSystem%Xend_PipeSection(jsection))

  119. 

  120.                 call data%State%MudSystem%Xend_MudElement%Add(data%State%MudSystem%TrueMinValue)

  121.                 call TVD_Calculator(data%State%MudSystem%TrueMinValue,data%State%MudSystem%MudCircVerticalDepth)

  122.                 call data%State%MudSystem%TVDend_MudElement%Add(data%State%MudSystem%MudCircVerticalDepth)                

  123.                 call data%State%MudSystem%Density_MudElement%Add(data%State%MudSystem%St_Density%Array(jmud))

  124.                 call data%State%MudSystem%PipeID_MudElement%Add(data%State%MudSystem%ID_PipeSectionInch(jsection))

  125.                 call data%State%MudSystem%PipeOD_MudElement%Add(data%State%MudSystem%OD_PipeSectionInch(jsection))

  126. !call Angle_MudElement%Add(Angle_PipeSection(jsection))

  127.                 call data%State%MudSystem%MudType_MudElement%Add(data%State%MudSystem%St_MudOrKick%Array(jmud))

  128.                 

  129.                 

  130.                 if (data%State%MudSystem%Xend_MudElement%Array(jelement)== data%State%MudSystem%St_Mud_Forehead_X%Array(jmud)) then

  131.                     jmud= jmud+1

  132.                 else

  133.                     jsection= jsection+1

  134.                 endif

  135.         

  136.         ENDDO

  137. 

  138.         data%State%MudSystem%NoStringMudElements= jelement- data%State%MudSystem%NoHorizontalMudElements

  139.         

  140.         

  141. 

  142.         

  143.         

  144.         jmud= 1

  145.         jsection= data%State%F_Counts%StringIntervalCounts+1

  146.         DO WHILE(jmud<=  data%State%MudSystem%Ann_Mud_Forehead_X%Length() .and. jsection<=data%State%MudSystem%NoPipeSections)

  147.             

  148.                 jelement= jelement+1

  149.                 data%State%MudSystem%TrueMinValue= max(data%State%MudSystem%Ann_Mud_Forehead_X%Array(jmud), data%State%MudSystem%Xend_PipeSection(jsection))

  150. 

  151.                 call data%State%MudSystem%Xend_MudElement%Add(data%State%MudSystem%TrueMinValue)

  152.                 call TVD_Calculator(data%State%MudSystem%TrueMinValue,data%State%MudSystem%MudCircVerticalDepth)

  153.                 call data%State%MudSystem%TVDend_MudElement%Add(data%State%MudSystem%MudCircVerticalDepth)                

  154.                 call data%State%MudSystem%Density_MudElement%Add(data%State%MudSystem%Ann_Density%Array(jmud))

  155.                 call data%State%MudSystem%PipeID_MudElement%Add(data%State%MudSystem%ID_PipeSectionInch(jsection))

  156.                 call data%State%MudSystem%PipeOD_MudElement%Add(data%State%MudSystem%OD_PipeSectionInch(jsection))

  157. !call Angle_MudElement%Add(Angle_PipeSection(jsection))

  158.                 call data%State%MudSystem%MudType_MudElement%Add(data%State%MudSystem%Ann_MudOrKick%Array(jmud))

  159.                 

  160.                 

  161.                 if (data%State%MudSystem%Xend_MudElement%Array(jelement)== data%State%MudSystem%Ann_Mud_Forehead_X%Array(jmud)) then

  162.                     jmud= jmud+1

  163.                 else

  164.                     jsection= jsection+1

  165.                 endif

  166.         

  167.         ENDDO        

  168.         

  169.                 do i= 2, data%State%MudSystem%Xend_MudElement%Length()

  170.                     if ( i== data%State%MudSystem%NoHorizontalMudElements+data%State%MudSystem%NoStringMudElements+1) then

  171.                         call data%State%MudSystem%Xstart_MudElement%Add (data%State%MudSystem%Ann_Mud_Backhead_X%Array(1))        ! start of annulus

  172.                         call TVD_Calculator(data%State%MudSystem%Ann_Mud_Backhead_X%Array(1),data%State%MudSystem%MudCircVerticalDepth)

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

  174.                     elseif ( i== data%State%MudSystem%NoHorizontalMudElements+1 ) then

  175.                         call data%State%MudSystem%Xstart_MudElement%Add (data%State%MudSystem%St_Mud_Backhead_X%Array(1))        ! start of stirng

  176.                         call TVD_Calculator(data%State%MudSystem%St_Mud_Backhead_X%Array(1),data%State%MudSystem%MudCircVerticalDepth)

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

  178.                     else

  179.                         call data%State%MudSystem%Xstart_MudElement%Add(data%State%MudSystem%Xend_MudElement%Array(i-1))          ! normal calculation

  180.                         call data%State%MudSystem%TVDstart_MudElement%Add(data%State%MudSystem%TVDend_MudElement%Array(i-1))          ! normal calculation

  181.                     endif

  182.                     

  183.                 enddo

  184. 

  185.             data%State%MudSystem%NoCasingMudElements = jelement- data%State%MudSystem%NoStringMudElements- data%State%MudSystem%NoHorizontalMudElements

  186.             

  187.             

  188. !=========================For Torque and Drag========================

  189.         if (allocated(data%State%MudSystem%TDXstart_MudElementArray)) deallocate(data%State%MudSystem%TDXstart_MudElementArray)

  190.         allocate(data%State%MudSystem%TDXstart_MudElementArray(data%State%MudSystem%NoHorizontalMudElements+data%State%MudSystem%NoStringMudElements+data%State%MudSystem%NoCasingMudElements))

  191.         if (allocated(data%State%MudSystem%TDXend_MudElementArray)) deallocate(data%State%MudSystem%TDXend_MudElementArray)

  192.         allocate(data%State%MudSystem%TDXend_MudElementArray(data%State%MudSystem%NoHorizontalMudElements+data%State%MudSystem%NoStringMudElements+data%State%MudSystem%NoCasingMudElements))

  193.         if (allocated(data%State%MudSystem%TDDensity_MudElementArray)) deallocate(data%State%MudSystem%TDDensity_MudElementArray)

  194.         allocate(data%State%MudSystem%TDDensity_MudElementArray(data%State%MudSystem%NoHorizontalMudElements+data%State%MudSystem%NoStringMudElements+data%State%MudSystem%NoCasingMudElements))

  195.         

  196.         data%State%MudSystem%TDNoHorizontalMudElements= data%State%MudSystem%NoHorizontalMudElements

  197.         data%State%MudSystem%TDNoStringMudElements= data%State%MudSystem%NoStringMudElements

  198.         data%State%MudSystem%TDNoCasingMudElements= data%State%MudSystem%NoCasingMudElements 

  199.         

  200. 

  201.            data%State%MudSystem%TDXstart_MudElementArray(:) = data%State%MudSystem%Xstart_MudElement%Array(:)

  202.            data%State%MudSystem%TDXend_MudElementArray(:) = data%State%MudSystem%Xend_MudElement%Array(:)

  203.            data%State%MudSystem%TDDensity_MudElementArray(:) = data%State%MudSystem%Density_MudElement%Array(:)

  204. !=====================================================================

  205.           

  206.            

  207. !do i=NoHorizontalMudElements+1, NoHorizontalMudElements+NoStringMudElements            ! 2-string elements

  208. !        write(*,333) 'STRING:', i,'Xstart\=', Xstart_MudElement%Array(i), 'Xend=' , Xend_MudElement%Array(i), 'Density=' , Density_MudElement%Array(i), 'MudType=' , MudType_MudElement%Array(i)

  209. !enddo

  210.            

  211.            

  212.            

  213. !================================================================

  214.             

  215. !                   Open Hole Mud Elements

  216.         jopmud= 1

  217.         jopsection= 1

  218.         jopelement= 0     ! number of final mud elements

  219. 

  220.         

  221.         call data%State%MudSystem%Xend_OpMudElement%Empty()

  222.         call data%State%MudSystem%TVDend_OpMudElement%Empty()

  223.         call data%State%MudSystem%Density_OpMudElement%Empty()

  224.         call data%State%MudSystem%PipeID_OpMudElement%Empty()

  225.         call data%State%MudSystem%PipeOD_OpMudElement%Empty()

  226. !call Angle_OpMudElement%Empty()

  227.         call data%State%MudSystem%MudTypeOp_MudElement%Empty()

  228.         

  229.             

  230. 

  231.         DO WHILE(jopmud<=  data%State%MudSystem%Op_Mud_Forehead_X%Length() .and. jopsection<=data%State%F_Counts%BottomHoleIntervalCounts)

  232.             

  233.                 jopelement= jopelement+1

  234.                 data%State%MudSystem%TrueMinValue= max(data%State%MudSystem%Op_Mud_Forehead_X%Array(jopmud), data%State%MudSystem%Xend_OpSection(jopsection))

  235.                 call data%State%MudSystem%Xend_OpMudElement%Add(data%State%MudSystem%TrueMinValue)

  236.                 call TVD_Calculator(data%State%MudSystem%TrueMinValue,data%State%MudSystem%MudCircVerticalDepth)

  237.                 call data%State%MudSystem%TVDend_OpMudElement%Add(data%State%MudSystem%MudCircVerticalDepth)                 

  238.                 call data%State%MudSystem%Density_OpMudElement%Add(data%State%MudSystem%Op_Density%Array(jopmud))

  239.                 call data%State%MudSystem%PipeID_OpMudElement%Add(data%State%MudSystem%ID_OpSectionInch(jopsection))

  240.                 call data%State%MudSystem%PipeOD_OpMudElement%Add(data%State%MudSystem%OD_OpSectionInch(jopsection))

  241. !call Angle_MudElement%Add(Angle_PipeSection(jopsection))

  242.                 call data%State%MudSystem%MudTypeOp_MudElement%Add(data%State%MudSystem%Op_MudOrKick%Array(jopmud))

  243.                 

  244.                 

  245.                 if (data%State%MudSystem%Xend_OpMudElement%Array(jopelement)== data%State%MudSystem%Op_Mud_Forehead_X%Array(jopmud)) then

  246.                     jopmud= jopmud+1

  247.                 else

  248.                     jopsection= jopsection+1

  249.                 endif

  250.         

  251.         ENDDO        

  252.         

  253.                 do i= 2, data%State%MudSystem%Xend_OpMudElement%Length()

  254.                     call data%State%MudSystem%Xstart_OpMudElement%Add(data%State%MudSystem%Xend_OpMudElement%Array(i-1))

  255.                     call data%State%MudSystem%TVDstart_OpMudElement%Add(data%State%MudSystem%TVDend_OpMudElement%Array(i-1))

  256.                 enddo

  257. 

  258.             data%State%MudSystem%NoBottomHoleMudElements = jopelement

  259.             

  260.             

  261. !================================================================

  262.              

  263.  

  264.         

  265.         if(allocated(data%State%MudSystem%StringMudElement)) deallocate(data%State%MudSystem%StringMudElement)

  266.         allocate(data%State%MudSystem%StringMudElement(data%State%MudSystem%NoStringMudElements))

  267.         

  268.         if(allocated(data%State%MudSystem%CasingMudElement)) deallocate(data%State%MudSystem%CasingMudElement)

  269.         allocate(data%State%MudSystem%CasingMudElement(data%State%MudSystem%NoCasingMudElements+data%State%MudSystem%NoBottomHoleMudElements))        

  270.         

  271.         data%State%MudSystem%istring=0    

  272.         data%State%MudSystem%icasing=0

  273.         

  274.         data%State%MudSystem%BitMudDensity= data%State%MudSystem%Density_MudElement%Array(data%State%MudSystem%NoHorizontalMudElements+data%State%MudSystem%NoStringMudElements)  ! (for ROP module)

  275. !================================================================

  276.         

  277. !============================ UTUBE =============================

  278.         

  279. !IF (UtubePossibility== .true. .and. Get_KellyConnection() /= KELLY_CONNECTION_STRING .and. WellHeadIsOpen) THEN

  280.         IF (data%State%MudSystem%UtubePossibility== .true. .and. data%State%TD_StConn%FluidStringConnectionMode==0 .and. data%State%MudSystem%WellHeadIsOpen .AND. KickVARIABLES%NoGasPocket == 0) THEN

  281.                 CALL WellPressureDataTransfer

  282. !WRITE (*,*) ' U-Tube Done 1'

  283.                 CALL Utube

  284. !WRITE (*,*) ' U-Tube Done 2'

  285.                 if (UTUBEVARS%QUtubeInput> 0.0) call Utube1_and_TripIn

  286.                 if (UTUBEVARS%QUtubeOutput> 0.0) call Utube2_and_TripIn

  287.         END IF

  288.        

  289. !========================== UTUBE- end =========================

  290.        

  291. ! do imud=1, st_MudDischarged_Volume%Length()

  292. !    write(*,*) 'st-plot:', imud, St_MudDischarged_Volume%Array(imud), St_Mud_Backhead_X%Array(imud) ,St_Mud_Forehead_X%Array(imud)

  293. !enddo

  294. !==================== Display ========================

  295. !do i=1, St_MudOrKick%Length()

  296. !    write(*,555) i,'St_Volume(i), type=' ,St_MudDischarged_Volume%Array(i),St_MudOrKick%Array(i)

  297. !

  298. !    IF (IEEE_Is_NaN(St_MudDischarged_Volume%Array(i)))      call ErrorStop('NaN in St Volume-Plot')

  299. !    IF (St_MudDischarged_Volume%Array(i)<0.)      call ErrorStop('St Volume <0' , St_MudDischarged_Volume%Array(i))

  300. !enddo

  301.              

  302.              

  303.         IF (ANY(IEEE_Is_NaN(data%State%MudSystem%Op_MudDischarged_Volume%Array(:))) .OR. ANY(data%State%MudSystem%Op_MudDischarged_Volume%Array(:) <= 0.0)) THEN

  304.             do i = 1 , data%State%MudSystem%Op_MudOrKick%Length()

  305.                 write(*,555) i,'Op_Volume(i), type=' ,data%State%MudSystem%Op_MudDischarged_Volume%Array(i) , data%State%MudSystem%Op_MudOrKick%Array(i) , data%State%MudSystem%Op_Density%Array(i)

  306.             end do        

  307.             call ErrorStop('NaN in Op Volume-Plot or Op Volume <=0')

  308.         END IF

  309.         

  310.             

  311.         IF (ANY(IEEE_Is_NaN(data%State%MudSystem%Ann_MudDischarged_Volume%Array(:))) .OR. ANY(data%State%MudSystem%Ann_MudDischarged_Volume%Array(:) <= 0.0)) THEN

  312.             do i = 1 , data%State%MudSystem%Ann_MudOrKick%Length()

  313.                 write(*,555) i,'Ann_Volume(i), type=' ,data%State%MudSystem%Ann_MudDischarged_Volume%Array(i) , data%State%MudSystem%Ann_MudOrKick%Array(i) , data%State%MudSystem%Ann_Density%Array(i)

  314.             end do        

  315.             call ErrorStop('NaN in Ann Volume-Plot or Ann Volume <=0')

  316.         END IF

  317.         

  318. !do i=1, Ann_MudOrKick%Length()

  319. !    !write(*,555) i,'Ann_Volume(i), type=' ,Ann_MudDischarged_Volume%Array(i),Ann_MudOrKick%Array(i),Ann_Density%Array(i)

  320. !

  321. !    IF (IEEE_Is_NaN(Ann_MudDischarged_Volume%Array(i)))      call ErrorStop('NaN in Ann Volume-Plot')

  322. !    IF (Ann_MudDischarged_Volume%Array(i)<=0.)      call ErrorStop('Ann Volume <=0' , Ann_MudDischarged_Volume%Array(i))

  323. !enddo

  324.         

  325. 555     FORMAT(I3,5X,A42,(f12.5),5X,I3,5X,(f12.5))         

  326.         

  327.         data%State%MudSystem%NoStringMudElementsForPlot= data%State%MudSystem%NoStringMudElements

  328.         

  329. !   1-Horizontal Mud Elements are not shown

  330. !write(*,333) 'Horiz:', 1,'Xstart\=', Xstart_MudElement%Array(1), 'Xend=' , Xend_MudElement%Array(1), 'Density=' , Density_MudElement%Array(1), 'MudType=' , MudType_MudElement%Array(1)

  331. 

  332.         do i=data%State%MudSystem%NoHorizontalMudElements+1, data%State%MudSystem%NoHorizontalMudElements+data%State%MudSystem%NoStringMudElements            ! 2-string elements

  333.                 if (data%State%MudSystem%Xend_MudElement%Array(i) <= 0.0) then

  334.                     data%State%MudSystem%NoStringMudElementsForPlot= data%State%MudSystem%NoStringMudElementsForPlot-1

  335.                     cycle

  336.                 endif

  337.                 data%State%MudSystem%istring= data%State%MudSystem%istring+1

  338.                 data%State%MudSystem%StringMudElement(data%State%MudSystem%istring)%StartMd = data%State%MudSystem%Xstart_MudElement%Array(i)

  339.                 data%State%MudSystem%StringMudElement(data%State%MudSystem%istring)%EndMd = data%State%MudSystem%Xend_MudElement%Array(i)

  340. !StringMudElement(istring)%Id = PipeID_MudElement%Array(i)

  341. !StringMudElement(istring)%Od = PipeOD_MudElement%Array(i)

  342.                 data%State%MudSystem%StringMudElement(data%State%MudSystem%istring)%Density = data%State%MudSystem%Density_MudElement%Array(i)

  343. 

  344.                 if (data%State%MudSystem%MudType_MudElement%Array(i) == 104) then

  345.                     data%State%MudSystem%MudType_MudElement%Array(i)= 4  ! air

  346.                 elseif (data%State%MudSystem%MudType_MudElement%Array(i) > 0 .and. data%State%MudSystem%MudType_MudElement%Array(i) < 100) then       ! all kicks

  347.                     data%State%MudSystem%MudType_MudElement%Array(i)= 1  ! gas kick

  348.                 endif

  349. 

  350.                 data%State%MudSystem%StringMudElement(data%State%MudSystem%istring)%MudType = data%State%MudSystem%MudType_MudElement%Array(i)

  351. !write(*,333) 'STRING:', i,'Xstart\=', Xstart_MudElement%Array(i), 'Xend=' , Xend_MudElement%Array(i), 'Density=' , Density_MudElement%Array(i), 'MudType=' , MudType_MudElement%Array(i)

  352.         enddo

  353.         

  354.        

  355. 

  356.         do i=data%State%MudSystem%Xend_MudElement%Length(), data%State%MudSystem%NoHorizontalMudElements+data%State%MudSystem%NoStringMudElements+1  , -1               ! 3-casing elements

  357.                 data%State%MudSystem%icasing= data%State%MudSystem%icasing+1

  358.                 data%State%MudSystem%CasingMudElement(data%State%MudSystem%icasing)%StartMd = data%State%MudSystem%Xend_MudElement%Array(i)

  359.                 data%State%MudSystem%CasingMudElement(data%State%MudSystem%icasing)%EndMd = data%State%MudSystem%Xstart_MudElement%Array(i)

  360. !CasingMudElement(icasing)%Id = PipeID_MudElement%Array(i)

  361. !CasingMudElement(icasing)%Od = PipeOD_MudElement%Array(i)

  362. !write(*,333) 'CASING:', i,'Xstart\=', Xstart_MudElement%Array(i), 'Xend=' , Xend_MudElement%Array(i), 'Density=' , Density_MudElement%Array(i), 'MudType=' , MudType_MudElement%Array(i)

  363. !call Log_1(temp1)

  364. !write(*,444) 'CASING:', i,'Xstart\=', Xstart_MudElement%Array(i), 'Xend=' , Xend_MudElement%Array(i), 'PipeID_MudElement%Array(i)=' , PipeID_MudElement%Array(i), 'PipeOD_MudElement%Array(i)=' , PipeOD_MudElement%Array(i)

  365.                 data%State%MudSystem%CasingMudElement(data%State%MudSystem%icasing)%Density = data%State%MudSystem%Density_MudElement%Array(i)

  366.                 

  367.                 if (data%State%MudSystem%MudType_MudElement%Array(i) == 104) then

  368.                     data%State%MudSystem%MudType_MudElement%Array(i)= 4  ! air

  369.                 elseif (data%State%MudSystem%MudType_MudElement%Array(i) > 0 .and. data%State%MudSystem%MudType_MudElement%Array(i) < 100) then

  370.                     data%State%MudSystem%MudType_MudElement%Array(i)= 1  ! gas kick

  371.                 endif

  372.                 

  373.                 data%State%MudSystem%CasingMudElement(data%State%MudSystem%icasing)%MudType = data%State%MudSystem%MudType_MudElement%Array(i)

  374.                 

  375.         enddo

  376.         

  377.         do i= data%State%MudSystem%NoBottomHoleMudElements, 1  , -1               ! 4-open hole elements

  378.                 data%State%MudSystem%icasing= data%State%MudSystem%icasing+1

  379.                 data%State%MudSystem%CasingMudElement(data%State%MudSystem%icasing)%StartMd = data%State%MudSystem%Xend_OpMudElement%Array(i)

  380.                 data%State%MudSystem%CasingMudElement(data%State%MudSystem%icasing)%EndMd = data%State%MudSystem%Xstart_OpMudElement%Array(i)

  381. !CasingMudElement(icasing)%Id = PipeID_OpMudElement%Array(i)

  382. !CasingMudElement(icasing)%Od = PipeOD_OpMudElement%Array(i)

  383. !write(*,333) 'OpenHole:',i,'Xstart\=', Xstart_OpMudElement%Array(i), 'Xend=' , Xend_OpMudElement%Array(i), 'Density=' , Density_OpMudElement%Array(i), 'MudType=' , MudTypeOp_MudElement%Array(i)

  384. !call Log_1(temp2)

  385. !write(*,444) 'OpenHole:',i,'Xstart\=', Xstart_OpMudElement%Array(i), 'Xend=' , Xend_OpMudElement%Array(i), 'PipeID_MudElement%Array(i)=' , PipeID_MudElement%Array(i), 'PipeOD_MudElement%Array(i)=' , PipeOD_MudElement%Array(i)

  386.                 data%State%MudSystem%CasingMudElement(data%State%MudSystem%icasing)%Density = data%State%MudSystem%Density_OpMudElement%Array(i)

  387.                 

  388.                 if (data%State%MudSystem%MudTypeOp_MudElement%Array(i) == 104) then

  389.                     data%State%MudSystem%MudTypeOp_MudElement%Array(i)= 4  ! air

  390.                 elseif (data%State%MudSystem%MudTypeOp_MudElement%Array(i) > 0 .and. data%State%MudSystem%MudTypeOp_MudElement%Array(i) < 100) then

  391.                     data%State%MudSystem%MudTypeOp_MudElement%Array(i)= 1  ! gas kick

  392.                 endif                

  393.                 

  394.                 data%State%MudSystem%CasingMudElement(data%State%MudSystem%icasing)%MudType = data%State%MudSystem%MudTypeOp_MudElement%Array(i)

  395.         enddo        

  396.         

  397. 

  398.         

  399. 333     FORMAT(A10,I3,5X,A8,(f12.5),5X,A8,(f12.5),5X,A8,(f12.5),5X,A8,I3)  

  400. 444     FORMAT(A10,I2,5X,A8,(f12.3),5X,A8,(f12.3),5X,A8,(f12.3),5X,A8,(f12.3))        

  401.         

  402.         

  403.         

  404. ! shomare gozari be tartib HZ mud, ST mud, Casing

  405. ! shomare gzari OpenHole jodagane ast az 1

  406.         

  407.         call SetStringFluids(data%State%MudSystem%NoStringMudElementsForPlot, data%State%MudSystem%StringMudElement)      !for data display in string

  408.         call SetAnnalusFluids(data%State%MudSystem%NoCasingMudElements+data%State%MudSystem%NoBottomHoleMudElements, data%State%MudSystem%CasingMudElement)       !for data display in casing

  409. 

  410. 

  411. !===========================================================================================================================

  412. !===========================================================================================================================

  413. 

  414. 

  415.     end subroutine PlotFinalMudElements

  416.     

  417.     

  418.