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

501 lines
18 KiB
Raw Blame History 

  1.     SUBROUTINE NormalCirculation_StartUp()     ! is called in module FluidFlowMain

  2.     

  3.     USE MudSystemVARIABLES

  4.     use CTanksVariables

  5.     USE CMudPropertiesVariables

  6.     Use GeoElements_FluidModule

  7.     use KickVARIABLESModule

  8.     Use CUnityOutputs

  9.     Use CShoeVariables

  10.     USE Pumps_VARIABLES

  11.     

  12.     implicit none

  13.     

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

  15.     !Pump1BlownInTimeStep = 0

  16.     !Pump2BlownInTimeStep = 0

  17.     !Pump3BlownInTimeStep = 0

  18.     

  19.     !Pump1BlownStarted = .FALSE.

  20.     !Pump2BlownStarted = .FALSE.

  21.     !Pump3BlownStarted = .FALSE.

  22.     

  23.     MudSystem%Pump1BlownCount = 0

  24.     MudSystem%Pump2BlownCount = 0

  25.     MudSystem%Pump3BlownCount = 0

  26.     

  27.     

  28. MudSystem%DeltaWellCap=0.

  29. MudSystem%WellCapOld =  0. 

  30. MudSystem%AnnCapOld=0.

  31. MudSystem%DeltaAnnCap=0.

  32.     

  33.     

  34. MPumps%Total_Stroke_Counter_For_Plot = 0.0

  35. 

  36.         MudSystem%DeltaT_Mudline=0.1 !second

  37.     

  38.                      Call Set_FlowKellyDisconnect(.false.)

  39.                      Call Set_FlowPipeDisconnect(.false.)

  40.                      

  41. !HZ_ADD= 0.d0

  42. MudSystem%Flow_timeCounter= 0

  43. MudSystem%MudSys_timeCounter= 0

  44. MudSystem%FluidFlowCounter = 0

  45. !========================================================================

  46. !                       MUD CIRCULATION STARTUP

  47. !========================================================================

  48.                      

  49.          MudSystem%FormationLostPressure= Shoe%LeakOff * Shoe%ShoeDepth  

  50.          MudSystem%ShoeFractured= .false.

  51.          

  52.         MudSystem%UGBOSuccessionCounter = 0   ! also in starup

  53.         MudSystem%UGBOSuccessionCounterOld = 0   ! also in starup

  54.          

  55.                      

  56.                      

  57.         MudSystem%ChokeLineFlowRate= 0.0

  58.         MudSystem%StringFlowRate= 0.0

  59.         MudSystem%AnnulusFlowRate= 0.0

  60.         

  61.         MudSystem%MudVolume_InjectedFromAnn= 0.D0

  62.         MudSystem%MudVolume_InjectedToBH= 0.D0

  63.                      

  64.         MudSystem%DensityMixTol= 0.1     !(ppg)

  65.         MudSystem%CuttingDensityMixTol= 0.5

  66.         MudSystem%NewPipeFilling= 1

  67.         MudSystem%UtubeFilling= 1

  68.         MudSystem%UtubeEmptyVolume= 0.0

  69.         

  70.         MudSystem%UtubeMode1Activated= .false.

  71.         MudSystem%UtubeMode2Activated= .false.

  72.         MudSystem%UtubePossibility= .false.

  73.         

  74.         

  75.         !KickMigration_2SideBit = .FALSE.

  76.         

  77.         MudSystem%KickDx= (Reservoir%AutoMigrationRate/3600.)*MudSystem%DeltaT_Mudline                !AutoMigrationRate (ft/h)= ft per DeltaT_Mudline

  78.         

  79. 

  80.         MudSystem%NewInfluxElementCreated= 0

  81.         MudSystem%NewInfluxNumber= 0

  82.         

  83.         !KickVolumeinAnnulus= 0.0

  84.         MudSystem%KickDeltaVinAnnulus= 0.0

  85.         KickVARIABLES%GasKickPumpFlowRate= 0.0

  86.         

  87.         MudSystem%FirstMudSet= 0

  88.         MudSystem%FirstSetUtube1=0

  89.         MudSystem%FirstSetUtube2=0

  90.         MudSystem%SuctionMud=1

  91.         MudSystem%ImudCount= 1

  92.         imud=1

  93.         MudSystem%iLoc= 1 ! for Kick

  94. 

  95.         MudSystem%Suction_Density_MudSystem= MudProperties%ActiveDensity

  96.         MudSystem%SuctionDensity_Old= MudProperties%ActiveDensity       ! initial(ppg)        

  97.         MudSystem%StringDensity_Old= MudProperties%ActiveDensity       ! initial(ppg)

  98.         MudSystem%AnnulusSuctionDensity_Old= MudProperties%ActiveDensity       ! initial(ppg)

  99.         MudSystem%ChokeLineDensity_Old= MudProperties%ActiveDensity       ! initial(ppg)

  100.         

  101.         MudSystem%TotalAddedVolume= 0.

  102. 

  103. 

  104.         MudSystem%xx=0.

  105. 

  106. 

  107.     

  108.     END SUBROUTINE NormalCirculation_StartUp

  109.     

  110.     

  111.    

  112.     

  113.     

  114.     

  115.     

  116.     SUBROUTINE MudSystem_StartUp()

  117.     USE CMudPropertiesVariables

  118.     USE MudSystemVARIABLES

  119.     USE CDataDisplayConsoleVariables

  120.     USE CHOKEVARIABLES

  121.     USE Pumps_VARIABLES

  122.     USE CBopStackVariables

  123.     USE CPumpsVariables

  124.     use CTanksVariables

  125.     use KickVARIABLESModule

  126.     implicit none 

  127.    

  128.     

  129.     

  130.     

  131.     

  132.     CALL MUDLINE_LOSS_INPUTS()

  133. 

  134. !MPumps%Total_Pump_GPM=10. ! Initial Value

  135.     MUD%Q=0. ! Initial Value

  136.     

  137.     MudSystem%Q_flow32=0.

  138.     MudSystem%Q_flow33=0.

  139.     MudSystem%Q_flow34=0.

  140.     MudSystem%Q_flow35=0.

  141.     

  142.     MudSystem%DeltaT_Mudline=0.1 !second

  143.     

  144.     KickVARIABLES%GasKickPumpFlowRate= 0.

  145.     MudSystem%BellNippleVolume= 0.

  146.     MudSystem%BellNippleDensity= 0.

  147.     MudSystem%MudBucketVolume= 0.

  148.     MudSystem%MudBucketDensity= 0.

  149.     MudSystem%BellNippleDumpVolume= 0.

  150.     !BellNippleDumpRate= 0.

  151.     !BellNippleToPitsRate= 0.0

  152.     MudSystem%MudChecked= .true.

  153.     

  154.     MudSystem%condition32Final= .TRUE.

  155.     MudSystem%condition33Final= .TRUE.

  156.     MudSystem%condition34Final= .TRUE.

  157.     

  158.  

  159. MudSystem%PressureGauge75= 0.0

  160. MudSystem%PressureGauge76 = 0.0

  161. 

  162.     

  163. !!====================================================================== 

  164. !!                           TRIP TANK

  165. !!======================================================================

  166.         

  167.     MudSystem%TripTank_MinVol_Allowded= 50.*42.       !(bbl to gal, initial value)

  168.     MudSystem%TripTank_MaxVol_Allowded= 50. *42.      !(bbl to gal, initial value)

  169.     

  170.     

  171. MudSystem%ActiveTankFloorArea= (MudProperties%ActiveTotalTankCapacityGal) / (7.48051948*100./12.)     ! (ft^2)  -     Tank Height= 100 inch , 12=inch to ft       7.48051948=gal to ft^3

  172. MudSystem%TripTankFloorArea= (50.*42.) / (7.48051948*100./12.)     ! (ft^2)   -     50.*42.=Trip Tank Capacity in BBl*42= Gal ,   Tank Height= 100 inch , 12=inch to ft       7.48051948=gal to ft^3

  173. 

  174. 

  175. 

  176. MudSystem%TripTank_Vol= MudProperties%InitialTripTankMudVolumeGal       !(gal)

  177. MudSystem%TripTank_Dens= 1.

  178. DataDisplayConsole%TripTankGauge=0.

  179. 

  180. 

  181. 

  182. MudSystem%ReturnToTrip_Q= 1.

  183. MudSystem%ActiveToTrip_Q= 1.

  184. 

  185. 

  186. MudSystem%TripTankPump_Q= .8

  187. 

  188. 

  189. MudSystem%ReturnToTrip_Dens=1.0     ! ppg(lbm/gal)

  190. MudSystem%ActiveToTrip_Dens=1.0

  191. 

  192. !!====================================================================== 

  193. !!                           MUD VOLUME TOTALIZER

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

  195. 

  196. MudSystem%Mp1Density= 0.0 !(VALVE82)

  197. MudSystem%Mp2Density= 0.0 !(VALVE83)

  198. MudSystem%Mp3Density= 0.0 !(VALVE84)

  199. 

  200. 

  201. MudSystem%ReserveTankVolume= MudProperties%ReserveMudVolumeGal   ! initial volume  (gal)

  202. MudSystem%ReserveTankDensity= MudProperties%ReserveDensity   ! initial

  203. 

  204. 

  205. 

  206. MudSystem%CementTankVolumeCalc= Tank%CementTankVolume          !movaghat--- initial volume  (gal)

  207. MudSystem%CementTankDensityCalc= Tank%CementTankDensity       !movaghat--- initial

  208. 

  209. MudSystem%PumpsDumpVolume=0.0 

  210. MudSystem%PumpsDumpFlowRate= 0.0

  211.     

  212. 

  213. 

  214. MudSystem%ActiveTankVolume= MudProperties%ActiveMudVolumeGal   ! initial volume  (gal)

  215. MudSystem%RefrencePitVolume= MudSystem%ActiveTankVolume/42.    !(bbl)

  216. MudSystem%RefrencePitVolume_DrillWatch= MudSystem%ActiveTankVolume/42.    !(bbl)

  217. 

  218. MudSystem%MVT_MinVol_Allowded= 0.

  219. MudSystem%MVT_MaxVol_Allowded= 0.

  220. 

  221. MudSystem%MudTank1_vol= MudProperties%ActiveMudVolumeGal/3.       ! (gal)

  222. MudSystem%MudTank2_vol= MudProperties%ActiveMudVolumeGal/3.       ! (gal)

  223. MudSystem%MudTank3_vol= MudProperties%ActiveMudVolumeGal/3.       ! (gal)

  224. MudSystem%ActiveTankSettled= MudProperties%ActiveSettledContentsGal ! (gal)

  225. MudSystem%MudTank4_vol= MudProperties%InitialTripTankMudVolumeGal       ! (gal)

  226. 

  227. MudSystem%TripTankVolumeCalc= MudProperties%InitialTripTankMudVolumeGal   ! initial volume  (gal)

  228. MudSystem%ActiveTankDensity= MudProperties%ActiveDensity       ! initial(ppg)

  229. MudSystem%TripTankDensityCalc= Tank%TripTankDensity       ! initial(ppg)

  230. 

  231. MudSystem%ChokeManifoldDumpVolume= 0.0

  232. 

  233. MudSystem%PitGainLossZero= 0.

  234. MudSystem%PitGainLossZero_Old= MudSystem%PitGainLossZero

  235. MudSystem%MVTCoarseKnob_Old= DataDisplayConsole%MVTCoarseKnob

  236. MudSystem%MVTFineKnob_Old= DataDisplayConsole%MVTFineKnob

  237. MudSystem%FirstSet_Time= .true.

  238. 

  239. 

  240. 

  241. MudSystem%PedalMeter= MudProperties%PedalFlowMeter    !1600. !(gpm)

  242. MudSystem%ReturnFlowRate=0.

  243. 

  244. 

  245. 

  246.                   MudSystem%TotalStrokes1MFFI =0.

  247.                   MudSystem%TotalStrokes2MFFI =0.

  248. 

  249.             MudSystem%TotalStrokesPump1=0.

  250.             MudSystem%TotalStrokesPump2=0.

  251.             MudSystem%GraphTotalStrokes=0.

  252.             

  253.             

  254.                   Choke%TotalStrokes1 =0.

  255.                   Choke%TotalStrokes2 =0.

  256.             

  257.             

  258.             

  259. 

  260. 

  261. 

  262.     end

  263.     

  264.     

  265.     

  266.     

  267.     

  268.     

  269.     

  270.     

  271.     

  272.     

  273.     

  274. SUBROUTINE MUDLINE_LOSS_INPUTS()

  275. USE MudSystemVARIABLES

  276. USE CBopStackVariables

  277. USE CPumpsVariables

  278. implicit none

  279. INTEGER I    

  280.     

  281.            

  282.             

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

  284. !                   	MUDLINE MINOR LOSSES INPUT

  285. !===========================================================================        

  286.             

  287. MudSystem%NO_MudMinors=4       

  288. 

  289. ALLOCATE (MudSystem%MudMinors(MudSystem%NO_MudMinors,4))

  290. 

  291. !                       ID(INCH)     LF	      CV	    NOTE(BAR)       DESCRIPTION

  292. MudSystem%MudMinors(1,1)= PumpsSpecification%MudPump1Output

  293. MudSystem%MudMinors(1,2:4)=    (/1.5*8.,     0.,	    0./)      !elbow   (MLnumber=1,,PumpsToString)

  294. MudSystem%MudMinors(2,1)= PumpsSpecification%MudPump1Output

  295. MudSystem%MudMinors(2,2:4)=    (/1.5*6.,     0.,	    0./)      !elbow   (MLnumber=2,,STGaugeToString)  

  296. MudSystem%MudMinors(3,1:4)=    (/0.,        0.,     0.,	    0./)      !elbow   (MLnumber=3,,WellToPits)

  297. MudSystem%MudMinors(4,1)= BopStackSpecification%ChokeLineId

  298. MudSystem%MudMinors(4,2:4)=    (/1.5*7.,     0.,	    0./)      !elbow   (MLnumber=4,,WellToChokeManifold) 

  299. 

  300. 

  301.             

  302. ALLOCATE (MudSystem%MINORDIAMETER_MUDLINE(MudSystem%NO_MudMinors),MudSystem%AREAMINOR_MUDLINE(MudSystem%NO_MudMinors),MudSystem%LF_MUDLINE(MudSystem%NO_MudMinors),MudSystem%CV_MUDLINE(MudSystem%NO_MudMinors)  &

  303.             ,MudSystem%NOTE_MUDLINE(MudSystem%NO_MudMinors))

  304. 

  305. 

  306. 

  307. DO I=1,MudSystem%NO_MudMinors 

  308.     MudSystem%MINORDIAMETER_MUDLINE(I)=MudSystem%MudMinors(I,1)

  309.     MudSystem%LF_MUDLINE(I)=MudSystem%MudMinors(I,2)

  310.     MudSystem%CV_MUDLINE(I)=MudSystem%MudMinors(I,3)

  311.     MudSystem%NOTE_MUDLINE(I)=MudSystem%MudMinors(I,4)

  312.     

  313.     

  314.     MudSystem%AREAMINOR_MUDLINE(I)=PII*(MudSystem%MINORDIAMETER_MUDLINE(I)*0.0254)**2/4.   !D(in), AREA(m^2)

  315. ENDDO            

  316.             

  317. !===========================================================================

  318. !                   	MUDLINE PIPNING LOSSES INPUT

  319. !===========================================================================

  320. MudSystem%NO_PIPINGSMUDLINE=4

  321. 

  322. ALLOCATE (MudSystem%PIPINGS_MUDLINE(MudSystem%NO_PIPINGSMUDLINE,3))

  323. 

  324.             !               ID(INCH)	L(FEET)	ROUGHNESS(MM)=e     DESCRIPTION	

  325. MudSystem%PIPINGS_MUDLINE(1,1)= PumpsSpecification%MudPump1Output

  326. MudSystem%PIPINGS_MUDLINE(1,2:3)=		 (/265.,		0.03/)          !(MLnumber=1,,PumpsToString)

  327. MudSystem%PIPINGS_MUDLINE(2,1)= PumpsSpecification%MudPump1Output

  328. MudSystem%PIPINGS_MUDLINE(2,2:3)=		 (/100.,       0.03/)          !(MLnumber=2,,STGaugeToString)

  329. MudSystem%PIPINGS_MUDLINE(3,1:3)=		 (/0.,		0.,          0./)          !(MLnumber=3,,WellToPits)

  330. MudSystem%PIPINGS_MUDLINE(4,1)= BopStackSpecification%ChokeLineId

  331. MudSystem%PIPINGS_MUDLINE(4,2)= BopStackSpecification%ChokeLineLength

  332. MudSystem%PIPINGS_MUDLINE(4,3)= 0.03          !(MLnumber=4,,WellToChokeManifold)

  333. 

  334. MudSystem%Area_ChokeLineFt= PII*((BopStackSpecification%ChokeLineId/12.)**2)/4.   !D(in), AREA(ft^2)

  335. MudSystem%ChokeLine_VolumeCapacity= MudSystem%Area_ChokeLineFt* BopStackSpecification%ChokeLineLength* 7.48051948      ! (gal)

  336. 

  337.  ALLOCATE (MudSystem%DIAM_MUDLINE_INCH(MudSystem%NO_PIPINGSMUDLINE),  &

  338.             MudSystem%AREA_MUDLINE(MudSystem%NO_PIPINGSMUDLINE),MudSystem%LENGT_MUDLINE(MudSystem%NO_PIPINGSMUDLINE),MudSystem%ROUGHNESS_MUDLINE(MudSystem%NO_PIPINGSMUDLINE),MudSystem%RELROUGH_MUDLINE(MudSystem%NO_PIPINGSMUDLINE))

  339. 

  340. 

  341. DO I=1,MudSystem%NO_PIPINGSMUDLINE

  342.     MudSystem%DIAM_MUDLINE_INCH(I)=MudSystem%PIPINGS_MUDLINE(I,1)

  343.     MudSystem%LENGT_MUDLINE(I)=MudSystem%PIPINGS_MUDLINE(I,2)

  344.     MudSystem%ROUGHNESS_MUDLINE(I)=MudSystem%PIPINGS_MUDLINE(I,3)

  345.     

  346.     

  347.     

  348.     MudSystem%AREA_MUDLINE(I)=PII*(MudSystem%DIAM_MUDLINE_INCH(I)*0.0254)**2/4   !D(in), AREA(m^2)

  349.     MudSystem%RELROUGH_MUDLINE(I)=MudSystem%ROUGHNESS_MUDLINE(I)/(MudSystem%DIAM_MUDLINE_INCH(I)*25.4)    !e/D

  350.     !DIAM_MUDLINE_MM(I)=DIAM_MUDLINE_MM(I)*.001  !  (m)

  351.     MudSystem%LENGT_MUDLINE(I)=MudSystem%LENGT_MUDLINE(I)*.3048      !  (m) 

  352. ENDDO 

  353. 

  354. 

  355. !===========================================================================

  356. !                   	MUDLINE STATIC LOSSES INPUT

  357. !===========================================================================  

  358. 

  359. ! Height are in (meter)

  360. MudSystem%Pumps_Height= 0.

  361. MudSystem%STpipeGauge_Height= 2. !(m)

  362. MudSystem%Pits_Height= 1. !(m)

  363. MudSystem%ChokeManifold_Height= 1.*0.3048  !(ft  to meter)

  364. MudSystem%WellChokeExit_Height= BopStackSpecification%GroundLevel-BopStackSpecification%KillHeight

  365. 

  366. 

  367. 

  368. 

  369. 

  370. 

  371. 

  372. 

  373. 

  374. 

  375. 

  376. 

  377.         

  378.     END  

  379.     

  380.     

  381. 

  382.     

  383.     SUBROUTINE MUDLINE_LOSSES(MLnumber) 

  384.     

  385.     USE MudSystemVARIABLES 

  386.    implicit none 

  387.     integer  I

  388.     INTEGER MLnumber    

  389.     

  390.     

  391. !===============================PIPE LOSS===================================  

  392.  MUD(MLnumber)%Re_MUDline=MUD(MLnumber)%Q*6.30902e-5*MudSystem%DIAM_MUDLINE_INCH(MLnumber)*0.0254/(MudSystem%AREA_MUDLINE(MLnumber)*MUD(MLnumber)%nu)    !<<<<<< nu: DOROST SHAVAD.ALAN DAR STARTUP SET SHODE

  393. !write(*,*) 'MUD(MLnumber)%Re_MUDline=' , MUD(MLnumber)%Re_MUDline

  394. !   Q*6.30902e-5   for (gpm) to (m^3/sec)

  395.      if ( MUD(MLnumber)%Re_MUDline<Re_cr) then

  396.           MUD(MLnumber)%fric=64/ MUD(MLnumber)%Re_MUDline

  397.      else

  398. 

  399.          MUD(MLnumber)%fric=1/(-1.8*log10((MudSystem%RELROUGH_MUDLINE(MLnumber)/3.7)**1.11+6.9/ MUD(MLnumber)%Re_MUDline))**2

  400.      endif

  401. 

  402.  MUD(MLnumber)%fricloss=((MUD(MLnumber)%fric*(wdens*MUD(MLnumber)%Mud_SG*MudSystem%LENGT_MUDLINE(MLnumber)*(MUD(MLnumber)%Q*6.30902e-5/MudSystem%AREA_MUDLINE(MLnumber))**2))/(2*MudSystem%DIAM_MUDLINE_INCH(MLnumber)*0.0254))/6895

  403. 

  404. 

  405. !==============================MINOR LOSS===================================  

  406. 

  407.     if (MudSystem%LF_MUDLINE(MLnumber)/=0) then

  408.          MUD(MLnumber)%minlosspa_MUDLINE=MudSystem%LF_MUDLINE(MLnumber)*wdens*MUD(MLnumber)%Mud_SG*(MUD(MLnumber)%Q*6.30902e-5/MudSystem%AREAMINOR_MUDLINE(MLnumber))**2/2  !(Pa)

  409.          MUD(MLnumber)%minloss_MUDLINE= MUD(MLnumber)%minlosspa_MUDLINE/6895 !(psi)

  410.     elseif (MudSystem%CV_MUDLINE(MLnumber)/=0) then

  411.          MUD(MLnumber)%minlosspa_MUDLINE=1000*MUD(MLnumber)%Mud_SG*((11.7*MUD(MLnumber)%Q*6.30902e-5*3600)/(MudSystem%CV_MUDLINE(MLnumber)))**2 !(pa)

  412.          MUD(MLnumber)%minloss_MUDLINE= MUD(MLnumber)%minlosspa_MUDLINE/6895 !(psi)

  413.     else

  414.          MUD(MLnumber)%minlosspa_MUDLINE=MudSystem%NOTE_MUDLINE(MLnumber)*1e5 !(pa)

  415.          MUD(MLnumber)%minloss_MUDLINE= MUD(MLnumber)%minlosspa_MUDLINE/6895 !(psi)

  416.     endif

  417. 

  418.     

  419. !==========================STATIC & KINETIC LOSS=============================  

  420. 

  421. MudSystem%String_Height= 50.*0.3048          !<<<<<<<<<<<<<<< (foot) to (meter). az khanom tarmigh       

  422. MUD(1)%static_loss=(MudSystem%String_Height- MudSystem%Pumps_Height)*0.0    !(MLnumber=1,,PumpsToString)

  423. MUD(2)%static_loss=(MudSystem%String_Height- MudSystem%STpipeGauge_Height)*MUD(2)%Mud_SG*wdens*gravity/6895    ! (psi)        (MLnumber=2,,STGaugeToString)

  424. MUD(3)%static_loss=0.    !(MLnumber=1,,WellToPits)

  425. MUD(4)%static_loss=(MudSystem%ChokeManifold_Height- MudSystem%WellChokeExit_Height)*MUD(4)%Mud_SG*wdens*gravity/6895    !(MLnumber=4,,WellToChokeManifold)

  426. 

  427. 

  428. 

  429. ! RAM(RNUMBER)%kinetic_loss1=MUD(MLnumber)%Mud_SG*MUD(MLnumber)%Mud_Density*(RAM(RNUMBER)%Q*6.30902e-5/((1/4.)*pi*(.72*0.254e-1)**2))**2/(2*6895) !(psi)

  430. 

  431.  

  432.  

  433. !============================TOTAL LOSS=======================================  

  434.  MUD(MLnumber)%total_loss= MUD(MLnumber)%fricloss+ MUD(MLnumber)%minloss_MUDLINE+ MUD(MLnumber)%static_loss!+ RAM(RNUMBER)%kinetic_loss1 !(psi)

  435. 

  436.     

  437.     END

  438.     

  439.     

  440.     

  441.     

  442.     

  443.     

  444.    SUBROUTINE DEALLOCATE_ARRAYS_MudSystem()

  445. USE MudSystemVARIABLES

  446. implicit none

  447. !===========================================================================

  448. !                   	RAMLINE MINOR LOSSES INPUT

  449. !===========================================================================

  450.  if (allocated(MudSystem%MudMinors)) DEALLOCATE (MudSystem%MudMinors)

  451. !===========================================================================

  452. !                   	RAMLINE PIPNING LOSSES INPUT

  453. !===========================================================================

  454.  if (allocated(MudSystem%MINORDIAMETER_MUDLINE)) DEALLOCATE (MudSystem%MINORDIAMETER_MUDLINE)

  455.  if (allocated(MudSystem%AREAMINOR_MUDLINE)) DEALLOCATE (MudSystem%AREAMINOR_MUDLINE)

  456.  if (allocated(MudSystem%LF_MUDLINE)) DEALLOCATE (MudSystem%LF_MUDLINE)

  457.  if (allocated(MudSystem%CV_MUDLINE)) DEALLOCATE (MudSystem%CV_MUDLINE)

  458.  if (allocated(MudSystem%NOTE_MUDLINE)) DEALLOCATE (MudSystem%NOTE_MUDLINE)

  459.  

  460. !===========================================================================

  461. !                   	ANNULAR MINOR LOSSES INPUT

  462. !===========================================================================

  463.  if (allocated(MudSystem%PIPINGS_MUDLINE)) DEALLOCATE (MudSystem%PIPINGS_MUDLINE)

  464. !===========================================================================

  465. !                   	ANNULAR PIPNING LOSSES INPUT

  466. !===========================================================================  

  467.  if (allocated(MudSystem%DIAM_MUDLINE_INCH)) DEALLOCATE (MudSystem%DIAM_MUDLINE_INCH)

  468.  if (allocated(MudSystem%AREA_MUDLINE)) DEALLOCATE (MudSystem%AREA_MUDLINE)

  469.  if (allocated(MudSystem%LENGT_MUDLINE)) DEALLOCATE (MudSystem%LENGT_MUDLINE)

  470.  if (allocated(MudSystem%ROUGHNESS_MUDLINE)) DEALLOCATE (MudSystem%ROUGHNESS_MUDLINE)

  471.  if (allocated(MudSystem%RELROUGH_MUDLINE)) DEALLOCATE (MudSystem%RELROUGH_MUDLINE)

  472.  

  473.     END  

  474.     

  475.     

  476.     

  477.     

  478.     

  479.     

  480.     subroutine AddDynamicArray(array, value)

  481.         implicit none

  482.         REAL, allocatable, intent(inout) :: array(:)

  483.         REAL, intent(in) :: value

  484.         REAL, allocatable :: tempArr(:)

  485.         integer :: i, isize

  486.         

  487.         !if(allocated(array)) then

  488.         !    isize = size(array)

  489.         !    allocate(tempArr(isize+1))

  490.         !    do i=1,isize          

  491.         !    tempArr(i) = array(i)

  492.         !    end do

  493.         !    tempArr(isize+1) = value

  494.         !    deallocate(array)

  495.         !    call move_alloc(tempArr, array)

  496.         !else

  497.         !    allocate(array(1))

  498.         !    array(1) = value

  499.         !end if

  500.             

  501.     end subroutine