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

407 lines
25 KiB
Raw Blame History 

  1. subroutine PlotFinalMudElements    !  is called in subroutine CirculationCodeSelect

  2.     

  3.         Use GeoElements_FluidModule

  4.         USE CMudPropertiesVariables

  5.         USE MudSystemVARIABLES

  6.         use SimulationVariables

  7.         Use TD_StringConnectionData

  8.         USE CHOKEVARIABLES

  9.         !use CTanks

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

  11.         USE sROP_Other_Variables

  12.         USE sROP_Variables

  13.         use KickVARIABLESModule

  14.         use OperationScenariosModule

  15.         use UTUBEVARSModule

  16.         use DownHoleModule

  17.         use CLog1

  18.         Use CError

  19.         Use , intrinsic :: IEEE_Arithmetic

  20.    

  21.    implicit none

  22.    

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

  24.    integer jopelement,jopmud,jopsection

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

  26. 

  27.    

  28.    

  29.    

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

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

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

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

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

  35.                     endif 

  36.    

  37.   

  38.    

  39. 

  40. !========================ANNULUS END================= 

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

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

  43. else

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

  45. endif

  46. 

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

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

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

  50. else

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

  52. endif

  53. 

  54. !=========================================================                

  55.         

  56.         jmud= 1

  57.         jsection= 1

  58.         jelement= 0     ! number of final mud elements

  59. 

  60.         

  61.         

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

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

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

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

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

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

  68.         !call Angle_MudElement%Empty()

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

  70.         

  71. 

  72.         

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

  74.             

  75.                 jelement= jelement+1

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

  77. 

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

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

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

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

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

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

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

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

  86.                 

  87.                 

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

  89.                     jmud= jmud+1

  90.                 else

  91.                     jsection= jsection+1

  92.                 endif

  93.         

  94.         ENDDO 

  95.         

  96.         data%State%MudSystem%NoHorizontalMudElements= jelement   

  97.         

  98. 

  99.         

  100.         

  101.         jmud= 1        

  102.         jsection= 2        

  103.         

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

  105.             

  106.                 jelement= jelement+1

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

  108. 

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

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

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

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

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

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

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

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

  117.                 

  118.                 

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

  120.                     jmud= jmud+1

  121.                 else

  122.                     jsection= jsection+1

  123.                 endif

  124.         

  125.         ENDDO

  126. 

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

  128.         

  129.         

  130. 

  131.         

  132.         

  133.         jmud= 1

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

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

  136.             

  137.                 jelement= jelement+1

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

  139. 

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

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

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

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

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

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

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

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

  148.                 

  149.                 

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

  151.                     jmud= jmud+1

  152.                 else

  153.                     jsection= jsection+1

  154.                 endif

  155.         

  156.         ENDDO        

  157.         

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

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

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

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

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

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

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

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

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

  167.                     else

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

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

  170.                     endif

  171.                     

  172.                 enddo

  173. 

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

  175.             

  176.             

  177. !=========================For Torque and Drag========================            

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

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

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

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

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

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

  184.         

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

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

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

  188.         

  189. 

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

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

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

  193. !=====================================================================            

  194.           

  195.            

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

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

  198.         !enddo           

  199.            

  200.            

  201.            

  202.  !================================================================

  203.             

  204.  !                   Open Hole Mud Elements    

  205.         jopmud= 1

  206.         jopsection= 1

  207.         jopelement= 0     ! number of final mud elements

  208. 

  209.         

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

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

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

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

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

  215.         !call Angle_OpMudElement%Empty()

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

  217.         

  218.             

  219. 

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

  221.             

  222.                 jopelement= jopelement+1

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

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

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

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

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

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

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

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

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

  232.                 

  233.                 

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

  235.                     jopmud= jopmud+1

  236.                 else

  237.                     jopsection= jopsection+1

  238.                 endif

  239.         

  240.         ENDDO        

  241.         

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

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

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

  245.                 enddo

  246. 

  247.             data%State%MudSystem%NoBottomHoleMudElements = jopelement

  248.             

  249.             

  250.   !================================================================

  251.              

  252.  

  253.         

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

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

  256.         

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

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

  259.         

  260.         data%State%MudSystem%istring=0    

  261.         data%State%MudSystem%icasing=0

  262.         

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

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

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

  266.         

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

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

  269.                 CALL WellPressureDataTransfer

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

  271.                 CALL Utube

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

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

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

  275.         END IF

  276.        

  277.   !========================== UTUBE- end ========================= 

  278.        

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

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

  281.         !enddo          

  282. !==================== Display ========================

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

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

  285.         !

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

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

  288.         !enddo              

  289.              

  290.              

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

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

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

  294.             end do        

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

  296.         END IF

  297.         

  298.             

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

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

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

  302.             end do        

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

  304.         END IF

  305.         

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

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

  308.         !    

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

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

  311.         !enddo

  312.         

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

  314.         

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

  316.         

  317.         !   1-Horizontal Mud Elements are not shown

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

  319. 

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

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

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

  323.                     cycle

  324.                 endif

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

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

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

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

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

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

  331. 

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

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

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

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

  336.                 endif

  337. 

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

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

  340.         enddo

  341.         

  342.        

  343. 

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

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

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

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

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

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

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

  351.                 !call Log_1(temp1)

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

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

  354.                 

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

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

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

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

  359.                 endif

  360.                 

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

  362.                 

  363.         enddo

  364.         

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

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

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

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

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

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

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

  372.                 !call Log_1(temp2)

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

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

  375.                 

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

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

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

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

  380.                 endif                

  381.                 

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

  383.         enddo        

  384.         

  385. 

  386.         

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

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

  389.         

  390.         

  391.         

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

  393.         ! shomare gzari OpenHole jodagane ast az 1

  394.         

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

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

  397. 

  398. 

  399. !===========================================================================================================================

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

  401. 

  402. 

  403.     end subroutine PlotFinalMudElements

  404.     

  405.     

  406.