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

411 lines
22 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 Pumps_VARIABLES

  7.         Use TD_StringConnectionData

  8.         !USE CHOKEVARIABLES

  9.         !USE CDataDisplayConsoleVariables ,  StandPipePressureDataDisplay=>StandPipePressure

  10.         !use CManifolds

  11.         use CDrillWatchVariables

  12.         !use CHOKEVARIABLES

  13.         !use CChokeManifoldVariables

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

  15.         USE sROP_Other_Variables

  16.         USE sROP_Variables

  17.         Use KickVariables

  18.         USE CKellyConnectionEnumVariables

  19.         USE UTUBEVARS

  20.         use CLog1

  21.         Use CError

  22.         Use , intrinsic :: IEEE_Arithmetic

  23.    

  24.    implicit none

  25.    

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

  27.    integer jopelement,jopmud,jopsection

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

  29. 

  30.    

  31.    

  32.    

  33.                     if (ChokeControlPanel%ChokePanelStrokeResetSwitch == 1) then

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

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

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

  37.                         write(*,*) 'cap_reset,DeltaWellCap=' , MudSystem%DeltaWellCap

  38.                     endif 

  39.    

  40.   

  41.    

  42. 

  43. !========================ANNULUS END================= 

  44. if ((MudSystem%Ann_Mud_Forehead_X%Last() - BopStackSpecification%AboveAnnularHeight) > 0.8 .or. MudSystem%Ann_Density%Last()==0.0) then ! for Line (BellNippleToWell-NonFullWell) 

  45.     MudSystem%WellisNOTFull= .true.

  46. else

  47.     MudSystem%WellisNOTFull= .false.

  48. endif

  49. 

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

  51. if ((MudSystem%Ann_Mud_Forehead_X%Last() - BopStackSpecification%KillHeight)>0.8 .or. MudSystem%Ann_Density%Last()==0.0) then ! for Line j4 , WellToChokeManifold(Through 26)

  52.     MudSystem%ChokeLineNOTFull= .true.

  53. else

  54.     MudSystem%ChokeLineNOTFull= .false.

  55. endif

  56. 

  57. !=========================================================                

  58.         

  59.         jmud= 1

  60.         jsection= 1

  61.         jelement= 0     ! number of final mud elements

  62. 

  63.         

  64.         

  65.         call MudSystem%Xend_MudElement%Empty()

  66.         call MudSystem%TVDend_MudElement%Empty()

  67.         call MudSystem%Density_MudElement%Empty()

  68.         call MudSystem%MudGeoType%Empty()

  69.         call MudSystem%PipeID_MudElement%Empty()

  70.         call MudSystem%PipeOD_MudElement%Empty()

  71.         !call Angle_MudElement%Empty()

  72.         call MudSystem%MudType_MudElement%Empty()

  73.         

  74. 

  75.         

  76.         DO WHILE(jmud <= MudSystem%Hz_Mud_Forehead_X%Length() .and. jsection<=1)

  77.             

  78.                 jelement= jelement+1

  79.                 MudSystem%TrueMinValue= min(MudSystem%Hz_Mud_Forehead_X%Array(jmud), MudSystem%Xend_PipeSection(jsection))

  80. 

  81.                 call MudSystem%Xend_MudElement%Add(MudSystem%TrueMinValue)

  82.                 call TVD_Calculator(MudSystem%TrueMinValue,MudSystem%MudCircVerticalDepth)

  83.                 call MudSystem%TVDend_MudElement%Add(MudSystem%MudCircVerticalDepth)

  84.                 call MudSystem%Density_MudElement%Add(MudSystem%Hz_Density%Array(jmud))

  85.                 call MudSystem%PipeID_MudElement%Add(MudSystem%ID_PipeSectionInch(jsection))

  86.                 call MudSystem%PipeOD_MudElement%Add(MudSystem%OD_PipeSectionInch(jsection))

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

  88.                 call MudSystem%MudType_MudElement%Add(MudSystem%Hz_MudOrKick%Array(jmud))

  89.                 

  90.                 

  91.                 if (MudSystem%Xend_MudElement%Array(jelement)== MudSystem%Hz_Mud_Forehead_X%Array(jmud)) then

  92.                     jmud= jmud+1

  93.                 else

  94.                     jsection= jsection+1

  95.                 endif

  96.         

  97.         ENDDO 

  98.         

  99.         MudSystem%NoHorizontalMudElements= jelement   

  100.         

  101. 

  102.         

  103.         

  104.         jmud= 1        

  105.         jsection= 2        

  106.         

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

  108.             

  109.                 jelement= jelement+1

  110.                 MudSystem%TrueMinValue= min(MudSystem%St_Mud_Forehead_X%Array(jmud), MudSystem%Xend_PipeSection(jsection))

  111. 

  112.                 call MudSystem%Xend_MudElement%Add(MudSystem%TrueMinValue)

  113.                 call TVD_Calculator(MudSystem%TrueMinValue,MudSystem%MudCircVerticalDepth)

  114.                 call MudSystem%TVDend_MudElement%Add(MudSystem%MudCircVerticalDepth)                

  115.                 call MudSystem%Density_MudElement%Add(MudSystem%St_Density%Array(jmud))

  116.                 call MudSystem%PipeID_MudElement%Add(MudSystem%ID_PipeSectionInch(jsection))

  117.                 call MudSystem%PipeOD_MudElement%Add(MudSystem%OD_PipeSectionInch(jsection))

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

  119.                 call MudSystem%MudType_MudElement%Add(MudSystem%St_MudOrKick%Array(jmud))

  120.                 

  121.                 

  122.                 if (MudSystem%Xend_MudElement%Array(jelement)== MudSystem%St_Mud_Forehead_X%Array(jmud)) then

  123.                     jmud= jmud+1

  124.                 else

  125.                     jsection= jsection+1

  126.                 endif

  127.         

  128.         ENDDO

  129. 

  130.         MudSystem%NoStringMudElements= jelement- MudSystem%NoHorizontalMudElements

  131.         

  132.         

  133. 

  134.         

  135.         

  136.         jmud= 1

  137.         jsection= F_Counts%StringIntervalCounts+1

  138.         DO WHILE(jmud<=  MudSystem%Ann_Mud_Forehead_X%Length() .and. jsection<=MudSystem%NoPipeSections)

  139.             

  140.                 jelement= jelement+1

  141.                 MudSystem%TrueMinValue= max(MudSystem%Ann_Mud_Forehead_X%Array(jmud), MudSystem%Xend_PipeSection(jsection))

  142. 

  143.                 call MudSystem%Xend_MudElement%Add(MudSystem%TrueMinValue)

  144.                 call TVD_Calculator(MudSystem%TrueMinValue,MudSystem%MudCircVerticalDepth)

  145.                 call MudSystem%TVDend_MudElement%Add(MudSystem%MudCircVerticalDepth)                

  146.                 call MudSystem%Density_MudElement%Add(MudSystem%Ann_Density%Array(jmud))

  147.                 call MudSystem%PipeID_MudElement%Add(MudSystem%ID_PipeSectionInch(jsection))

  148.                 call MudSystem%PipeOD_MudElement%Add(MudSystem%OD_PipeSectionInch(jsection))

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

  150.                 call MudSystem%MudType_MudElement%Add(MudSystem%Ann_MudOrKick%Array(jmud))

  151.                 

  152.                 

  153.                 if (MudSystem%Xend_MudElement%Array(jelement)== MudSystem%Ann_Mud_Forehead_X%Array(jmud)) then

  154.                     jmud= jmud+1

  155.                 else

  156.                     jsection= jsection+1

  157.                 endif

  158.         

  159.         ENDDO        

  160.         

  161.                 do i= 2, MudSystem%Xend_MudElement%Length()

  162.                     if ( i== MudSystem%NoHorizontalMudElements+MudSystem%NoStringMudElements+1) then

  163.                         call MudSystem%Xstart_MudElement%Add (MudSystem%Ann_Mud_Backhead_X%Array(1))        ! start of annulus

  164.                         call TVD_Calculator(MudSystem%Ann_Mud_Backhead_X%Array(1),MudSystem%MudCircVerticalDepth)

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

  166.                     elseif ( i== MudSystem%NoHorizontalMudElements+1 ) then

  167.                         call MudSystem%Xstart_MudElement%Add (MudSystem%St_Mud_Backhead_X%Array(1))        ! start of stirng

  168.                         call TVD_Calculator(MudSystem%St_Mud_Backhead_X%Array(1),MudSystem%MudCircVerticalDepth)

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

  170.                     else

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

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

  173.                     endif

  174.                     

  175.                 enddo

  176. 

  177.             MudSystem%NoCasingMudElements = jelement- MudSystem%NoStringMudElements- MudSystem%NoHorizontalMudElements

  178.             

  179.             

  180. !=========================For Torque and Drag========================            

  181.         if (allocated(MudSystem%TDXstart_MudElementArray)) deallocate(MudSystem%TDXstart_MudElementArray)

  182.         allocate(MudSystem%TDXstart_MudElementArray(MudSystem%NoHorizontalMudElements+MudSystem%NoStringMudElements+MudSystem%NoCasingMudElements))

  183.         if (allocated(MudSystem%TDXend_MudElementArray)) deallocate(MudSystem%TDXend_MudElementArray)

  184.         allocate(MudSystem%TDXend_MudElementArray(MudSystem%NoHorizontalMudElements+MudSystem%NoStringMudElements+MudSystem%NoCasingMudElements))

  185.         if (allocated(MudSystem%TDDensity_MudElementArray)) deallocate(MudSystem%TDDensity_MudElementArray)

  186.         allocate(MudSystem%TDDensity_MudElementArray(MudSystem%NoHorizontalMudElements+MudSystem%NoStringMudElements+MudSystem%NoCasingMudElements))

  187.         

  188.         MudSystem%TDNoHorizontalMudElements= MudSystem%NoHorizontalMudElements

  189.         MudSystem%TDNoStringMudElements= MudSystem%NoStringMudElements

  190.         MudSystem%TDNoCasingMudElements= MudSystem%NoCasingMudElements 

  191.         

  192. 

  193.            MudSystem%TDXstart_MudElementArray(:) = MudSystem%Xstart_MudElement%Array(:)

  194.            MudSystem%TDXend_MudElementArray(:) = MudSystem%Xend_MudElement%Array(:)

  195.            MudSystem%TDDensity_MudElementArray(:) = MudSystem%Density_MudElement%Array(:)

  196. !=====================================================================            

  197.           

  198.            

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

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

  201.         !enddo           

  202.            

  203.            

  204.            

  205.  !================================================================

  206.             

  207.  !                   Open Hole Mud Elements    

  208.         jopmud= 1

  209.         jopsection= 1

  210.         jopelement= 0     ! number of final mud elements

  211. 

  212.         

  213.         call MudSystem%Xend_OpMudElement%Empty()

  214.         call MudSystem%TVDend_OpMudElement%Empty()

  215.         call MudSystem%Density_OpMudElement%Empty()

  216.         call MudSystem%PipeID_OpMudElement%Empty()

  217.         call MudSystem%PipeOD_OpMudElement%Empty()

  218.         !call Angle_OpMudElement%Empty()

  219.         call MudSystem%MudTypeOp_MudElement%Empty()

  220.         

  221.             

  222. 

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

  224.             

  225.                 jopelement= jopelement+1

  226.                 MudSystem%TrueMinValue= max(MudSystem%Op_Mud_Forehead_X%Array(jopmud), MudSystem%Xend_OpSection(jopsection))

  227.                 call MudSystem%Xend_OpMudElement%Add(MudSystem%TrueMinValue)

  228.                 call TVD_Calculator(MudSystem%TrueMinValue,MudSystem%MudCircVerticalDepth)

  229.                 call MudSystem%TVDend_OpMudElement%Add(MudSystem%MudCircVerticalDepth)                 

  230.                 call MudSystem%Density_OpMudElement%Add(MudSystem%Op_Density%Array(jopmud))

  231.                 call MudSystem%PipeID_OpMudElement%Add(MudSystem%ID_OpSectionInch(jopsection))

  232.                 call MudSystem%PipeOD_OpMudElement%Add(MudSystem%OD_OpSectionInch(jopsection))

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

  234.                 call MudSystem%MudTypeOp_MudElement%Add(MudSystem%Op_MudOrKick%Array(jopmud))

  235.                 

  236.                 

  237.                 if (MudSystem%Xend_OpMudElement%Array(jopelement)== MudSystem%Op_Mud_Forehead_X%Array(jopmud)) then

  238.                     jopmud= jopmud+1

  239.                 else

  240.                     jopsection= jopsection+1

  241.                 endif

  242.         

  243.         ENDDO        

  244.         

  245.                 do i= 2, MudSystem%Xend_OpMudElement%Length()

  246.                     call MudSystem%Xstart_OpMudElement%Add(MudSystem%Xend_OpMudElement%Array(i-1))

  247.                     call MudSystem%TVDstart_OpMudElement%Add(MudSystem%TVDend_OpMudElement%Array(i-1))

  248.                 enddo

  249. 

  250.             MudSystem%NoBottomHoleMudElements = jopelement

  251.             

  252.             

  253.   !================================================================

  254.              

  255.  

  256.         

  257.         if(allocated(MudSystem%StringMudElement)) deallocate(MudSystem%StringMudElement)

  258.         allocate(MudSystem%StringMudElement(MudSystem%NoStringMudElements))

  259.         

  260.         if(allocated(MudSystem%CasingMudElement)) deallocate(MudSystem%CasingMudElement)

  261.         allocate(MudSystem%CasingMudElement(MudSystem%NoCasingMudElements+MudSystem%NoBottomHoleMudElements))        

  262.         

  263.         MudSystem%istring=0    

  264.         MudSystem%icasing=0

  265.         

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

  267.   !================================================================   

  268.         

  269.   !============================ UTUBE =============================

  270.         

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

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

  273.                 CALL WellPressureDataTransfer

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

  275.                 CALL Utube

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

  277.                 if (QUtubeInput> 0.0) call Utube1_and_TripIn

  278.                 if (QUtubeOutput> 0.0) call Utube2_and_TripIn

  279.         END IF

  280.        

  281.   !========================== UTUBE- end ========================= 

  282.        

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

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

  285.         !enddo          

  286. !==================== Display ========================

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

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

  289.         !

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

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

  292.         !enddo              

  293.              

  294.              

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

  296.             do i = 1 , MudSystem%Op_MudOrKick%Length()

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

  298.             end do        

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

  300.         END IF

  301.         

  302.             

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

  304.             do i = 1 , MudSystem%Ann_MudOrKick%Length()

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

  306.             end do        

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

  308.         END IF

  309.         

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

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

  312.         !    

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

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

  315.         !enddo

  316.         

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

  318.         

  319.         MudSystem%NoStringMudElementsForPlot= MudSystem%NoStringMudElements

  320.         

  321.         !   1-Horizontal Mud Elements are not shown

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

  323. 

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

  325.                 if (MudSystem%Xend_MudElement%Array(i) <= 0.0) then

  326.                     MudSystem%NoStringMudElementsForPlot= MudSystem%NoStringMudElementsForPlot-1

  327.                     cycle

  328.                 endif

  329.                 MudSystem%istring= MudSystem%istring+1

  330.                 MudSystem%StringMudElement(MudSystem%istring)%StartMd = MudSystem%Xstart_MudElement%Array(i)

  331.                 MudSystem%StringMudElement(MudSystem%istring)%EndMd = MudSystem%Xend_MudElement%Array(i)

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

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

  334.                 MudSystem%StringMudElement(MudSystem%istring)%Density = MudSystem%Density_MudElement%Array(i)

  335. 

  336.                 if (MudSystem%MudType_MudElement%Array(i) == 104) then

  337.                     MudSystem%MudType_MudElement%Array(i)= 4  ! air

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

  339.                     MudSystem%MudType_MudElement%Array(i)= 1  ! gas kick

  340.                 endif

  341. 

  342.                 MudSystem%StringMudElement(MudSystem%istring)%MudType = MudSystem%MudType_MudElement%Array(i)

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

  344.         enddo

  345.         

  346.        

  347. 

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

  349.                 MudSystem%icasing= MudSystem%icasing+1

  350.                 MudSystem%CasingMudElement(MudSystem%icasing)%StartMd = MudSystem%Xend_MudElement%Array(i)

  351.                 MudSystem%CasingMudElement(MudSystem%icasing)%EndMd = MudSystem%Xstart_MudElement%Array(i)

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

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

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

  355.                 !call Log_1(temp1)

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

  357.                 MudSystem%CasingMudElement(MudSystem%icasing)%Density = MudSystem%Density_MudElement%Array(i)

  358.                 

  359.                 if (MudSystem%MudType_MudElement%Array(i) == 104) then

  360.                     MudSystem%MudType_MudElement%Array(i)= 4  ! air

  361.                 elseif (MudSystem%MudType_MudElement%Array(i) > 0 .and. MudSystem%MudType_MudElement%Array(i) < 100) then

  362.                     MudSystem%MudType_MudElement%Array(i)= 1  ! gas kick

  363.                 endif

  364.                 

  365.                 MudSystem%CasingMudElement(MudSystem%icasing)%MudType = MudSystem%MudType_MudElement%Array(i)

  366.                 

  367.         enddo

  368.         

  369.         do i= MudSystem%NoBottomHoleMudElements, 1  , -1               ! 4-open hole elements 

  370.                 MudSystem%icasing= MudSystem%icasing+1

  371.                 MudSystem%CasingMudElement(MudSystem%icasing)%StartMd = MudSystem%Xend_OpMudElement%Array(i)

  372.                 MudSystem%CasingMudElement(MudSystem%icasing)%EndMd = MudSystem%Xstart_OpMudElement%Array(i)

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

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

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

  376.                 !call Log_1(temp2)

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

  378.                 MudSystem%CasingMudElement(MudSystem%icasing)%Density = MudSystem%Density_OpMudElement%Array(i)

  379.                 

  380.                 if (MudSystem%MudTypeOp_MudElement%Array(i) == 104) then

  381.                     MudSystem%MudTypeOp_MudElement%Array(i)= 4  ! air

  382.                 elseif (MudSystem%MudTypeOp_MudElement%Array(i) > 0 .and. MudSystem%MudTypeOp_MudElement%Array(i) < 100) then

  383.                     MudSystem%MudTypeOp_MudElement%Array(i)= 1  ! gas kick

  384.                 endif                

  385.                 

  386.                 MudSystem%CasingMudElement(MudSystem%icasing)%MudType = MudSystem%MudTypeOp_MudElement%Array(i)

  387.         enddo        

  388.         

  389. 

  390.         

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

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

  393.         

  394.         

  395.         

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

  397.         ! shomare gzari OpenHole jodagane ast az 1

  398.         

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

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

  401. 

  402. 

  403. !===========================================================================================================================

  404. !===========================================================================================================================                 

  405. 

  406. 

  407.     end subroutine PlotFinalMudElements

  408.     

  409.     

  410.