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

184 lines
12 KiB
Raw Blame History 

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

  2. MODULE MudSystemVARIABLES

  3. 

  4.     use DynamicDoubleArray, only:DynamicDoubleArrayType

  5.     use DynamicIntegerArray, only:DynamicIntegerArrayType

  6.     use CDownHoleVariables

  7.     

  8. ! use CBopControlPanel

  9. ! use CEquipmentsConstants

  10. ! use CAccumulatorVariables

  11. ! use CBopStackVariables

  12. ! use CChokeControlPanelVariables

  13. ! use CStandPipeManifoldVariables

  14. ! USE CReservoirVariables

  15. 

  16. 

  17. IMPLICIT NONE

  18. 

  19.     integer, parameter :: BlownThreshold = 10

  20. !specific gravity of liquid

  21. !water density(kg/m^3)

  22.     PARAMETER PII=3.14159265

  23.     

  24.     integer imud

  25. 

  26.     type::MudSystemType

  27. ! temporary varibales for solving pressure jerks -- 1399-11-09

  28.         integer Pump1BlownCount, Pump2BlownCount, Pump3BlownCount

  29. 

  30. !integer Pump1BlownInTimeStep, Pump2BlownInTimeStep, Pump3BlownInTimeStep

  31. !logical Pump1BlownStarted, Pump2BlownStarted, Pump3BlownStarted

  32. !integer, parameter :: BlownThresholdInSecond = 5

  33. 

  34.         real(8) total_add,total_injected

  35.         real(8) DeltaWellCap,WellCapOld,AnnCapOld,DeltaAnnCap

  36. 

  37. !========================================================================

  38. !                               KICK VARIABLES

  39. !========================================================================

  40.         REAL(8) KickDeltaVinAnnulus, KickVolumeinAnnulus

  41.         REAL(8) Kick_Forehead_X,Kick_RemainedVolume_in_LastSection,BackheadX,KickDv,KickDx,MinKickDv,Old_KickBackHead_X,Kick_Density 

  42.         INTEGER NewInfluxElementCreated,Kick_Forehead_section,MudSection,Op_KickLoc,Ann_KickLoc,FirstSetKickMigration,Old_KickBackHead_Section

  43.         Integer iLoc,ChokeLine_KickLoc,KickNumber,NewInfluxNumber,SoundGasThroughChoke

  44. 

  45.         LOGICAL DrillingMode

  46. !real(8) HZ_ADD

  47.         integer Flow_timeCounter,MudSys_timeCounter,FluidFlowCounter

  48. !========================================================================

  49. !                               MUD CIRCULATION

  50. !========================================================================

  51.         REAL(8), ALLOCATABLE:: Xstart_PipeSection(:),Xend_PipeSection(:),PipeSection_VolumeCapacity(:),Area_PipeSectionFt(:),OD_PipeSectionInch(:),ID_PipeSectionInch(:),Angle_PipeSection(:)

  52.         REAL(8), ALLOCATABLE:: Xstart_OpSection(:),Xend_OpSection(:),Area_OpSectionFt(:),OD_OpSectionInch(:),ID_OpSectionInch(:),OpSection_VolumeCapacity(:),GeoTypeOp(:),Angle_OpSection(:)

  53.         REAL(8), ALLOCATABLE:: TDXstart_MudElementArray(:) , TDXend_MudElementArray(:) , TDDensity_MudElementArray(:)

  54. 

  55.         INTEGER, ALLOCATABLE:: GeoType(:)

  56.         real(8) StMudVolumeSum,St_MudSaved_Density,St_Saved_MudDischarged_Volume,St_Saved_MudDischarged_Volume_Final,MudVolume_InjectedToBH,MudVolume_InjectedFromAnn

  57.         real BitMudDensity

  58.         REAL(8) xx,NewVolume,UtubeEmptyVolume,NewDensity, MudCircVerticalDepth,TrueMinValue

  59. 

  60.         REAL DirectionCoef

  61.         INTEGER isection,OpSection,SuctionMud,NoStringMudElements,ImudCount,NoCasingMudElements,NoHorizontalMudElements,AddedElementsToString

  62.         Integer TDNoHorizontalMudElements, TDNoStringMudElements, TDNoCasingMudElements

  63.         Integer istring,icasing,NoPipeSections,FirstMudSet

  64.         INTEGER NoBottomHoleMudElements,NoStringMudElementsForPlot,F_StringIntervalCounts_Old

  65.         INTEGER FirstSetUtube1,FirstSetUtube2,FirstAdded,NewPipeFilling,Hz_MudOrKick_Utube,UtubeFilling,totalLength

  66.         REAL(8) DeltaVolumeOp,DeltaVTemp,OldPosition,StringFlowRate,StringFlowRateFinal,AnnulusFlowRateFinal,TD_RemoveVolume_Remained,DeltaVolumePipe,DeltaVolumeAnnulusCapacity

  67.         REAL AnnulusFlowRate,ChokeLineFlowRate

  68.         Logical:: UtubePossibility,MudIsChanged,AddedPipe,UtubeMode1Activated,UtubeMode2Activated,WellisNOTFull,ChokeLineNOTFull

  69.         Logical:: ShoeLost,ShoeFractured,Kickexpansion_DueToMudLost,LostInTripOutIsDone

  70.         Integer  UGBOSuccessionCounter, UGBOSuccessionCounterOld

  71.         REAL(8) Area_ChokeLineFt, ChokeLine_VolumeCapacity,TotalAddedVolume,LackageMudVolumeAfterFilling, LackageMudVolume, NewInflux_Density

  72.         real(8)  DensityMixTol,Hz_Density_Utube,CuttingDensityMixTol,Op_Kick_Saved_Volume,Op_MudSaved_Density,Op_KickSaved_Density,Op_Saved_MudDischarged_Volume,OpMudVolumeSum,Op_NeededVolume_ToFill

  73.         real(8) Choke_Kick_Saved_Volume,Choke_Saved_MudDischarged_Volume,Choke_KickSaved_Density,Choke_MudSaved_Density,ChokeMudVolumeSum

  74.         integer Saved_Op_MudOrKick,Saved_Ann_MudOrKick,Saved_Choke_MudOrKick

  75.         real(8) Choke_Saved_MudDischarged_Volume_Final,Choke_Kick_Saved_Volume_Final

  76.         real(8) Qlost,FormationLostPressure,ShoeMudPressure,ShoeLostCoef, ShoeMudViscosity, ShoeMudDensity ,OldAnnulusCapacity

  77.         logical:: Ann_to_Choke_2mud

  78.         real(8) AnnMudVolumeSum,Ann_MudSaved_Density,Ann_KickSaved_Density,Ann_Saved_MudDischarged_Volume,Ann_Kick_Saved_Volume,Ann_Saved_MudDischarged_Volume_Final, Ann_Kick_Saved_Volume_Final

  79.         type(DynamicDoubleArrayType) :: Hz_MudDischarged_Volume,Hz_Mud_Backhead_X,Hz_Mud_Forehead_X,Hz_Density,Hz_RemainedVolume_in_LastSection,Hz_EmptyVolume_inBackheadLocation, &

  80.                                         Op_MudDischarged_Volume,Op_Mud_Backhead_X,Op_Mud_Forehead_X,Op_Density,Op_RemainedVolume_in_LastSection,Op_EmptyVolume_inBackheadLocation

  81. 

  82.         type(DynamicDoubleArrayType) :: ChokeLine_MudDischarged_Volume,ChokeLine_Mud_Backhead_X,ChokeLine_Mud_Forehead_X,ChokeLine_Density,ChokeLine_RemainedVolume_in_LastSection, &

  83.                                         ChokeLine_EmptyVolume_inBackheadLocation

  84. 

  85. 

  86.         type(DynamicDoubleArrayType) :: St_MudDischarged_Volume,St_Mud_Backhead_X,St_Mud_Forehead_X,St_Density,St_RemainedVolume_in_LastSection, &

  87.                                     St_EmptyVolume_inBackheadLocation,Ann_MudDischarged_Volume,Ann_Mud_Backhead_X,Ann_Mud_Forehead_X, &

  88.                                     Ann_Density,Ann_RemainedVolume_in_LastSection,Ann_EmptyVolume_inBackheadLocation

  89.             

  90.         type(DynamicIntegerArrayType) :: St_Mud_Backhead_section,St_Mud_Forehead_section,Ann_Mud_Backhead_section,Ann_Mud_Forehead_section,MudGeoType,Hz_Mud_Backhead_section,Hz_Mud_Forehead_section, &

  91.                                         Op_Mud_Backhead_section,Op_Mud_Forehead_section,Hz_MudOrKick,St_MudOrKick,Ann_MudOrKick,Op_MudOrKick,ChokeLine_MudOrKick,MudTypeOp_MudElement,MudType_MudElement

  92. 

  93.         type(DynamicIntegerArrayType) :: ChokeLine_Mud_Backhead_section,ChokeLine_Mud_Forehead_section,Ann_CuttingMud

  94. 

  95.         type(DynamicDoubleArrayType) :: Xend_MudElement,Xstart_MudElement,Density_MudElement,PipeID_MudElement,PipeOD_MudElement,Angle_MudElement,  &

  96.                                     Xstart_OpMudElement,Xend_OpMudElement,Density_OpMudElement,PipeID_OpMudElement,PipeOD_OpMudElement!,Angle_OpMudElement

  97.             

  98.         type(DynamicDoubleArrayType) ::  TVDstart_MudElement, TVDend_MudElement, TVDstart_OpMudElement, TVDend_OpMudElement

  99.         

  100.         

  101.         type(CFluid), allocatable :: StringMudElement(:), CasingMudElement(:)

  102. 

  103. 

  104.             real(8) PressureGauge75,PressureGauge76

  105. 

  106. !========================================================================

  107. !                           MALFUNCTION VARIABLES

  108. !========================================================================

  109.         INTEGER StandPipeGauge1Malf, StandPipeGauge2Malf, StandPipePressure_DataDisplayMalf,StandPipePressureChokeMalf,DrillPipePressureMalf

  110.         integer TripTankPressure_DataDisplayMalf,PitGainLossGaugeMalf,ReturnMudFlowGaugeMalf,MudTanksVolumeGaugeMalf

  111. 

  112. !========================================================================

  113. !                           TRIP TANK VARIABLES

  114. !========================================================================

  115.         logical condition32Final,condition33Final,condition34Final

  116.         REAL(8) TripTank_Vol,TripTank_Dens,ReturnToTrip_Q,ActiveToTrip_Q,TripTankPump_Q,ReturnToTrip_Dens,ActiveToTrip_Dens,ReturnToTrip_deltaV,ActiveToTrip_deltaV

  117.         REAL(8) MassFlowRate_ReturnToTrip,MassFlowRate_ActiveToTrip,TripTankPump_deltaV,MassFlowRate_TripTankPump,NetMassFlux_tripTank

  118.         REAL(8) TripTank_MinVol_Allowded,TripTank_MaxVol_Allowded

  119. 

  120. !!======================================================================

  121. !!                           MUD VOLUME TOTALIZER

  122. !!======================================================================

  123.         REAL(8) RefrencePitVolume_DrillWatch        ! for DrillWatch

  124.         REAL(8) MudTank1_vol,MudTank2_vol,MudTank3_vol,MudTank4_vol

  125.         REAL(8) MVT_MinVol_Allowded,MVT_MaxVol_Allowded,MudTanksVolume

  126.         REAL(8) PitGainLossZero,MVTCoarse,MVTFine,RefrencePitVolume,PitGainLossZero_Old,MVTCoarseKnob_Old,MVTFineKnob_Old

  127.         REAL(8) ActiveTankDensity,TripTankDensityCalc,SuctionDensity_Old,AnnulusSuctionDensity_Old,StringDensity_Old,ChokeLineDensity_Old,ChokeManifoldDumpVolume

  128.         LOGICAL FirstSet_Time

  129. 

  130. !!======================================================================

  131. !!                           MUD FLOW-FILL INDICATOR

  132. !!======================================================================

  133.         REAL(8) TotalStrokes1MFFI,TotalStrokes2MFFI,TotalStrokesPump1,TotalStrokesPump2,GraphTotalStrokes

  134.         REAL(8) PedalMeter,ReturnFlowRate,ReturnFlowPercent,MFFI_MinPercent_Allowded,MFFI_MaxPercent_Allowded

  135.         REAL(8) TotalFillStrokes1MFFI,TotalFillStrokes2MFFI,TotalFilledStrokesBy1MFFI,TotalFilledStrokesBy2MFFI,TotalFilledStrokesBy1and2MFFI

  136. 

  137. !============================================================================

  138. !                       	MUD & ENVIRONMENT VARIABLES

  139. !============================================================================

  140.         INTEGER NO_MudMinors,NO_PIPINGSMUDLINE

  141.         REAL(8) Pumps_Height,String_Height,STpipeGauge_Height,Pits_Height,ChokeManifold_Height,WellChokeExit_Height

  142.         REAL(8) STGauge_Pressure,String_Input_Pressure,Well_Output_Pressure,Pressure_BeforeChokes,Pressure_AfterChokes

  143.         REAL(8) OpenArea32,OpenArea33,OpenArea34,OpenArea35,deltaPchoke,WellOutletDensity,ChokeOutletDensity

  144.         REAL Q_flow32,Q_flow33,Q_flow34,Q_flow35

  145.         REAL(8) DeltaT_Mudline,ActiveTankVolume,ReserveTankVolume,CementTankVolumeCalc,ActiveTankSettled,ActiveTankFloorArea,TripTankFloorArea

  146.         REAL(8) TripTankVolumeCalc,BellNippleDensity,BellNippleVolume,MudBucketDensity,MudBucketVolume,BellNippleDumpVolume

  147.         REAL(8) ReserveTankDensity,CementTankDensityCalc,Mp1Density,Mp2Density,Mp3Density,PumpsDumpVolume

  148.         real PumpsDumpFlowRate

  149.         REAL(8) Density_Ch

  150.         real(8) Suction_Density_MudSystem,Suction_Density_PumpsToWell,CompressedMudDensity

  151.         Logical WellToPitsOpen,WellToChokeManifoldOpen,MudChecked,WellHeadIsOpen

  152.         logical Pump1OffFailure,Pump2OffFailure,Pump3OffFailure,ChokeLineGaugeToTanks,WellToChokeLineGauge

  153.         REAL,ALLOCATABLE:: MudMinors(:,:),AREA_MUDLINE(:),MINORDIAMETER_MUDLINE(:),NOTE_MUDLINE(:),AREAMINOR_MUDLINE(:),LF_MUDLINE(:),CV_MUDLINE(:)

  154.         REAL,ALLOCATABLE:: DIAM_MUDLINE_INCH(:),LENGT_MUDLINE(:),ROUGHNESS_MUDLINE(:),RELROUGH_MUDLINE(:),PIPINGS_MUDLINE(:,:)

  155.     end type MudSystemType

  156.     

  157.     TYPE, PUBLIC :: MUD_TypeVars

  158.         REAL Q,nu,Mud_Density,Mud_SG

  159.         REAL minlosspa_MUDLINE,minloss_MUDLINE     ! MINORS

  160.         REAL Re_MUDline,fric,fricloss,static_loss,total_loss     ! MUDLINE

  161.     END TYPE MUD_TypeVars

  162.     

  163. !data%State%MUD(1)%Q : -------------

  164. !data%State%MUD(2)%Q : PumpsToString

  165. !data%State%MUD(3)%Q : BellNippleToPits-FullWell

  166. !data%State%MUD(4)%Q : WellToChokeManifold

  167. !data%State%MUD(5)%Q : ActiveTankToTripTank

  168. !data%State%MUD(6)%Q : TripTankToActiveTank

  169. !data%State%MUD(7)%Q : WellToBellNipple

  170. !data%State%MUD(8)%Q : BellNippleToWell-NonFullWell

  171. !data%State%MUD(9)%Q : StandPipeManifoldToChokeManifold-Through ChokeLine

  172. !data%State%MUD(10)%Q : PumpsToWell_KillLine

  173.  

  174. ! TYPE, PUBLIC :: MUD_TypeVars2D

  175. ! !! MINORS

  176. ! !REAL,ALLOCATABLE:: minlosspa_MUDLINE(:,:),minloss_MUDLINE(:,:)

  177. ! !! MUDLINE

  178. ! !REAL,ALLOCATABLE:: Re_MUDline(:,:),fric(:,:),fricloss(:,:)

  179. ! END TYPE MUD_TypeVars2D

  180.     

  181. ! TYPE(MUD_TypeVars2D) :: MUDS

  182. 

  183. END MODULE