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

408 lines
25 KiB
Raw Blame History 

  1. # 1 "/home/admin/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 TD_StringConnectionData

  9.         USE CHOKEVARIABLES

  10. !use CTanks

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

  12.         USE sROP_Other_Variables

  13.         USE sROP_Variables

  14.         use KickVARIABLESModule

  15.         use OperationScenariosModule

  16.         use UTUBEVARSModule

  17.         use DownHoleModule

  18.         use CLog1

  19.         Use CError

  20.         Use , intrinsic :: IEEE_Arithmetic

  21.    

  22.    implicit none

  23.    

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

  25.    integer jopelement,jopmud,jopsection

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

  27. 

  28.    

  29.    

  30.    

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

  32.   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)) 

  33.                         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

  34.                         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))

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

  36.                     endif 

  37.    

  38.   

  39.    

  40. 

  41. !========================ANNULUS END=================

  42. 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)

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

  44. else

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

  46. endif

  47. 

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

  49. 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)

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

  51. else

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

  53. endif

  54. 

  55. !=========================================================

  56.         

  57.         jmud= 1

  58.         jsection= 1

  59.         jelement= 0     ! number of final mud elements

  60. 

  61.         

  62.         

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

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

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

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

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

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

  69. !call Angle_MudElement%Empty()

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

  71.         

  72. 

  73.         

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

  75.             

  76.                 jelement= jelement+1

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

  78. 

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

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

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

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

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

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

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

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

  87.                 

  88.                 

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

  90.                     jmud= jmud+1

  91.                 else

  92.                     jsection= jsection+1

  93.                 endif

  94.         

  95.         ENDDO 

  96.         

  97.         data%State%MudSystem%NoHorizontalMudElements= jelement   

  98.         

  99. 

  100.         

  101.         

  102.         jmud= 1        

  103.         jsection= 2        

  104.         

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

  106.             

  107.                 jelement= jelement+1

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

  109. 

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

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

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

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

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

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

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

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

  118.                 

  119.                 

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

  121.                     jmud= jmud+1

  122.                 else

  123.                     jsection= jsection+1

  124.                 endif

  125.         

  126.         ENDDO

  127. 

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

  129.         

  130.         

  131. 

  132.         

  133.         

  134.         jmud= 1

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

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

  137.             

  138.                 jelement= jelement+1

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

  140. 

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

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

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

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

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

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

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

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

  149.                 

  150.                 

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

  152.                     jmud= jmud+1

  153.                 else

  154.                     jsection= jsection+1

  155.                 endif

  156.         

  157.         ENDDO        

  158.         

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

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

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

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

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

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

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

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

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

  168.                     else

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

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

  171.                     endif

  172.                     

  173.                 enddo

  174. 

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

  176.             

  177.             

  178. !=========================For Torque and Drag========================

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

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

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

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

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

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

  185.         

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

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

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

  189.         

  190. 

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

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

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

  194. !=====================================================================

  195.           

  196.            

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

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

  199. !enddo

  200.            

  201.            

  202.            

  203. !================================================================

  204.             

  205. !                   Open Hole Mud Elements

  206.         jopmud= 1

  207.         jopsection= 1

  208.         jopelement= 0     ! number of final mud elements

  209. 

  210.         

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

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

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

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

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

  216. !call Angle_OpMudElement%Empty()

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

  218.         

  219.             

  220. 

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

  222.             

  223.                 jopelement= jopelement+1

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

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

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

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

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

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

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

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

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

  233.                 

  234.                 

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

  236.                     jopmud= jopmud+1

  237.                 else

  238.                     jopsection= jopsection+1

  239.                 endif

  240.         

  241.         ENDDO        

  242.         

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

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

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

  246.                 enddo

  247. 

  248.             data%State%MudSystem%NoBottomHoleMudElements = jopelement

  249.             

  250.             

  251. !================================================================

  252.              

  253.  

  254.         

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

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

  257.         

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

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

  260.         

  261.         data%State%MudSystem%istring=0    

  262.         data%State%MudSystem%icasing=0

  263.         

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

  265. !================================================================

  266. !============================ UTUBE =============================

  267.         

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

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

  270.                 CALL WellPressureDataTransfer

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

  272.                 CALL Utube

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

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

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

  276.         END IF

  277.        

  278. !========================== UTUBE- end =========================

  279.        

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

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

  282. !enddo

  283. !==================== Display ========================

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

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

  286. !

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

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

  289. !enddo

  290.              

  291.              

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

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

  294.                 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)

  295.             end do        

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

  297.         END IF

  298.         

  299.             

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

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

  302.                 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)

  303.             end do        

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

  305.         END IF

  306.         

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

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

  309. !

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

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

  312. !enddo

  313.         

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

  315.         

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

  317.         

  318. !   1-Horizontal Mud Elements are not shown

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

  320. 

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

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

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

  324.                     cycle

  325.                 endif

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

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

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

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

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

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

  332. 

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

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

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

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

  337.                 endif

  338. 

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

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

  341.         enddo

  342.         

  343.        

  344. 

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

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

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

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

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

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

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

  352. !call Log_1(temp1)

  353. !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)

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

  355.                 

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

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

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

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

  360.                 endif

  361.                 

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

  363.                 

  364.         enddo

  365.         

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

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

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

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

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

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

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

  373. !call Log_1(temp2)

  374. !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)

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

  376.                 

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

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

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

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

  381.                 endif                

  382.                 

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

  384.         enddo        

  385.         

  386. 

  387.         

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

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

  390.         

  391.         

  392.         

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

  394. ! shomare gzari OpenHole jodagane ast az 1

  395.         

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

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

  398. 

  399. 

  400. !===========================================================================================================================

  401. !===========================================================================================================================

  402. 

  403. 

  404.     end subroutine PlotFinalMudElements

  405.     

  406.     

  407.