mahmood19227
/
SimulationCore2
1
0
포크 0
코드 이슈 0 풀 리퀘스트 0 릴리즈 0 위키 활동
Simulation Core
25개 이상의 토픽을 선택하실 수 없습니다. Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 커밋
2 브랜치
134 MiB
 
 
 
 
 
 
트리: 8d59cc0a67
브랜치 태그
${ item.name }
${ searchTerm } 브랜치 생성
from '8d59cc0a67'
${ noResults }
SimulationCore2/Equipments/MudSystem/MudSystem.f90

3478 lines
152 KiB
Raw Blame 히스토리 

  1. module MudSystem

  2.     

  3.     USE MudSystemVARIABLES

  4.     USE PressureDisplayVARIABLES

  5.     USE FricPressDropVars

  6.     USE Fluid_Flow_Startup_Vars

  7.     USE CMudPropertiesVariables

  8.     USE CManifolds

  9.     USE CPumpsVariables

  10.     USE CUnityOutputs

  11.     use CWarningsVariables

  12.     use DynamicIntegerArray

  13.     use CError

  14.     use CLog1

  15.     USE CDataDisplayConsoleVariables

  16.     use CStudentStationVariables   , PitGainLossReset=>PitGainLossZero

  17.     

  18.     

  19.     implicit none

  20.         

  21.     real j2,j12,j13,jj2,jj12,jj13

  22.     real  A71,A72,A73

  23.     integer j3,B71,B77,B78

  24.     integer j4

  25.     real C71,C77,C78

  26.     integer j5

  27.     integer j6,D71,D80

  28.     integer j7,j8,j9,j10,j11

  29.     real E71,E72,E73

  30.     real F71,F72,F73

  31.     integer j14

  32.     real G82,G83,G84

  33.     integer j15

  34.     real H82,H83,H84

  35.     integer j16,K82,K83,K84,K79,K78

  36.     integer j17,L82,L83,L84,L79,L78

  37.     integer j18

  38.     real M71,M77,M78, Pump1toCh,Pump2toCh,Pump3toCh,Denominator_a

  39.     integer j19

  40.     real N82,N83,N84

  41.     integer j20

  42.     integer j21

  43.     real unityreturn

  44. 

  45. 

  46.     

  47.     real(8) DumpPump1,DumpPump2,DumpCementPump,Denominator

  48.     real(8) Mp1Coef,Mp2Coef,CpCoef

  49.     real(8) PumpPressure1,PumpPressure2,PumpPressure3

  50.     integer Mp1_NoPath,Mp2_NoPath,Cp_NoPath

  51.     real P1toSt,P2toSt,CptoSt

  52.     real(8) MaxWorkingPressure1,MaxWorkingPressure2,MaxWorkingPressure3,MaxWorkingPressure

  53. 

  54.     REAL(8) DumpFromKelly, DumpFromFillupHead

  55.     real(8) AddedVolumeToTank,PUMP1_Flow_Rate_Old,PUMP2_Flow_Rate_Old,PUMP3_Flow_Rate_Old

  56.     real(8) VolumeToActive,VolumeToBellNipple,BellNipple_FlowCoef,ChokeLine_FlowCoef

  57.     

  58.     

  59.     REAL RealJ2,RealJ12,RealJ13,RealJ4,RealJ18

  60.     INTEGER active32,active33,active34,active35,active29

  61.     

  62.     logical condition1, condition2, condition3, condition4, condition5, condition6, condition7, condition8, condition9, condition10, condition11, condition12, condition13, condition14, condition15

  63.     logical condition16,condition17,condition18,condition19,condition20,condition21,condition22,condition23,condition24,condition25,condition26,condition27,condition28,condition29,condition30,condition31

  64.     logical condition32,condition33,condition34,condition35,condition36,condition37,condition38,condition39,condition40,condition41,condition42,condition43,condition44,condition45

  65.     logical condition46,condition47,condition48,condition49,condition50,condition51,condition52,condition53,condition54,condition55,condition56,condition57,condition58

  66.     logical condition59,condition60,condition61

  67.     logical ac32, ac33, ac34, ac35, ac29

  68.     logical ThereIsPathFrom_71_72_73_To_82, ThereIsPathFrom_71_72_73_To_83, ThereIsPathFrom_71_72_73_To_84

  69.     logical DumpFromKelly_Pump1, DumpFromKelly_Pump2, DumpFromKelly_Pump3

  70.     logical DumpFromTopDrive_Pump1,DumpFromTopDrive_Pump2,DumpFromTopDrive_Pump3

  71.     logical DumpFromFillupHead_Pump1, DumpFromFillupHead_Pump2, DumpFromFillupHead_Pump3

  72.     logical State1,State2, State3, State4

  73.     type(DynamicIntegerArrayType) Pump1_Lasts,Pump2_Lasts, Pump3_Lasts

  74.     REAL MP1_Q, MP2_Q, MP3_Q

  75.     real TimePassed

  76. 

  77.         real(8) active_after, active_before, active_increase, total_active_increase,total_decrease,sys_total_injected

  78.     real(8) total_annFlow,total_DeltaVPipe

  79.     contains

  80.     

  81.     subroutine LineupAndPath()

  82.     implicit none

  83. 	

  84. !===========================================================================

  85. !                   	          MUDLINE CODE

  86. !===========================================================================  

  87.    ! Initialize

  88.     j2=0

  89.     jj2=0

  90.     A71=0

  91.     A72=0

  92.     A73=0

  93.     RealJ2=0.0

  94.     

  95.     j3=0

  96.     B71=0

  97.     B77=0

  98.     B78=0

  99.     

  100.     j4=0

  101.     C71=0.

  102.     C77=0.

  103.     C78=0.

  104.     active32=0

  105.     active33=0

  106.     active34=0

  107.     active35=0

  108.     active29=0

  109. 

  110.     

  111.     j5=0

  112.     

  113.     j6=0

  114.     D71=0

  115.     D80=0

  116.     

  117.     j7=0

  118.     

  119.     j8=0

  120.     

  121.     j9=0

  122.     j10=0

  123.     j11=0

  124.     

  125.     j12=0

  126.     jj12=0

  127.     E71=0

  128.     E72=0

  129.     E73=0

  130.     RealJ12=0.0

  131. 

  132.     j13=0

  133.     jj13=0

  134.     F71=0

  135.     F72=0

  136.     F73=0

  137.     RealJ13=0.0

  138.     

  139.     j14=0

  140.     G82=0

  141.     G83=0

  142.     G84=0  

  143.     

  144.     DumpPump1=0.

  145.     DumpPump2=0.

  146.     DumpCementPump=0.

  147.     

  148.     j15=0

  149.     H82=0.0

  150.     H83=0.0

  151.     H84=0.0

  152.     

  153.     Mp1Coef= 0.0

  154.     Mp1Coef= 0.0

  155.     CpCoef= 0.0

  156.     

  157.     Mp1_NoPath= 0

  158.     Mp2_NoPath= 0

  159.     Cp_NoPath= 0

  160.     

  161.     j16=0

  162.     K82=0

  163.     K83=0

  164.     K84=0

  165.     K78=0

  166.     K79=0

  167.     

  168.     

  169.     j17=0

  170.     L82=0

  171.     L83=0

  172.     L84=0

  173.     L78=0

  174.     L79=0

  175. 

  176.     j18=0

  177.     M71=0.

  178.     M77=0.

  179.     M78=0.

  180.     Pump1toCh=0.

  181.     Pump2toCh=0.

  182.     Pump3toCh=0.

  183.     

  184.     

  185.     j19=0

  186.     N82=0

  187.     N83=0

  188.     N84=0

  189.     

  190.     j20=0

  191.     

  192.     j21=0

  193.     

  194.    

  195.     

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

  197.     

  198.                 !===============TanksToMudPump1=================           

  199.                 if(condition1) then

  200.                     j2=j2+1

  201.                     A71=1

  202.                     jj2=1

  203.                 endif

  204.                     

  205.                 if(condition2) then

  206.                     j2=j2+1

  207.                     A72=1

  208.                     jj2=1

  209.                 endif

  210.                     

  211.                 if(condition3) then

  212.                     j2=j2+1

  213.                     A73=1

  214.                     jj2=1

  215.                 endif

  216.                 

  217.                 !================================================

  218.                  

  219.                 !============BellNippleToPits-FullWell==============

  220.             if(FirstMudSet== 1 ) then !.and. WellisNOTFull== .false.) then       ! Well Must Be Full   !Ann_Mud_Forehead_X%Last()==AboveAnnularHeight .and. Ann_Density%Last()/=0.0) 

  221.                 if(condition4) then

  222.                    j3=j3+1

  223.                    B71=1

  224.                 endif

  225.                     

  226.                 if(condition5) then

  227.                    j3=j3+1

  228.                     B77=1

  229.                  endif 

  230.                 

  231.                 if(condition6) then

  232.                   j3=j3+1

  233.                   B78=1

  234.                endif

  235.                     

  236.               endif    

  237.                 

  238.                 !================================================

  239.             

  240.                 !============WellToChokeManifold(Through 26)==============           

  241.                 if(condition7) then

  242.                     j4=j4+1

  243.                     C71=1.

  244.                 endif

  245.                     

  246.                 if(condition8) then

  247.                     j4=j4+1

  248.                     C77=1.

  249.                 endif

  250.                 

  251.                 if(condition45) then

  252.                     j4=j4+1

  253.                     C78=1.

  254.                 endif

  255.                     if (ac32) active32=1

  256.                     if (ac33) active33=1

  257.                     if (ac34) active34=1

  258.                     if (ac35) active35=1

  259.                     if (ac29) active29=1    !BYPASS VALVE

  260.                     

  261.                         

  262.                     

  263.                 !================================================

  264.       

  265.                 

  266.                 !============ActiveTankToTripTank==============          

  267.                     if(condition9) then

  268.                             j5=j5+1

  269.                     endif

  270.                 !================================================                      

  271.                    

  272.                 !write(*,*) 'j5====' , j5

  273.                 !============TripTankToActiveTank And BellNipple==============          

  274.                     if(condition10) then

  275.                         j6=j6+1

  276.                         D71=1

  277.                     endif

  278.                     

  279.                     if(condition11) then

  280.                         j6=j6+1

  281.                         D80=1

  282.                     endif

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

  284.              

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

  286.                 if(condition12) then

  287.                     j7=j7+1              

  288.                 endif

  289.                 !================================================

  290.                     

  291.                 !============TripTankToDump==============          

  292.                 if(condition13) then

  293.                     j8=j8+1              

  294.                 endif

  295.                 !================================================                    

  296.  

  297.                 !============WellToBellNipple==============          

  298.                 if(condition14) then

  299.                     j9=j9+1              

  300.                 endif

  301.                 !================================================                  

  302.                 

  303.                 !============MudBucketToBellNipple==============          

  304.                 if(condition15) then

  305.                     j10=j10+1               

  306.                 endif

  307.                 !================================================                 

  308.                 

  309.                 !============BellNippleToWell-NonFullWell==============

  310. 

  311.                 

  312.                 if(condition16 .and. FirstMudSet== 1 .and. BellNippleVolume > 0.0001 .and. WellisNOTFull) then

  313.                     

  314.                     write(*,*) 'MUD(7)%Q=' , MUD(7)%Q

  315.                     write(*,*) 'BellNippleVolume=' , BellNippleVolume

  316.                     

  317.                     

  318.                     write(*,*) 'MudVolume_InjectedFromAnn-WellToBellNipple=' , MudVolume_InjectedFromAnn

  319.                     

  320.                     write(*,*) 'int:::=' , (Ann_Mud_Forehead_X%Last() - BopStackSpecification%AboveAnnularHeight)

  321.                     write(*,*) 'Ann_Mud_Forehead_X%Last()=' , Ann_Mud_Forehead_X%Last()

  322.                     write(*,*) 'AboveAnnularHeight=' , BopStackSpecification%AboveAnnularHeight

  323.                     write(*,*) 'Ann_Density%Last()=' , Ann_Density%Last()

  324.                     CALL ErrorStop('error stop1')

  325.                     

  326.                     j11=j11+1 

  327.                 endif               

  328.                 !================================================                  

  329. 

  330.                 !===============TanksToMudPump2===================

  331. 

  332.                     if(condition17) then

  333.                         j12=j12+1

  334.                         E71=1

  335.                         jj12=1

  336.                     endif

  337.                     

  338.                     if(condition18) then

  339.                         j12=j12+1

  340.                         E72=1

  341.                         jj12=1

  342.                     endif

  343.                     

  344.                     if(condition19) then

  345.                         j12=j12+1

  346.                         E73=1

  347.                         jj12=1

  348.                     endif

  349. 

  350.                 !================================================  

  351.                     

  352.                 !===============TanksToCementPump===================

  353.                     if(condition20) then

  354.                         j13=j13+1

  355.                         F71=1

  356.                         jj13=1

  357.                     endif

  358.                     

  359.                     if(condition21) then

  360.                         j13=j13+1

  361.                         F72=1

  362.                         jj13=1

  363.                     endif

  364.                     

  365.                     if(condition22) then

  366.                         j13=j13+1

  367.                         F73=1

  368.                         jj13=1

  369.                     endif

  370. 

  371.                 !================================================                      

  372.                     

  373.                 !===============PumpsToString===================

  374.                     if(condition23) then

  375.                         j14=j14+1

  376.                         G82=1

  377.                     endif

  378.                     

  379.                     if(condition24) then

  380.                         j14=j14+1

  381.                         G83=1

  382.                     endif

  383.                     

  384.                     if(condition25) then

  385.                         j14=j14+1

  386.                         G84=1

  387.                     endif

  388.                 !================================================                      

  389. 

  390.                     

  391.                 !===============PumpsToDump===================

  392.                     if(condition26) then

  393.                         DumpPump1=1.0

  394.                     endif

  395.                     

  396.                     if(condition27) then

  397.                         DumpPump2=1.0

  398.                     endif

  399.                     

  400.                     if(condition28) then

  401.                         DumpCementPump=1.0

  402.                     endif

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

  404.                     

  405.                     

  406.                 !=======MudPumps1&2ToActiveTank_Through65&66==========

  407.                     if(condition29) then

  408.                         !write(*,*) 'condition 29'

  409.                         j15=j15+1

  410.                         H82=1.0

  411.                     endif

  412.                     

  413.                     if(condition30) then

  414.                         j15=j15+1

  415.                         H83=1.0

  416.                     endif

  417. 

  418.                 !================================================                 

  419.                     

  420.                     

  421.                 !=======CementPumpToActiveTank_Through65==========

  422.  

  423.                 if(condition31)    then

  424.                     

  425.                     H84=1.0

  426.                     

  427.                 endif

  428.                 !================================================                     

  429.                     

  430.                     !write(*,*) 'condition32===' , condition32

  431.                     

  432.                 !============MudPump1HasNoPath===================          

  433.                 if(condition32Final) then

  434.                     !write(*,*) 'MudPump1HasNoPath'

  435.                     Mp1_NoPath = 1               

  436.                 endif

  437.                 !================================================                

  438. 

  439.                 !============MudPump2HasNoPath=================== 

  440.                 if(condition33Final) then

  441.                     !write(*,*) 'MudPump2HasNoPath'

  442.                     Mp2_NoPath = 1 

  443.                 endif

  444.                 !================================================                

  445.                 

  446.                 

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

  448.                 if(condition34Final) then

  449.                     Cp_NoPath = 1                

  450.                 endif

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

  452.  

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

  454.                     if(condition35) then      !Pump1 to Gauge75

  455.                         j16=j16+1

  456.                         K82=1

  457.                     endif

  458.                     

  459.                     if(condition36) then      !Pump2 to Gauge75

  460.                         j16=j16+1

  461.                         K83=1

  462.                     endif

  463.                     

  464.                     if(condition37) then      !Pump3 to Gauge75

  465.                         j16=j16+1

  466.                         K84=1

  467.                     endif

  468.                     

  469.                     if(condition38) then      !String to Gauge75

  470.                         j16=j16+1

  471.                         K79=1

  472.                     endif  

  473.                     

  474.                     if(condition39) then      !Dump to Gauge75

  475.                         j16=j16+1

  476.                         K78=1

  477.                     endif                     

  478. 

  479.                 !================================================                  

  480.                                          !write(*,*) '****j16=' , j16       

  481.                 !===============PathsToGauge76===================

  482.                     if(condition40) then      !Pump1 to Gauge76

  483.                         j17=j17+1

  484.                         L82=1

  485.                     endif

  486.                     

  487.                     if(condition41) then      !Pump2 to Gauge76

  488.                         j17=j17+1

  489.                         L83=1

  490.                     endif

  491.                     

  492.                     if(condition42) then      !Pump3 to Gauge76

  493.                         j17=j17+1

  494.                         L84=1

  495.                     endif

  496.                     

  497.                     if(condition43) then      !String to Gauge76

  498.                         j17=j17+1

  499.                         L79=1

  500.                     endif

  501.                     

  502.                     if(condition44) then      !Dump to Gauge76

  503.                         j17=j17+1

  504.                         L78=1

  505.                     endif                     

  506. 

  507.                 !================================================                 

  508.                 

  509.                 !====Pump1-StandPipeManifoldToChokeManifold-Through ChokeLine====          

  510.                     if(condition46) then

  511.                         j18=j18+1

  512.                         M71=1.

  513.                         Pump1toCh= 1.

  514.                     endif

  515.                     

  516.                     if(condition47) then

  517.                         j18=j18+1

  518.                         M77=1.

  519.                         Pump1toCh= 1.

  520.                     endif

  521.                     

  522.                     if(condition48) then

  523.                         j18=j18+1

  524.                         M78=1.

  525.                         Pump1toCh= 1.

  526.                     endif                                                       

  527.                 !=================================================================                 

  528.            

  529.                 

  530.                 !====Pump2-StandPipeManifoldToChokeManifold-Through ChokeLine==== 

  531.                     if(condition49) then

  532.                         j18=j18+1

  533.                         M71=1.

  534.                         Pump2toCh= 1.

  535.                     endif

  536.                     

  537.                     if(condition50) then

  538.                         j18=j18+1

  539.                         M77=1.

  540.                         Pump2toCh= 1.

  541.                     endif

  542.                     

  543.                     if(condition51) then

  544.                         j18=j18+1

  545.                         M78=1.

  546.                         Pump2toCh= 1.

  547.                     endif                

  548.                 !=================================================================                 

  549.                 

  550.                 

  551.                 !====Pump3-StandPipeManifoldToChokeManifold-Through ChokeLine==== 

  552.                     if(condition52) then

  553.                         j18=j18+1

  554.                         M71=1.

  555.                         Pump3toCh= 1.

  556.                     endif

  557.                     

  558.                     if(condition53) then

  559.                         j18=j18+1

  560.                         M77=1.

  561.                         Pump3toCh= 1.

  562.                     endif

  563.                     

  564.                     if(condition54) then

  565.                         j18=j18+1

  566.                         M78=1.

  567.                         Pump3toCh= 1.

  568.                     endif                      

  569.                 !=================================================================                 

  570.                 

  571.                 

  572.                 !===============PumpsToWell_KillLine============

  573.                     if(condition55)    then

  574.                         j19=j19+1

  575.                         N82=1

  576.                     endif

  577.                     

  578.                     if(condition56) then

  579.                         j19=j19+1

  580.                         N83=1

  581.                     endif

  582.                     

  583.                     if(condition57) then

  584.                         j19=j19+1

  585.                         N84=1

  586.                     endif

  587.                 !================================================                

  588.             

  589.                 !===============WellToChokeLineGauge============

  590.                 if(condition58)    then

  591.                         j20=j20+1

  592.                 endif

  593.                 

  594.                 if (j20>0) then

  595.                     WellToChokeLineGauge= .true.

  596.                 else

  597.                     WellToChokeLineGauge= .false.

  598.                 endif

  599.                 !================================================ 

  600.                 

  601.                                 

  602.                 !============ChokeLineGaugeToTanks===============          

  603.                     if(condition59) then

  604.                         j21=j21+1

  605.                     endif

  606.                     

  607.                     if(condition60) then

  608.                         j21=j21+1

  609.                     endif

  610.                     

  611.                     if(condition61) then

  612.                         j21=j21+1

  613.                     endif 

  614.                     

  615.                 if (j21>0) then

  616.                     ChokeLineGaugeToTanks= .true.

  617.                 else

  618.                     ChokeLineGaugeToTanks= .false.

  619.                 endif 

  620.                 !================================================                

  621. 

  622. 	

  623. 	end subroutine 

  624. 	

  625.     subroutine main

  626.         Use GeoElements_FluidModule

  627.         USE Pumps_VARIABLES

  628.         USE CHOKEVARIABLES

  629.         USE CDataDisplayConsoleVariables

  630.         use CDrillWatchVariables

  631.         use CHOKEVARIABLES

  632.         use CChokeManifoldVariables

  633.         use CTanksVariables

  634.         Use KickVariables

  635.         Use CHoistingVariables

  636.         use CSimulationVariables

  637.         

  638.         implicit none

  639.         Integer I

  640. 

  641.         MudSys_timeCounter = MudSys_timeCounter + 1

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

  643.             MudSys_timeCounter= 0

  644.         endif  

  645.  

  646.         !WRITE (*,*) 'MudSys_timeCounter', MudSys_timeCounter

  647.         if (PumpsSpecification%MudPump1ReliefValveIsSet==.false.) PumpsSpecification%MudPump1ReliefValvePressure=6000.

  648.         if (PumpsSpecification%MudPump2ReliefValveIsSet==.false.) PumpsSpecification%MudPump2ReliefValvePressure=6000. 

  649.         if (PumpsSpecification%CementPumpReliefValveIsSet==.false.) PumpsSpecification%CementPumpReliefValvePressure=6000.     

  650. !===========================================================================================================================

  651. !===========================================================================================================================

  652. !       >>> Should Be on Top of Other Codes <<<

  653.                     

  654.        

  655.    !ActiveTankVolume=  ActiveMudVolumeGal       ! update from student input

  656.    !ActiveTankDensity=  ActiveDensity       ! update from student input

  657.    !ReserveTankVolume= ReserveMudVolumeGal       ! update from student input

  658.    !ReserveTankDensity= ReserveDensity       ! update from student input  

  659.         if (j7 > 0) then    !ActiveTankToDump

  660.             ActiveTankDensity= 0.

  661.             ActiveTankVolume= 0.

  662.         endif

  663.         

  664.         

  665.         if (j8 > 0) then    !TripTankToDump

  666.             TripTankDensityCalc= 0.

  667.             TripTankVolumeCalc= 0.

  668.         endif

  669. !===========================================================================================================================

  670. !=========================================================================================================================== 

  671.         if (j15 > 0) then    !MudPumps1&2ToActiveTank_Through65&66

  672.             !write(*,*) 'j15 is open'

  673.             ! << if H82 or H83 or H4 are open, no flow goes to other parts of system >> 

  674.             

  675.             

  676.             if (j2>0) Mp1Coef= 1.0

  677.             if (j12>0) Mp2Coef= 1.0

  678.             

  679.             

  680.             if (j2 /= 0 .or. j12/= 0) then

  681.             

  682. 

  683.             ActiveTankDensity = (ActiveTankDensity*ActiveTankVolume+ Mp1Coef*Mp1Density*(PUMP(1)%Flow_Rate*DeltaT_Mudline/60.) + Mp2Coef*Mp2Density*(PUMP(2)%Flow_Rate*DeltaT_Mudline/60.))/ & 

  684.                                         (ActiveTankVolume+ Mp1Coef*(PUMP(1)%Flow_Rate*DeltaT_Mudline/60.) + Mp2Coef*(PUMP(2)%Flow_Rate*DeltaT_Mudline/60.))

  685.             

  686.             ActiveTankVolume= ActiveTankVolume+ Mp1Coef*PUMP(1)%Flow_Rate*DeltaT_Mudline/60. + Mp2Coef*PUMP(2)%Flow_Rate*DeltaT_Mudline/60. 

  687.             !write(*,*) 'active by j15'

  688.             endif

  689.             

  690.             

  691.                 ActiveTankVolume=min(ActiveTankVolume , MudProperties%ActiveTotalTankCapacityGal-MudProperties%ActiveSettledContentsGal)

  692.             !if ActiveTankVolume is higher, excess amount is dumped    

  693.             

  694.         endif

  695.             

  696.             

  697.         if (H84 > 0.0) then         !CementPumpToCementTank_Through67

  698.             

  699.             if (j13>0) CpCoef= 1.0

  700.             

  701.             

  702.                 CementTankDensityCalc= (CementTankDensityCalc*CementTankVolumeCalc+ CpCoef*Mp3Density*(PUMP(3)%Flow_Rate*DeltaT_Mudline/60.) ) / & 

  703.                                             (CementTankVolumeCalc+CpCoef*(PUMP(3)%Flow_Rate*DeltaT_Mudline/60.))

  704.             

  705.                 CementTankVolumeCalc= CementTankVolumeCalc+ CpCoef*(PUMP(3)%Flow_Rate*DeltaT_Mudline/60.)

  706.                 

  707. 

  708.         endif

  709.             

  710. !===========================================================================================================================

  711. !===========================================================================================================================

  712.  !              DUMP Path           

  713.         PumpsDumpVolume= PumpsDumpVolume+    (jj2*(1-H82)*DumpPump1*PUMP(1)%Flow_Rate + jj12*(1-H83)*DumpPump2*PUMP(2)%Flow_Rate + jj13*(1-H84)*DumpCementPump*PUMP(3)%Flow_Rate) *DeltaT_Mudline/60.

  714.         PumpsDumpFlowRate=    jj2*(1-H82)*DumpPump1*PUMP(1)%Flow_Rate + jj12*(1-H83)*DumpPump2*PUMP(2)%Flow_Rate + jj13*(1-H84)*DumpCementPump*PUMP(3)%Flow_Rate

  715.             !write(*,*) 'PumpsDumpFlowRate=' , PumpsDumpFlowRate

  716. 

  717.         if (Hoisting%DriveType==1 .and. PumpsDumpFlowRate > 0.0 .and. (DumpFromKelly_Pump1 .or. DumpFromKelly_Pump2 .or. DumpFromKelly_Pump3)) then

  718.             !write(*,*) 'Set_FlowFromKelly(.TRUE.)'

  719.             call Activate_PumpWithKellyDisconnected()

  720.         !write(*,*) 'PumpsDumpFlowRate=' , PumpsDumpFlowRate

  721.             CALL Set_FlowFromKelly(min(PumpsDumpFlowRate/6.,100.)) ! .TRUE. before

  722.         elseif (Hoisting%DriveType==1) then

  723.             call Deactivate_PumpWithKellyDisconnected()

  724.             CALL Set_FlowFromKelly(0.0) ! .FALSE. before

  725.             !write(*,*) 'Set_FlowFromKelly(.FALSE.)'

  726. 

  727.         endif

  728.         !write(*,*) 'DumpFromFillupHead_Pump1=' , DumpFromFillupHead_Pump1

  729.         

  730. 

  731.         if (Hoisting%DriveType==0 .and. PumpsDumpFlowRate > 0.0 .and. (DumpFromTopDrive_Pump1 .or. DumpFromTopDrive_Pump2 .or. DumpFromTopDrive_Pump3)) then

  732.             !write(*,*) 'Set_FlowFromKelly(.TRUE.)'

  733.             call Activate_PumpWithTopdriveDisconnected()

  734.             CALL Set_FlowFromKelly(min(PumpsDumpFlowRate/6.,100.)) ! .TRUE. before

  735.         elseif (Hoisting%DriveType==0) then

  736.             call Deactivate_PumpWithTopdriveDisconnected()

  737.             CALL Set_FlowFromKelly(0.0) ! .FALSE. before

  738.             !write(*,*) 'Set_FlowFromKelly(.FALSE.)'

  739. 

  740.         endif 

  741.         

  742. 

  743.         

  744.         if (PumpsDumpFlowRate > 0.0 .and. (DumpFromFillupHead_Pump1 .or. DumpFromFillupHead_Pump2 .or. DumpFromFillupHead_Pump3)) then

  745.             

  746.             !call Activate_PumpWithKellyDisconnected()

  747.             CALL Set_FlowFromFillupHead(min(PumpsDumpFlowRate/6.,100.)) ! .TRUE. before

  748.         else

  749.             !call Deactivate_PumpWithKellyDisconnected()

  750.             CALL Set_FlowFromFillupHead(0.0) ! .FALSE. before

  751. 

  752.         endif                  

  753. !####C_Program -----> DriveType = 

  754.    !                               = 0    TopDrive_DriveType

  755.    !                               = 1    Kelly_DriveType

  756. !===========================================================================================================================

  757. !===========================================================================================================================              

  758.  ! ******         Calculating Maximum Working Pressure

  759.         if (PumpsSpecification%MudPump1ReliefValveIsSet) then

  760.             MaxWorkingPressure1= PumpsSpecification%MudPump1ReliefValvePressure

  761.         else

  762.             MaxWorkingPressure1= 6000. !psi

  763.         endif  

  764.         

  765.         

  766.         if (PumpsSpecification%MudPump2ReliefValveIsSet) then

  767.             MaxWorkingPressure2= PumpsSpecification%MudPump2ReliefValvePressure

  768.         else    

  769.             MaxWorkingPressure2= 6000. !psi

  770.         endif

  771.         

  772.         if (PumpsSpecification%CementPumpReliefValveIsSet) then

  773.             MaxWorkingPressure3= PumpsSpecification%CementPumpReliefValveIsSet

  774.         else

  775.             MaxWorkingPressure3= 6000. !psi

  776.         endif

  777.         

  778. 

  779.         if (State1) then

  780.             MaxWorkingPressure= min(MaxWorkingPressure1 , MaxWorkingPressure2 , MaxWorkingPressure3)

  781.             MaxWorkingPressure1= MaxWorkingPressure

  782.             MaxWorkingPressure2= MaxWorkingPressure

  783.             MaxWorkingPressure3= MaxWorkingPressure

  784.         endif

  785.         

  786.             

  787.         if (State2) then

  788.             MaxWorkingPressure= min(MaxWorkingPressure1 , MaxWorkingPressure2)

  789.             MaxWorkingPressure1= MaxWorkingPressure

  790.             MaxWorkingPressure2= MaxWorkingPressure

  791.         endif                

  792.             

  793.         if (State3) then

  794.             MaxWorkingPressure= min(MaxWorkingPressure1 , MaxWorkingPressure3)

  795.             MaxWorkingPressure1= MaxWorkingPressure

  796.             MaxWorkingPressure3= MaxWorkingPressure

  797.         endif  

  798.         

  799.         

  800.         if (State4) then

  801.             MaxWorkingPressure= min(MaxWorkingPressure2 , MaxWorkingPressure3)

  802.             MaxWorkingPressure2= MaxWorkingPressure

  803.             MaxWorkingPressure3= MaxWorkingPressure

  804.         endif      

  805.  !                      Calculating Maximum Working Pressure     ******            

  806. 

  807. !===========================================================================================================================

  808. !=========================================================================================================================== 

  809.             

  810.             

  811.  ! ******         Blown Conditions           

  812.     

  813.                 !G:             PumpsToString Coefficient

  814.                 !jJ2,Jj12,Jj13:    TanksToMudPump Coefficient

  815.                 !H:             Pumps To Tank_Through65 or 67 Coefficient            

  816. 

  817.                 !write(*,*) 'j12=' , j12

  818.                 !write(*,*) 'H83=' , H83

  819.                 !write(*,*) 'DumpPump2=' , DumpPump2

  820.                 !write(*,*) 'G83=' , G83

  821.         PumpPressure1= jj2*(1-H82)*(1-DumpPump1)*G82* PressureGauges(1)

  822.         PumpPressure2= jj12*(1-H83)*(1-DumpPump2)*G83* PressureGauges(1)

  823.         PumpPressure3= jj13*(1-H84)*(1-DumpCementPump)*G84* PressureGauges(1)

  824.         !

  825.         !write(*,*) 'jj2 , H82 , DumpPump1 , G82,PresCsureGauges(1)=' , jj2 , H82 , DumpPump1 , G82,PressureGauges(1)

  826.         !write(*,*) '1)PumpPressure1=' , PumpPressure1

  827.         

  828.         !write(*,*) 'PumpPressure2=' , PumpPressure2

  829.         

  830.         PumpToManifoldMudVol = 3.0 * 42.0

  831.         !PumpToManifoldCompressedMudVol = PumpToManifoldCompressedMudVol + MP1_Q / ConvMinToSec * dt

  832.         !PumpToManifoldDeltaPDueToCompressibility = PumpToManifoldCompressedMudVol / (MudCompressibility * PumpToManifoldMudVol) 

  833.         

  834.         IF(Mp1_NoPath == 1 .and. ThereIsPathFrom_71_72_73_To_82 .and. MP1_Q > 0.0) then

  835.             PumpToManifoldCompressedMudVol = PumpToManifoldCompressedMudVol + MP1_Q / ConvMinToSec * dt

  836.             PumpPressure1=  PumpToManifoldCompressedMudVol / (MudCompressibility * PumpToManifoldMudVol)

  837.             write(*,*) '21)PumpPressure1=' , PumpPressure1

  838.             

  839.             WRITE (*,*) ' valve 1 ', Manifold%Valve(1)%Status

  840.             WRITE (*,*) ' valve 4 ', Manifold%Valve(4)%Status

  841.             WRITE (*,*) ' valve 6 ', Manifold%Valve(6)%Status

  842.             WRITE (*,*) ' valve 7 ', Manifold%Valve(7)%Status

  843.             WRITE (*,*) ' valve 8 ', Manifold%Valve(8)%Status

  844.             WRITE (*,*) ' valve 9 ', Manifold%Valve(9)%Status

  845.             WRITE (*,*) ' valve 13 ', Manifold%Valve(13)%Status

  846.             WRITE (*,*) ' valve 68 ', Manifold%Valve(68)%Status

  847.             WRITE (*,*) ' valve 69 ', Manifold%Valve(69)%Status

  848.             WRITE (*,*) ' valve 48 ', Manifold%Valve(48)%Status

  849.             

  850.             !call DisplayOpenPathsWrite()

  851.             

  852.         ENDIF  

  853.         

  854.         IF(Mp2_NoPath == 1 .and. ThereIsPathFrom_71_72_73_To_83 .and. MP2_Q > 0.0 ) then

  855.             PumpToManifoldCompressedMudVol = PumpToManifoldCompressedMudVol + MP2_Q / ConvMinToSec * dt

  856.             PumpPressure2=  PumpToManifoldCompressedMudVol / (MudCompressibility * PumpToManifoldMudVol)

  857.             write(*,*) '22)PumpPressure1=' , PumpPressure2

  858.             

  859.             WRITE (*,*) ' -valve 1 ', Manifold%Valve(1)%Status

  860.             WRITE (*,*) ' -valve 4 ', Manifold%Valve(4)%Status

  861.             WRITE (*,*) ' -valve 6 ', Manifold%Valve(6)%Status

  862.             WRITE (*,*) ' -valve 7 ', Manifold%Valve(7)%Status

  863.             WRITE (*,*) ' -valve 8 ', Manifold%Valve(8)%Status

  864.             WRITE (*,*) ' -valve 9 ', Manifold%Valve(9)%Status

  865.             WRITE (*,*) ' -valve 13 ', Manifold%Valve(13)%Status

  866.             WRITE (*,*) ' -valve 68 ', Manifold%Valve(68)%Status

  867.             WRITE (*,*) ' -valve 69 ', Manifold%Valve(69)%Status

  868.             WRITE (*,*) ' -valve 48 ', Manifold%Valve(48)%Status

  869.             

  870.             !call DisplayOpenPathsWrites()

  871.         ENDIF                

  872. 

  873.         IF(Cp_NoPath == 1 .and. ThereIsPathFrom_71_72_73_To_84 .AND. MP3_Q > 0.0 ) then                

  874.             PumpToManifoldCompressedMudVol = PumpToManifoldCompressedMudVol + MP3_Q / ConvMinToSec * dt

  875.             PumpPressure3=  PumpToManifoldCompressedMudVol / (MudCompressibility * PumpToManifoldMudVol)

  876.         ENDIF                  

  877.                 

  878. !*****************************************************************************

  879.                 

  880.                 

  881.                 !if(((Mp1_NoPath == 1 .and. ThereIsPathFrom_71_72_73_To_82) .or. ( PumpPressure1 >= MaxWorkingPressure1 )       &

  882.                 !.or.(J14> 0 .and. j4==0 .and. j9==0 .and. NOT(ALLOCATED(GasPocketWeight%Array)))) .and. MP1_Q > 0.0 ) then

  883.                 !write(*,*) ' failurrrrre '

  884. 

  885.         if (PumpPressure1 >= MaxWorkingPressure1 .and. MP1_Q > 0.0) then

  886.             write(*,*) 'mp1,if=' , PumpPressure1 , MaxWorkingPressure1 , MP1_Q

  887.             Pump1BlownCount = Pump1BlownCount + 1

  888.             !if (Pump1BlownStarted == .FALSE.) then

  889.             !    write(*,*) 'if (Pump1BlownStarted == .FALSE. ) then' 

  890.             !    Pump1BlownInTimeStep = SimulationTime + BlownThresholdInSecond

  891.             !    Pump1BlownStarted = .TRUE.

  892.             !endif

  893.             !write(*,*) 'SimulationTime===', SimulationTime, Pump1BlownInTimeStep

  894.             if(PumpsSpecification%MudPump1ReliefValveIsSet .and. Pump1BlownCount >= BlownThreshold) then

  895.                 write(*,*) 'valve 65 open, BLOWN'

  896.                 call ChangeValve(65, .TRUE.)

  897.                 PumpToManifoldCompressedMudVol= 0.0

  898.                 Pump1BlownCount = 0

  899.                 !Pump1BlownStarted = .FALSE.

  900.             !else

  901.             !    write(*,*) 'PumpPressure1= 6000  psi'

  902.             !    PumpPressure1= 6000. !psi

  903.             endif

  904.         !else

  905.             !Pump1BlownInTimeStep = 0

  906.             !Pump1BlownStarted = .FALSE.

  907.             !write(*,*) 'Pump1BlownStarted = .FALSE.' 

  908.         endif                

  909.         

  910.                 !write(*,*) ' valve 65=' , Valve(65)%Status

  911. 

  912. 

  913.         

  914.         !if(((Mp2_NoPath == 1 .and. ThereIsPathFrom_71_72_73_To_83) .or. PumpPressure2 >= MaxWorkingPressure2        &

  915.         !.or.(J14> 0 .and. j4==0 .and. j9==0 .and. NOT(ALLOCATED(GasPocketWeight%Array))) ) .and. MP2_Q > 0.0 ) then

  916. 

  917.         if(PumpPressure2 >= MaxWorkingPressure2  .and. MP2_Q > 0.0 ) then   

  918. 

  919.             write(*,*) 'mp2,if=' , PumpPressure2 , MaxWorkingPressure2 , MP2_Q

  920.             Pump2BlownCount = Pump2BlownCount + 1

  921.             !if (Pump2BlownStarted == .FALSE. ) then

  922.             !    Pump2BlownInTimeStep = SimulationTime + BlownThresholdInSecond

  923.             !    Pump2BlownStarted = .TRUE.

  924.             !endif

  925.             !if (MudPump2ReliefValveIsSet .and. SimulationTime >= Pump2BlownInTimeStep .and. Pump2BlownStarted) then

  926.             if (PumpsSpecification%MudPump2ReliefValveIsSet .and. Pump2BlownCount >= BlownThreshold) then

  927.                 write(*,*) 'valve 66 open, BLOWN'

  928.                 call ChangeValve(66, .TRUE.)

  929.                 PumpToManifoldCompressedMudVol= 0.0

  930.                 Pump2BlownCount = 0

  931.                 !Pump2BlownInTimeStep = 0

  932.                 !Pump2BlownStarted = .FALSE.

  933.             !else

  934.             !    PumpPressure2= 6000. !psi

  935.             endif

  936.         !else

  937.             !Pump2BlownInTimeStep = 0

  938.             !Pump2BlownStarted = .FALSE.

  939.         endif

  940. 

  941.                 !if(((Cp_NoPath == 1 .and. ThereIsPathFrom_71_72_73_To_84) .or. PumpPressure3 >= MaxWorkingPressure3         &

  942.                 !.or.(J14> 0 .and. j4==0 .and. j9==0 .and. NOT(ALLOCATED(GasPocketWeight%Array))))  .and. MP3_Q > 0.0 ) then 

  943.                     

  944.         if(PumpPressure3 >= MaxWorkingPressure3 .and. MP3_Q > 0.0 ) then                     

  945.             Pump3BlownCount = Pump3BlownCount + 1

  946.             if (PumpsSpecification%CementPumpReliefValveIsSet .and. Pump3BlownCount >= BlownThreshold) then

  947.                 !write(*,*) 'valve 67 open, BLOWN'

  948.                 call ChangeValve(67, .TRUE.)

  949.                 PumpToManifoldCompressedMudVol= 0.0

  950.                 Pump3BlownCount = 0

  951.             !else

  952.             !    PumpPressure3= 6000. !psi

  953.             endif

  954.         !else

  955.             !Pump3BlownInTimeStep = 0

  956.             !Pump3BlownStarted = .FALSE.

  957.         endif

  958. 

  959.         !write(*,*) '3)PumpPressure1=' , PumpPressure1

  960.         

  961.         if (PumpPressure1>= 6000.) then

  962.             Pump1BlownCount = Pump1BlownCount + 1

  963.             if(Pump1BlownCount >= BlownThreshold) then

  964.                 call ChangeValve(65, .TRUE.)

  965.                 PumpToManifoldCompressedMudVol= 0.0

  966.                 call Activate_Pump1Failure()

  967.                 Pump1OffFailure= .true.

  968.                 Pump1BlownCount = 0

  969.             endif

  970.         !else

  971.             !Pump1BlownInTimeStep = 0

  972.             !Pump1BlownStarted = .FALSE.

  973.         endif

  974.         

  975.         if (PumpPressure2>= 6000.) then

  976.             Pump2BlownCount = Pump2BlownCount + 1

  977.             if(Pump2BlownCount >= BlownThreshold) then

  978.                 call ChangeValve(66, .TRUE.)

  979.                 PumpToManifoldCompressedMudVol= 0.0

  980.                 call Activate_Pump2Failure()

  981.                 Pump2OffFailure= .true.

  982.                 Pump2BlownCount = 0

  983.             endif

  984.         !else

  985.             !Pump2BlownInTimeStep = 0

  986.             !Pump2BlownStarted = .FALSE.

  987.         endif

  988.         

  989.         if (PumpPressure3>= 6000.) then

  990.             Pump3BlownCount = Pump3BlownCount + 1

  991.             if(Pump3BlownCount >= BlownThreshold) then

  992.                 call ChangeValve(67, .TRUE.)

  993.                 PumpToManifoldCompressedMudVol= 0.0

  994.                 call Activate_Pump3Failure()

  995.                 Pump3OffFailure= .true.

  996.                 Pump3BlownCount = 0

  997.             endif

  998.         !else

  999.             !Pump3BlownInTimeStep = 0

  1000.             !Pump3BlownStarted = .FALSE.

  1001.         endif                

  1002.  !                                   Blown Conditions      ********                      

  1003. !===========================================================================================================================

  1004. !===========================================================================================================================            

  1005.         if (j9 > 0 ) then   !.and. WellisNOTFull== .false.) then    !WellToBellNipple

  1006.             !write(*,*) 'j9 is open'

  1007.             

  1008. 

  1009.                 !MUD(7)%Q= ( Ann_Saved_MudDischarged_Volume_Final+Ann_Kick_Saved_Volume_Final - ((Qlost/60.0d0)*DeltaT_Mudline) )*60.d0/DeltaT_Mudline

  1010.                 MUD(7)%Q= ( MudVolume_InjectedFromAnn + Ann_Kick_Saved_Volume )*60.d0/DeltaT_Mudline    !Injected is referred only to Mud

  1011.                 

  1012.                 

  1013.                 if (j4 > 0) then

  1014.                     BellNipple_FlowCoef= 13.625/(13.625+BopStackSpecification%ChokeLineId)          ! 13.625= BellNipple ID (inch)

  1015.                     MUD(7)%Q= BellNipple_FlowCoef * MUD(7)%Q

  1016.                 endif                    

  1017.                     

  1018.                 !total_annFlow= total_annFlow+(AnnulusFlowRateFinal/600.d0)

  1019.                 !total_DeltaVPipe= total_DeltaVPipe + DeltaVolumePipe

  1020.                 !write(*,*) 'total_annFlow,total_DeltaVPipe' , total_annFlow,total_DeltaVPipe

  1021.                 

  1022.                 

  1023.                     

  1024.                 if (MUD(7)%Q < 0.0 )   MUD(7)%Q= 0.0     !.or. WellisNOTFull== .true.)      MUD(7)%Q= 0.0

  1025.                 !!AnnulusFlowRateFinal: flow from string mud  ,   DeltaVolumeOp: due to trip in 

  1026.                 

  1027.                 !write(*,*) 'MUD(7)%Q=' , MUD(7)%Q

  1028.                 !write(*,*) 'MudVolume_InjectedFromAnn-WellToBellNipple=' , MudVolume_InjectedFromAnn

  1029.                 !write(*,*) 'Ann_Kick_Saved_Volume=' , Ann_Kick_Saved_Volume

  1030.                 

  1031.                 sys_total_injected= sys_total_injected+ MudVolume_InjectedFromAnn

  1032.                 

  1033.                 

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

  1035.                     sys_total_injected= 0.

  1036.                 endif

  1037.                 

  1038.                 !write(*,*) 'sys_total_injected=' , sys_total_injected

  1039.                 

  1040. 

  1041.                 

  1042.                 

  1043.                 

  1044.                 !WellOutletDensity= Ann_Density%Last()   !    (ppg)      <<< in CirculationCodeSelect Code

  1045. 

  1046. 

  1047.             if ((BellNippleVolume+((MUD(7)%Q/60.)*DeltaT_Mudline)) /= 0.0) then

  1048. 

  1049.                 BellNippleDensity= ((BellNippleDensity*BellNippleVolume)+(WellOutletDensity*(MUD(7)%Q/60.)*DeltaT_Mudline))/(BellNippleVolume+((MUD(7)%Q/60.)*DeltaT_Mudline))

  1050.             else

  1051.                 BellNippleDensity= 0.0

  1052.             endif

  1053. 

  1054. 

  1055.             !IF (WellisNOTFull== .false.) THEN ! well must be full to do this order

  1056.                 BellNippleVolume= BellNippleVolume+ ((MUD(7)%Q/60.)*DeltaT_Mudline)

  1057.             !ENDIF

  1058.             

  1059. 

  1060.                 VolumeToBellNipple= VolumeToBellNipple + BellNippleVolume

  1061.                 !write(*,*) 'VolumeToBellNipple*****=' , VolumeToBellNipple

  1062.                 

  1063.                 !write(*,*) 'BellNippleVolume in j9=' , BellNippleVolume , MUD(7)%Q

  1064.         endif

  1065.             

  1066.         if (j9 == 0 ) then  !.or. WellisNOTFull== .true.) then

  1067.             !write(*,*) 'WellisNOTFull=' , WellisNOTFull

  1068.             MUD(7)%Q=0.0       ! for normal circulation input

  1069.         endif

  1070.         

  1071.         if (j9 > 0) then

  1072.             WellToPitsOpen= .true.

  1073.         else

  1074.             WellToPitsOpen= .false.

  1075.         endif            

  1076.             

  1077.             

  1078. !===========================================================================================================================

  1079. !=========================================================================================================================== 

  1080.             

  1081.             

  1082.         if (j10 > 0) then    !MudBucketToBellNipple

  1083.             !write(*,*) 'j10 is open'

  1084.             !MudBucketVolume= 0.

  1085.             !MudBucketDensity= 0.

  1086.             ! MudBucketVolume gets value in DisconnectingPipe subroutine

  1087.             BellNippleVolume= BellNippleVolume+ MudBucketVolume

  1088.             BellNippleDensity= ActiveTankDensity

  1089.             MudBucketVolume= 0.

  1090.         endif            

  1091.             

  1092. !===========================================================================================================================

  1093. !===========================================================================================================================             

  1094.             

  1095.         if (j6 > 0) then    !TripTankToActiveTank And BellNipple

  1096.             !write(*,*) 'j6 is open'

  1097.             !write(*,*) 'active by j6'

  1098.             MUD(6)%Q= 300.       ! constant flow rate(gpm)

  1099.             

  1100. 

  1101.                 TripTankVolumeCalc= TripTankVolumeCalc - ((MUD(6)%Q/60.)*DeltaT_Mudline)                        

  1102.                             

  1103. 

  1104.                     !write(*,*) 'ActiveTankVolume before=', ActiveTankVolume

  1105.                 

  1106.                 

  1107.                 if (j6 == 1 .and. D71==1) then

  1108.                     !write(*,*) 'add to active'

  1109.                     ActiveTankDensity= ((ActiveTankDensity*ActiveTankVolume)+(TripTankDensityCalc*(MUD(6)%Q/60.)*DeltaT_Mudline))/(ActiveTankVolume+((MUD(6)%Q/60.)*DeltaT_Mudline))

  1110.                     ActiveTankVolume= ActiveTankVolume+ ((MUD(6)%Q/60.)*DeltaT_Mudline) 

  1111.                     !write(*,*) 'ActiveTankVolume after=', ActiveTankVolume

  1112.                     

  1113.                 endif                    

  1114.                 

  1115.                 if (j6 == 1 .and. D80==1) then

  1116.                     BellNippleDensity= ((BellNippleDensity*BellNippleVolume)+(TripTankDensityCalc*(MUD(6)%Q/60.)*DeltaT_Mudline))/(BellNippleVolume+((MUD(6)%Q/60.)*DeltaT_Mudline))

  1117.                     BellNippleVolume= BellNippleVolume+ ((MUD(6)%Q/60.)*DeltaT_Mudline)

  1118.                 endif 

  1119.                     

  1120.                 if (j6 == 2) then

  1121.                     ActiveTankDensity= ((ActiveTankDensity*ActiveTankVolume)+(TripTankDensityCalc*(0.5*MUD(6)%Q/60.)*DeltaT_Mudline))/(ActiveTankVolume+((0.5*MUD(6)%Q/60.)*DeltaT_Mudline))

  1122.                     BellNippleDensity= ((BellNippleDensity*BellNippleVolume)+(TripTankDensityCalc*(0.5*MUD(6)%Q/60.)*DeltaT_Mudline))/(BellNippleVolume+((0.5*MUD(6)%Q/60.)*DeltaT_Mudline))

  1123.                     

  1124.                     ActiveTankVolume= ActiveTankVolume+ ((0.5*MUD(6)%Q/60.)*DeltaT_Mudline)

  1125.                     BellNippleVolume= BellNippleVolume+ ((0.5*MUD(6)%Q/60.)*DeltaT_Mudline) 

  1126.                 endif    

  1127.                 

  1128.                 

  1129.                 

  1130.                 ActiveTankVolume=min(ActiveTankVolume , MudProperties%ActiveTotalTankCapacityGal-MudProperties%ActiveSettledContentsGal)

  1131.                 !if ActiveTankVolume is higher, excess amount is dumped 

  1132.                 

  1133.         endif

  1134.         

  1135.         if (j6 == 0) then

  1136.             MUD(6)%Q=0.0

  1137.         endif 

  1138.             

  1139. !===========================================================================================================================

  1140. !=========================================================================================================================== 

  1141.             

  1142.         CALL Set_FlowFromReturnLine(.false.)

  1143. 

  1144.         

  1145.         if (j3 > 0) then    !BellNippleToPits-FullWell      - must be after **WellToBellNipple(j9)**

  1146.             !write(*,*) 'j3 is open'

  1147.             

  1148.             !write(*,*) 'active by j3'

  1149.             !BellNipple flow rate= sum flow rate (well+ mudbucket+ triptank)

  1150.             

  1151.             !Well to BellNipple: BellNippleVolume

  1152.             !MudBucket to BellNipple: BellNippleVolume

  1153.             !TripTnak to BellNipple: BellNippleVolume

  1154.             MUD(3)%Q = (BellNippleVolume/DeltaT_Mudline)*60.d0        ! (gpm)

  1155.             

  1156.             

  1157.             !write(*,*) 'BellNippleVolume in j3 =' ,  BellNippleVolume

  1158.             

  1159.             !write(*,*) 'MUD(3)%Q =' ,  MUD(3)%Q

  1160.             

  1161.             call Set_FlowRate(real(100.*min(MUD(3)%Q,PedalMeter)/PedalMeter, 8))        ! for unity display

  1162.             unityreturn = real(100.*min(MUD(3)%Q,PedalMeter)/PedalMeter, 8)

  1163.             

  1164.             !write(*,*) 'unity return=' , real(100.*min(MUD(3)%Q,PedalMeter)/PedalMeter, 8)

  1165.             

  1166. 

  1167.             

  1168.             

  1169.             if (MUD(3)%Q > PedalMeter .and. B78==0) then

  1170.                 BellNippleDumpVolume= BellNippleDumpVolume + ((MUD(3)%Q/60.)*DeltaT_Mudline - (PedalMeter/60.)*DeltaT_Mudline)

  1171.                 

  1172.                 !BellNippleDumpRate= MUD(3)%Q - PedalMeter

  1173. 

  1174.                 CALL Set_FlowFromReturnLine(.TRUE.)        ! for unity display

  1175.                 

  1176.             endif

  1177.             

  1178.                 !VolumeToActive = VolumeToActive + BellNippleVolume

  1179.                 !write(*,*) 'VolumeToActive*******=' , VolumeToActive

  1180.                 

  1181.                 

  1182.             active_before= ActiveTankVolume

  1183.                     

  1184.     

  1185.             BellNippleVolume= BellNippleVolume- ((MUD(3)%Q/60.)*DeltaT_Mudline) ! to be 0.

  1186. 

  1187.             if  ( BellNippleDensity > 1.0) then

  1188.                 if (j3 == 1 .and. B71==1) then  !(volumes in galon)

  1189.                     

  1190.                     

  1191.                     MUD(3)%Q = min(MUD(3)%Q , PedalMeter)

  1192.                     !write(*,*) 'MUD(3)%Q=' , MUD(3)%Q

  1193.                     

  1194.                         IF (MudProperties%ActiveAutoDensity == .FALSE.) THEN

  1195. 

  1196.                     ActiveTankDensity= ((ActiveTankDensity*ActiveTankVolume)+(BellNippleDensity*(MUD(3)%Q/60.)*DeltaT_Mudline))/(ActiveTankVolume+((MUD(3)%Q/60.)*DeltaT_Mudline))

  1197.                     ActiveTankVolume= ActiveTankVolume+ ((MUD(3)%Q/60.)*DeltaT_Mudline)

  1198. 

  1199.                     !write(*,*) 'active increase bell 1=' , ((MUD(3)%Q/60.)*DeltaT_Mudline)

  1200.                     

  1201.                     

  1202.                         ELSEIF (MudProperties%ActiveAutoDensity .and. BellNippleDensity > ActiveTankDensity) THEN

  1203. 

  1204. 

  1205.                     ActiveTankVolume= ActiveTankVolume+ ((20.8d0-BellNippleDensity)/(20.8d0-ActiveTankDensity))*((MUD(3)%Q/60.d0)*DeltaT_Mudline)       ! asumed cutting density = 20.8 ppg

  1206.                     !write(*,*) 'active increase bell 2=' , ((20.8d0-BellNippleDensity)/(20.8d0-ActiveTankDensity))*((MUD(3)%Q/60.d0)*DeltaT_Mudline) 

  1207.                         ELSEIF (MudProperties%ActiveAutoDensity .and. BellNippleDensity < 5.0) THEN                                

  1208.                             

  1209.                     ActiveTankVolume= ActiveTankVolume+ ((2.d0-BellNippleDensity)/(2.d0-ActiveTankDensity))*((MUD(3)%Q/60.d0)*DeltaT_Mudline)       ! asumed GAS density = 2.0 ppg

  1210.                     !write(*,*) 'active increase bell 3=' , ((2.d0-BellNippleDensity)/(2.d0-ActiveTankDensity))*((MUD(3)%Q/60.d0)*DeltaT_Mudline) 

  1211.                             

  1212.                         ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < BellNippleDensity .and. BellNippleDensity <= ActiveTankDensity) THEN

  1213.                             !write(*,*) ' Auto true 3'

  1214. 

  1215.                             

  1216.                             ActiveTankVolume= ActiveTankVolume+ ((MUD(3)%Q/60.d0)*DeltaT_Mudline)

  1217.                     !write(*,*) 'active increase bell 4=' , ((MUD(3)%Q/60.d0)*DeltaT_Mudline)

  1218.                         

  1219.                         ENDIF

  1220.                 endif

  1221.                     

  1222.                     if (j3 == 1 .and. B77==1) then

  1223.                         

  1224.                         MUD(3)%Q = min(MUD(3)%Q , PedalMeter)

  1225.                         

  1226.                             IF (MudProperties%ActiveAutoDensity == .FALSE.) THEN

  1227.                                 

  1228.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(BellNippleDensity*(MUD(3)%Q/60.)*DeltaT_Mudline))/(TripTankVolumeCalc+((MUD(3)%Q/60.)*DeltaT_Mudline))

  1229.                         TripTankVolumeCalc= TripTankVolumeCalc+ (MUD(3)%Q/60.)*DeltaT_Mudline

  1230.                         

  1231.                             ELSEIF (MudProperties%ActiveAutoDensity .and. BellNippleDensity > ActiveTankDensity) THEN

  1232.                                 

  1233.                         AddedVolumeToTank= ((20.8d0-BellNippleDensity)/(20.8d0-ActiveTankDensity))*((MUD(3)%Q/60.d0)*DeltaT_Mudline)

  1234.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ActiveTankDensity*AddedVolumeToTank))/(TripTankVolumeCalc+AddedVolumeToTank)

  1235.                                 

  1236.                         TripTankVolumeCalc= TripTankVolumeCalc+ AddedVolumeToTank

  1237.                             

  1238.                             ELSEIF (MudProperties%ActiveAutoDensity .and. BellNippleDensity < 5.0) THEN

  1239.                                 

  1240.                         AddedVolumeToTank= ((2.d0-BellNippleDensity)/(2.d0-ActiveTankDensity))*((MUD(3)%Q/60.d0)*DeltaT_Mudline)        ! asumed GAS density = 2.0 ppg

  1241.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ActiveTankDensity*AddedVolumeToTank))/(TripTankVolumeCalc+AddedVolumeToTank)

  1242.                         

  1243.                         TripTankVolumeCalc= TripTankVolumeCalc+ AddedVolumeToTank

  1244.                         

  1245.                             ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < BellNippleDensity .and. BellNippleDensity <= ActiveTankDensity) THEN

  1246.                                 

  1247.                         AddedVolumeToTank= ((MUD(3)%Q/60.d0)*DeltaT_Mudline) 

  1248.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ActiveTankDensity*AddedVolumeToTank))/(TripTankVolumeCalc+AddedVolumeToTank)

  1249.                                 

  1250.                         TripTankVolumeCalc= TripTankVolumeCalc+ AddedVolumeToTank

  1251.                                 

  1252.                             ENDIF

  1253.                             

  1254.                     endif                    

  1255.                     

  1256.                     

  1257.                     if (j3 == 1 .and. B78==1) then

  1258. 

  1259.                         BellNippleDumpVolume= BellNippleDumpVolume+ (MUD(3)%Q/60.d0)*DeltaT_Mudline

  1260.                         

  1261.                         !BellNippleDumpRate= MUD(3)%Q

  1262. 

  1263.                     endif

  1264.                     

  1265.                     

  1266.                     

  1267.                     if (j3 == 2) then       !78 is not allowded in this position

  1268.                         

  1269.                         MUD(3)%Q = min(MUD(3)%Q , PedalMeter)

  1270.                                                 

  1271.                             IF (MudProperties%ActiveAutoDensity == .FALSE.) THEN

  1272.                                 

  1273.                         ActiveTankDensity= ((ActiveTankDensity*ActiveTankVolume)+(BellNippleDensity*(0.5*MUD(3)%Q/60.)*DeltaT_Mudline))/(ActiveTankVolume+((0.5*MUD(3)%Q/60.)*DeltaT_Mudline))

  1274.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(BellNippleDensity*(0.5*MUD(3)%Q/60.)*DeltaT_Mudline))/(TripTankVolumeCalc+((0.5*MUD(3)%Q/60.)*DeltaT_Mudline))

  1275.                         

  1276.                         ActiveTankVolume= ActiveTankVolume+ ((0.5*MUD(3)%Q/60.)*DeltaT_Mudline)

  1277.                         TripTankVolumeCalc= TripTankVolumeCalc+ ((0.5*MUD(3)%Q/60.)*DeltaT_Mudline)

  1278.                         

  1279.                             ELSEIF (MudProperties%ActiveAutoDensity .and. BellNippleDensity > ActiveTankDensity) THEN

  1280.                                 

  1281.                                 

  1282.                         AddedVolumeToTank= ((20.8d0-BellNippleDensity)/(20.8d0-ActiveTankDensity))*((0.5d0*MUD(3)%Q/60.d0)*DeltaT_Mudline)

  1283.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ActiveTankDensity*AddedVolumeToTank))/(TripTankVolumeCalc+AddedVolumeToTank)

  1284.                                

  1285.                         ActiveTankVolume= ActiveTankVolume+ AddedVolumeToTank

  1286.                         TripTankVolumeCalc= TripTankVolumeCalc+ AddedVolumeToTank 

  1287.                         

  1288.                             ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < ActiveTankDensity) THEN

  1289.                                 

  1290.                         AddedVolumeToTank= ((2.d0-BellNippleDensity)/(2.d0-ActiveTankDensity))*((0.5d0*MUD(3)%Q/60.d0)*DeltaT_Mudline)      ! asumed GAS density = 2.0 ppg

  1291.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ActiveTankDensity*AddedVolumeToTank))/(TripTankVolumeCalc+AddedVolumeToTank)

  1292.                                 

  1293.                         ActiveTankVolume= ActiveTankVolume+ AddedVolumeToTank

  1294.                         TripTankVolumeCalc= TripTankVolumeCalc+ AddedVolumeToTank

  1295.                         

  1296.                             ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < BellNippleDensity .and. BellNippleDensity <= ActiveTankDensity) THEN

  1297.                                 

  1298.                         AddedVolumeToTank= ((MUD(3)%Q/60.d0)*DeltaT_Mudline) 

  1299.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ActiveTankDensity*AddedVolumeToTank))/(TripTankVolumeCalc+AddedVolumeToTank)

  1300.                                 

  1301.                         ActiveTankVolume= ActiveTankVolume+ AddedVolumeToTank

  1302.                         TripTankVolumeCalc= TripTankVolumeCalc+ AddedVolumeToTank                                

  1303.                                 

  1304.                                 

  1305.                             ENDIF

  1306.                             

  1307.                                 

  1308.                     endif  

  1309.                     

  1310.                 endif   !( BellNippleDensity > 1.0) then

  1311.             

  1312.                     active_after= ActiveTankVolume

  1313.                     

  1314.                     active_increase = active_after - active_before

  1315.                     

  1316.                     total_active_increase= total_active_increase + active_increase

  1317.                     

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

  1319.                         total_active_increase= 0.

  1320.                     endif

  1321.                     

  1322.                     !write(*,*) 'total_active_increase=' , total_active_increase

  1323.             

  1324.             

  1325.                     

  1326.                     !write(*,*) 'ReturnFlowRate=MUD(3)%Q= after' , MUD(3)%Q

  1327.                     

  1328.                     ReturnFlowRate = MUD(3)%Q 

  1329.                     

  1330.                     TripTankVolumeCalc = min(TripTankVolumeCalc,50.*42.)      !50. BBL *42. gal/BBL = gal

  1331.                     !if TripTankVolumeCalc>50 BBl, excess value(TripTankVolumeCalc-50) is dumped

  1332.                     

  1333.                     ActiveTankVolume = min(ActiveTankVolume , MudProperties%ActiveTotalTankCapacityGal - MudProperties%ActiveSettledContentsGal)

  1334.                     !if ActiveTankVolume is higher, excess amount is dumped                    

  1335.                     !write(*,*) 'BellNippleDensity=' , BellNippleDensity

  1336.                     

  1337.                     !MudWeightOut2 = BellNippleDensity !for drillwatch display

  1338.                     !write(*,*) 'MudWeightOut2=' , MudWeightOut2

  1339.                     

  1340.                     !write(*,*) 

  1341.                     

  1342.                     

  1343.             endif

  1344.             

  1345.             if (j3 == 0) then

  1346.                 MUD(3)%Q=0.0       ! for normal circulation input

  1347.                 call Set_FlowRate(0d0)

  1348.             endif

  1349.             

  1350. 

  1351.             

  1352. !===========================================================================================================================

  1353. !===========================================================================================================================              

  1354.             

  1355.                      

  1356.             

  1357.             if (j11 > 0 .and. MudChecked== .true.) then    !BellNippleToWell-NonFullWell    ( FillingWell_By_BellNipple subroutine is called for this state )

  1358.                 !write(*,*) 'j11 is open'

  1359.                 MudChecked= .false.     !to be sure that well is not full after arranging muds

  1360.                     !WellToPitsOpen = .TRUE.

  1361.                 

  1362.                 !BellNipple flow rate= sum flow rate (well+ mudbucket+ triptank)

  1363.                 

  1364.                 !Well to BellNipple: BellNippleVolume

  1365.                 !MudBucket to BellNipple: BellNippleVolume

  1366.                 !TripTnak to BellNipple: BellNippleVolume

  1367.                 

  1368.                     MUD(8)%Q = (BellNippleVolume/DeltaT_Mudline)*60.

  1369.                     !write(*,*) 'MUD(8)%Q=' , MUD(8)%Q

  1370.                     

  1371.        

  1372.                     BellNippleVolume= BellNippleVolume- ((MUD(8)%Q/60.)*DeltaT_Mudline) ! to be 0.

  1373.                     !write(*,*) 'BellNippleVolume-2nd Mode=' , BellNippleVolume   

  1374.                     

  1375.                     !BellNippleDensity

  1376.                     !

  1377.                     !

  1378.                     !BellNippleDensity , MUD(8)%Q be code gel dade beshe

  1379.                     !shart: j11 > 0 , MUD(8)%Q > 0.0

  1380.                   

  1381.                     

  1382.             endif

  1383.             

  1384.             if (j11 == 0) then

  1385.                 MUD(8)%Q=0.0       ! for normal circulation input

  1386.                 !WellToPitsOpen= .false.

  1387.             endif

  1388.             

  1389. 

  1390.             

  1391. !===========================================================================================================================

  1392. !===========================================================================================================================  

  1393.       

  1394.             

  1395.             

  1396.             !WRITE (*,*) 'choke condition', j4, ChokeLineNOTFull

  1397.             if (j4 > 0 .and. ChokeLineNOTFull== .false.) then    !WellToChokeManifold(Through 26)

  1398.                 !write(*,*) 'j4 is open'

  1399.                 !write(*,*) 'active by j4'

  1400. 

  1401. 

  1402.                     

  1403.                     !MUD(4)%Q= ( Ann_Saved_MudDischarged_Volume_Final+Ann_Kick_Saved_Volume_Final - ((Qlost/60.0d0)*DeltaT_Mudline) )*60.d0/DeltaT_Mudline

  1404.                     MUD(4)%Q= ( MudVolume_InjectedFromAnn + Ann_Kick_Saved_Volume )*60.d0/DeltaT_Mudline    !Injected is referred only to Mud

  1405.                     

  1406.                     

  1407.                     !if ( WellisNOTFull== .true. )       MUD(4)%Q= 0.0

  1408.                     

  1409.                     

  1410.                     if (j9 > 0) then

  1411.                         ChokeLine_FlowCoef= BopStackSpecification%ChokeLineId/(13.625+BopStackSpecification%ChokeLineId)          ! 13.625= BellNipple ID (inch)

  1412.                         MUD(4)%Q= ChokeLine_FlowCoef * MUD(4)%Q

  1413.                     endif                    

  1414. 

  1415.                     

  1416.                     !call Log_1('MUD(4)%Q=', MUD(4)%Q)

  1417.                     

  1418.                     ChokeOutletDensity= ChokeLine_Density%Last()        ! <<< in CirculationCodeSelect Code

  1419.                     

  1420.                     

  1421.                     !MudWeightOut2= ChokeOutletDensity !for drillwatch display

  1422. !                    

  1423.                     !AnnulusFlowRateFinal: flow from string mud  ,   DeltaVolumeOp: due to trip in 

  1424. 

  1425.                 

  1426.               

  1427.                 

  1428.                 

  1429.                 RealJ4= real(j4)

  1430.                     

  1431.                     !C71: Active Tank        C77: Trip Tank      C78: ChokeManifoldDump

  1432.                     

  1433.             if  ( BellNippleDensity > 1.0) then    

  1434.                 ! IN ALL CONDITIONS EFFECT OF 78 IS COMPUTED BY RealJ4

  1435.                     if (C71==1 .and. C77==0) then  !(volumes in galon) RealJ4: 1 OR 2(IF 78 IS OPEN)

  1436. 

  1437.                             IF (MudProperties%ActiveAutoDensity == .FALSE.) THEN

  1438.                                 

  1439.                         ActiveTankDensity= ((ActiveTankDensity*ActiveTankVolume)+(ChokeOutletDensity*((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline))/(ActiveTankVolume+(((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline))

  1440.                         ActiveTankVolume= ActiveTankVolume+ (((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline) 

  1441.                         !write(*,*) 'active increase choke1=' , (((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline) 

  1442.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline)

  1443. 

  1444.                             ELSEIF (MudProperties%ActiveAutoDensity .and. ChokeOutletDensity > ActiveTankDensity) THEN

  1445. 

  1446.     

  1447.                         ActiveTankVolume= ActiveTankVolume+ ((20.8d0-ChokeOutletDensity)/(20.8d0-ActiveTankDensity))*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)       ! asumed cutting density = 20.8 ppg

  1448.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1./RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)

  1449.                         !write(*,*) 'active increase choke2=' , ((20.8d0-ChokeOutletDensity)/(20.8d0-ActiveTankDensity))*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline) 

  1450.                         

  1451.                             ELSEIF (MudProperties%ActiveAutoDensity .and. ChokeOutletDensity < 5.0) THEN                                

  1452.                                 

  1453.                         ActiveTankVolume= ActiveTankVolume+ ((2.d0-ChokeOutletDensity)/(2.d0-ActiveTankDensity))*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)       ! asumed GAS density = 2.0 ppg

  1454.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)

  1455.                         !write(*,*) 'active increase choke3=' ,((2.d0-ChokeOutletDensity)/(2.d0-ActiveTankDensity))*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)

  1456.                         

  1457.                             ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < ChokeOutletDensity .and. ChokeOutletDensity <= ActiveTankDensity) THEN

  1458.                                 !write(*,*) ' Auto true 3'

  1459. 

  1460.                                 

  1461.                         ActiveTankVolume= ActiveTankVolume+ (((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)

  1462.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)

  1463.                         

  1464.                         !write(*,*) 'active increase choke4=' , (((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)

  1465.                             

  1466.                             ENDIF                        

  1467.                         

  1468.                         

  1469.                         

  1470.                     endif

  1471.                     

  1472.                     if (C77==1 .and. C71==0) then       !RealJ4: 1 OR 2(IF 78 IS OPEN)

  1473. 

  1474.                             IF (MudProperties%ActiveAutoDensity == .FALSE.) THEN                      

  1475.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ChokeOutletDensity*((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline))/(TripTankVolumeCalc+(((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline))

  1476.                         TripTankVolumeCalc= TripTankVolumeCalc+ (((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline)

  1477.                         

  1478.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline)

  1479.                                          

  1480.                             ELSEIF (MudProperties%ActiveAutoDensity .and. ChokeOutletDensity > ActiveTankDensity) THEN

  1481.                                 

  1482.                         AddedVolumeToTank= ((20.8d0-ChokeOutletDensity)/(20.8d0-ActiveTankDensity))*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)

  1483.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ActiveTankDensity*AddedVolumeToTank))/(TripTankVolumeCalc+AddedVolumeToTank)

  1484.                                 

  1485.                         TripTankVolumeCalc= TripTankVolumeCalc+ AddedVolumeToTank

  1486.                         

  1487.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)                        

  1488.                         

  1489.                             

  1490.                             ELSEIF (MudProperties%ActiveAutoDensity .and. ChokeOutletDensity < 5.0) THEN

  1491.                                 

  1492.                         AddedVolumeToTank= ((2.d0-ChokeOutletDensity)/(2.d0-ActiveTankDensity))*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)        ! asumed GAS density = 2.0 ppg

  1493.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ActiveTankDensity*AddedVolumeToTank))/(TripTankVolumeCalc+AddedVolumeToTank)

  1494.                         

  1495.                         TripTankVolumeCalc= TripTankVolumeCalc+ AddedVolumeToTank

  1496.                         

  1497.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)      

  1498.                         

  1499.                             ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < ChokeOutletDensity .and. ChokeOutletDensity <= ActiveTankDensity) THEN

  1500.                                 

  1501.                         AddedVolumeToTank= (((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline) 

  1502.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ActiveTankDensity*AddedVolumeToTank))/(TripTankVolumeCalc+AddedVolumeToTank)

  1503.                                 

  1504.                         TripTankVolumeCalc= TripTankVolumeCalc+ AddedVolumeToTank

  1505.                         

  1506.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)  

  1507.                                 

  1508.                             ENDIF                        

  1509.                         

  1510. 

  1511. 

  1512.                     endif                    

  1513.                     

  1514.                     if (C71==1 .and. C77==1) then       !RealJ4: 2 OR 3(IF 78 IS OPEN)

  1515. 

  1516.                             IF (MudProperties%ActiveAutoDensity == .FALSE.) THEN                     

  1517.                         ActiveTankDensity= ((ActiveTankDensity*ActiveTankVolume)+(ChokeOutletDensity*((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline))/(ActiveTankVolume+(((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline))

  1518.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ChokeOutletDensity*((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline))/(TripTankVolumeCalc+(((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline))

  1519.                         

  1520.                         ActiveTankVolume= ActiveTankVolume+ (((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline)

  1521.                         TripTankVolumeCalc= TripTankVolumeCalc+ (((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline) 

  1522.                         

  1523.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline)

  1524.                         

  1525.                             ELSEIF (MudProperties%ActiveAutoDensity .and. ChokeOutletDensity > ActiveTankDensity) THEN

  1526.                                 

  1527.                                 

  1528.                         AddedVolumeToTank= ((20.8d0-ChokeOutletDensity)/(20.8d0-ActiveTankDensity))*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)

  1529.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ActiveTankDensity*AddedVolumeToTank))/(TripTankVolumeCalc+AddedVolumeToTank)

  1530.                                

  1531.                         ActiveTankVolume= ActiveTankVolume+ AddedVolumeToTank

  1532.                         TripTankVolumeCalc= TripTankVolumeCalc+ AddedVolumeToTank 

  1533.                         

  1534.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)

  1535.                         

  1536.                             ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < ActiveTankDensity) THEN

  1537.                                 

  1538.                         AddedVolumeToTank= ((2.d0-ChokeOutletDensity)/(2.d0-ActiveTankDensity))*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)      ! asumed GAS density = 2.0 ppg

  1539.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ActiveTankDensity*AddedVolumeToTank))/(TripTankVolumeCalc+AddedVolumeToTank)

  1540.                                 

  1541.                         ActiveTankVolume= ActiveTankVolume+ AddedVolumeToTank

  1542.                         TripTankVolumeCalc= TripTankVolumeCalc+ AddedVolumeToTank

  1543.                         

  1544.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)

  1545.                         

  1546.                             ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < ChokeOutletDensity .and. ChokeOutletDensity <= ActiveTankDensity) THEN

  1547.                                 

  1548.                         AddedVolumeToTank= ((1.d0/RealJ4)*MUD(4)%Q/60.d0)

  1549.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ActiveTankDensity*AddedVolumeToTank))/(TripTankVolumeCalc+AddedVolumeToTank)

  1550.                                 

  1551.                         ActiveTankVolume= ActiveTankVolume+ AddedVolumeToTank

  1552.                         TripTankVolumeCalc= TripTankVolumeCalc+ AddedVolumeToTank 

  1553.                         

  1554.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1.d0/RealJ4)*MUD(4)%Q/60.d0)*DeltaT_Mudline)

  1555.                                 

  1556.                                 

  1557.                             ENDIF                        

  1558.                         

  1559. 

  1560.                     endif   

  1561.                     

  1562.                     

  1563.                     if (C71==0 .and. C77==0 .and. C78==1) then       !RealJ4: 1

  1564.                             !   autodensity niaz nadarad                          

  1565.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ (((1./RealJ4)*MUD(4)%Q/60.)*DeltaT_Mudline)

  1566.                         

  1567.                     endif

  1568.                     

  1569. 

  1570.                     

  1571.             endif !  if  ( BellNippleDensity > 1.0) then

  1572.             

  1573.             

  1574.                     TripTankVolumeCalc=min(TripTankVolumeCalc,50.*42.)      !50. BBL *42. gal/BBL = gal

  1575.                     !if TripTankVolumeCalc>50 BBl, excess value(TripTankVolumeCalc-50) is dumped

  1576. 

  1577.                     ActiveTankVolume=min(ActiveTankVolume , MudProperties%ActiveTotalTankCapacityGal-MudProperties%ActiveSettledContentsGal)

  1578.                     !if ActiveTankVolume is higher, excess amount is dumped                    

  1579.                     

  1580.             endif 

  1581.             

  1582.             

  1583.             

  1584.             

  1585.             

  1586.             if (j4 == 0 .or. ChokeLineNOTFull== .true.) then

  1587.                 !Pressure_BeforeChokes=0.0       ! for normal circulation input

  1588.                 MUD(4)%Q=0.0       ! for CirculationCodeSelect input.

  1589.             endif

  1590.             

  1591.             

  1592.             if (j4 > 0) then

  1593.                 WellToChokeManifoldOpen= .true.

  1594.             else

  1595.                 WellToChokeManifoldOpen= .false.

  1596.             endif

  1597.    

  1598. !===========================================================================================================================

  1599. !===========================================================================================================================  

  1600.             

  1601.             if (j18 > 0) then    !StandPipeManifoldToChokeManifold-Through ChokeLine

  1602.                 !write(*,*) 'j18 is open'

  1603.                 !write(*,*) 'active by j18'

  1604.                 

  1605. !  STEP 1: REDUCTION FROM PUMPS     STEP 1: REDUCTION FROM PUMPS    STEP 1: REDUCTION FROM PUMPS  (SAME TO PumpsToString LINE)              

  1606.            ! (NOT NEEDED)

  1607.                 

  1608.                 

  1609.                 

  1610. !  STEP 2: ADD TO TANKS     STEP 2: ADD TO TANKS    STEP 2: ADD TO TANKS    STEP 2: ADD TO TANKS  (SAME TO WellToChokeManifold LINE)              

  1611.                 

  1612.                 !Pump1toCh:             PumpsToChokeManifold Coefficient

  1613.                 !Jj2,Jj12,Jj13:    TanksToMudPump Coefficient

  1614.                 !H:             Pumps To Tank_Through65 or 67 Coefficient  

  1615. 

  1616.             MUD(9)%Q= jj2*(1-H82)*(1-DumpPump1)*Pump1toCh*PUMP(1)%Flow_Rate + jj12*(1-H83)*(1-DumpPump2)*Pump2toCh*PUMP(2)%Flow_Rate + jj13*(1-H84)*(1-DumpCementPump)*Pump3toCh*PUMP(3)%Flow_Rate

  1617.                 

  1618.             

  1619.             

  1620.             Denominator_a= (jj2*(1.-H82)*(1.-DumpPump1)*Pump1toCh*PUMP(1)%Flow_Rate + jj12*(1.-H83)*(1.-DumpPump2)*Pump2toCh*PUMP(2)%Flow_Rate + jj13*(1.-H84)*(1.-DumpCementPump)*Pump3toCh*PUMP(3)%Flow_Rate)

  1621.             

  1622.             if (Denominator_a /= 0.) then

  1623.         Density_Ch= (jj2*(1.-H82)*(1.-DumpPump1)*Pump1toCh*Mp1Density*PUMP(1)%Flow_Rate + jj12*(1.-H83)*(1.-DumpPump2)*Pump2toCh*Mp2Density*PUMP(2)%Flow_Rate + jj13*(1.-H84)*(1.-DumpCementPump)*Pump3toCh*Mp3Density*PUMP(3)%Flow_Rate)/ & 

  1624.                                         Denominator_a

  1625.             !write(*,*) 'Density_Ch=' , Density_Ch

  1626.         !    

  1627.         !    else

  1628.         !Density_Ch= 0.0

  1629.             endif   

  1630.             

  1631.             

  1632.                 RealJ18= M71+M77+M78

  1633.                     

  1634.                     !C71: Active Tank        C77: Trip Tank      C78: ChokeManifoldDump

  1635.                     

  1636.                 

  1637.                 ! IN ALL CONDITIONS EFFECT OF 78 IS COMPUTED BY RealJ18

  1638.                     if (M71==1 .and. M77==0) then  !(volumes in galon) RealJ18: 1 OR 2(IF 78 IS OPEN)

  1639.             

  1640.                             !  autodensity niaz nadarad            

  1641.                         ActiveTankDensity= ((ActiveTankDensity*ActiveTankVolume)+(Density_Ch*((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline))/(ActiveTankVolume+(((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline))

  1642.                         ActiveTankVolume= ActiveTankVolume+ (((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline) 

  1643.                         

  1644.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline)

  1645.             

  1646.                     endif

  1647.                     

  1648.                     if (M77==1 .and. M71==0) then       !RealJ18: 1 OR 2(IF 78 IS OPEN)

  1649.             

  1650.                             !  autodensity niaz nadarad                         

  1651.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(Density_Ch*((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline))/(TripTankVolumeCalc+(((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline))

  1652.                         TripTankVolumeCalc= TripTankVolumeCalc+ (((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline)

  1653.                         

  1654.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline)

  1655.             

  1656.                     endif                    

  1657.                     

  1658.                     if (M71==1 .and. M77==1) then       !RealJ18: 2 OR 3(IF 78 IS OPEN)

  1659.             

  1660.                             !  autodensity niaz nadarad                       

  1661.                         ActiveTankDensity= ((ActiveTankDensity*ActiveTankVolume)+(Density_Ch*((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline))/(ActiveTankVolume+(((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline))

  1662.                         TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(Density_Ch*((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline))/(TripTankVolumeCalc+(((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline))

  1663.                         

  1664.                         ActiveTankVolume= ActiveTankVolume+ (((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline)

  1665.                         TripTankVolumeCalc= TripTankVolumeCalc+ (((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline) 

  1666.                         

  1667.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ C78*(((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline)

  1668.             

  1669.                     endif   

  1670.                     

  1671.                     

  1672.                     if (M71==0 .and. M77==0 .and. M78==1) then       !RealJ18: 1

  1673.                             !   autodensity niaz nadarad                          

  1674.                         ChokeManifoldDumpVolume= ChokeManifoldDumpVolume+ (((1./RealJ18)*MUD(9)%Q/60.)*DeltaT_Mudline)

  1675.                         

  1676.                     endif

  1677.                     

  1678.             

  1679.             

  1680.                     

  1681.                     

  1682.                     

  1683.             

  1684.             

  1685.                     TripTankVolumeCalc=min(TripTankVolumeCalc,50.*42.)      !50. BBL *42. gal/BBL = gal

  1686.                     !if TripTankVolumeCalc>50 BBl, excess value(TripTankVolumeCalc-50) is dumped

  1687.             

  1688.                     ActiveTankVolume=min(ActiveTankVolume , MudProperties%ActiveTotalTankCapacityGal-MudProperties%ActiveSettledContentsGal)

  1689.                     !if ActiveTankVolume is higher, excess amount is dumped                    

  1690.                     

  1691.             endif 

  1692.             

  1693.             

  1694.             if (j18 == 0) then

  1695.                 MUD(9)%Q=0.0

  1696.             endif            

  1697.             

  1698.             

  1699. !===========================================================================================================================

  1700. !===========================================================================================================================               

  1701.             

  1702.             if (j5 > 0 .and. (ActiveTankVolume/ActiveTankFloorArea) > (TripTankVolumeCalc/TripTankFloorArea)) then    !ActiveTankToTripTank

  1703.                 ! second condition is for Utube flow

  1704.                 !write(*,*) 'j5 is open'

  1705.                 

  1706.                 !   ActiveTankVolume/ActiveTankFloorArea... means tank height

  1707.                 MUD(5)%Q= 300.       ! constant flow rate(gpm)

  1708.                 

  1709. 

  1710.                     ActiveTankVolume= ActiveTankVolume - ((MUD(5)%Q/60.)*DeltaT_Mudline)

  1711.                     TripTankVolumeCalc= TripTankVolumeCalc + ((MUD(5)%Q/60.)*DeltaT_Mudline)                        

  1712.                              

  1713.                     TripTankDensityCalc= ((TripTankDensityCalc*TripTankVolumeCalc)+(ActiveTankDensity*(MUD(5)%Q/60.)*DeltaT_Mudline))/(TripTankVolumeCalc+((MUD(5)%Q/60.)*DeltaT_Mudline))

  1714.                         

  1715.   

  1716.                     

  1717.                     TripTankVolumeCalc=min(TripTankVolumeCalc,50.*42.)      !50. BBL *42. gal/BBL = gal

  1718.                     !if TripTankVolumeCalc>50, excess value(TripTankVolumeCalc-50) is dumped                

  1719.                 

  1720.             endif

  1721.             

  1722.             if (j5 == 0) then

  1723.                 MUD(5)%Q=0.0

  1724.             endif 

  1725.             

  1726. !===========================================================================================================================

  1727. !===========================================================================================================================                 

  1728. 

  1729.             if (j16 > 0) then    !PathsToGauge75

  1730.                 

  1731.                 if (K79 == 1) then

  1732.                     

  1733.                     PressureGauge75= PressureGauges(1)    !String to Gauge75

  1734.                     

  1735.                 elseif (K82 == 1 .and. k83 == 0 .and. k84 == 0 .and. k78 == 0) then

  1736.                     PressureGauge75= PumpPressure1 

  1737.                 elseif (K82 == 0 .and. k83 == 1 .and. k84 == 0 .and. k78 == 0) then

  1738.                     PressureGauge75= PumpPressure2

  1739.                 elseif (K82 == 0 .and. k83 == 0 .and. k84 == 1 .and. k78 == 0) then

  1740.                     PressureGauge75= PumpPressure3 

  1741.                 elseif (K82 == 0 .and. k83 == 0 .and. k84 == 0 .and. k78 == 1) then

  1742.                     PressureGauge75= 0.

  1743.                 endif

  1744.             

  1745.                 !if (K82 == 1) PressureGauge75= PumpPressure1        !Pump1 to Gauge75'

  1746.                 !if (K83 == 1) PressureGauge75= PumpPressure2        !Pump2 to Gauge75

  1747.                 !if (K84 == 1) PressureGauge75= PumpPressure3        !Pump3 to Gauge75

  1748.                 !if (K78 == 1) PressureGauge75= 0.                   !Dump to Gauge75

  1749.                 

  1750.             endif

  1751.             

  1752. 

  1753.             StandPipeManifold%StandPipeGauge1= (1 - StandPipeGauge1Malf) * PressureGauge75    ! for STManifold Display

  1754.             !write(*,*) 'PressureGauge75=' , PressureGauge75

  1755.             !P1toSt= jj2*(1-H82)*(1-DumpPump1)*G82

  1756.             !P2toSt= jj12*(1-H83)*(1-DumpPump2)*G83

  1757.             !CptoSt= jj13*(1-H84)*(1-DumpCementPump)*G84

  1758. !===========================================================================================================================

  1759. !===========================================================================================================================             

  1760. 

  1761.             if (j17 > 0) then    !PumpsToGauge76

  1762.                 

  1763.                 if (L79 == 1) then

  1764.                     

  1765.                     PressureGauge76= PressureGauges(1)    !String to Gauge76

  1766.                     

  1767.                 elseif (L82 == 1 .and. L83 == 0 .and. L84 == 0 .and. L78 == 0) then

  1768.                     PressureGauge76= PumpPressure1

  1769.                 elseif (L82 == 0 .and. L83 == 1 .and. L84 == 0 .and. L78 == 0) then

  1770.                     PressureGauge76= PumpPressure2

  1771.                 elseif (L82 == 0 .and. L83 == 0 .and. L84 == 1 .and. L78 == 0) then

  1772.                     PressureGauge76= PumpPressure3

  1773.                 elseif (L82 == 0 .and. L83 == 0 .and. L84 == 0 .and. L78 == 1) then

  1774.                     PressureGauge76= 0.

  1775.                 endif                

  1776. 

  1777.                 

  1778.                 !if (L79 == 1) PressureGauge76= PressureGauges(1)    !String to Gauge76

  1779.                 !if (L82 == 1) PressureGauge76= PumpPressure1        !Pump1 to Gauge76

  1780.                 !if (L83 == 1) PressureGauge76= PumpPressure2        !Pump2 to Gauge76

  1781.                 !if (L84 == 1) PressureGauge76= PumpPressure3        !Pump3 to Gauge76

  1782.                 !if (L78 == 1) PressureGauge76= 0.                   !Dump to Gauge76

  1783.                 

  1784.             endif

  1785.             StandPipeManifold%StandPipeGauge2= (1 - StandPipeGauge2Malf) * PressureGauge76    ! for STManifold Display

  1786. !===========================================================================================================================

  1787. !===========================================================================================================================              

  1788.            !

  1789.            !if (PressureGauge75 == PressureGauges(1))  then  ! means: 75 goes to string

  1790.            !    PumpPressureDW= PressureGauges(1)  !for DrillWatch Display

  1791.            !    CALL Set_StandPipePressure(real(PressureGauges(1) , 8))    !for Data Display Console

  1792.            !endif

  1793.            !

  1794.            !

  1795.            !if (PressureGauge76 == PressureGauges(1))  then  ! means: 76 goes to string

  1796.            !    PumpPressureDW= PressureGauges(1)  !for DrillWatch Display

  1797.            !    CALL Set_StandPipePressure(real(PressureGauges(1) , 8))    !for Data Display Console

  1798.            !endif

  1799.            !

  1800.            !if (PressureGauge75 /= PressureGauges(1) .and. PressureGauge76 /= PressureGauges(1))  then  ! means: non of gauges go to string

  1801.            !    PumpPressureDW= max(PressureGauge75,PressureGauge76)  !for DrillWatch Display

  1802.            !    !StandPipePressureGauge= max(PressureGauge75,PressureGauge76)    !for Data Display Console

  1803.            !    CALL Set_StandPipePressure(real(max(PressureGauge75,PressureGauge76) , 8))    !for Data Display Console

  1804.            !endif

  1805.           !write(*,*) 'TapSelector=' , TapSelector

  1806.             

  1807.             

  1808.         if (TapSelector == .false.) then

  1809.             

  1810.                 DrillingWatch%PumpPressure= PressureGauge75  !for DrillWatch Display

  1811.                CALL Set_StandPipePressure(real((1-DrillPipePressureMalf)*PressureGauge75 , 8))    !for Data Display Console

  1812.         else

  1813.                 DrillingWatch%PumpPressure= PressureGauge76  !for DrillWatch Display

  1814.                CALL Set_StandPipePressure(real((1-DrillPipePressureMalf)*PressureGauge76 , 8))    !for Data Display Console

  1815.         endif

  1816.     

  1817. !===========================================================================================================================

  1818. !===========================================================================================================================  

  1819.             ! SHOULD BE AT LAST TO HAVE THE CORRECT DENSITIES FOR Suction_Density_MudSystem

  1820.             

  1821.             if (j2 > 0) then    !TanksToMudPump1

  1822. 

  1823.                 

  1824.                     !Relief= 0: deactive 1: active              PUMP(1)%Flow_Rate   , PUMP(2)%Flow_Rate

  1825.                     

  1826. 

  1827.                     RealJ2= real(j2)

  1828.                     

  1829.                     if (A71==1 .and. (ActiveTankVolume-(((1./RealJ2)*PUMP(1)%Flow_Rate/60.)*DeltaT_Mudline)) < 0.0) then

  1830.                         A71= 0

  1831.                         RealJ2= RealJ2-1

  1832.                         write(*,*) 'ActiveTank Level Warning'

  1833.                         call Activate_ActiveTankUnderVolume()

  1834.                     endif

  1835.                     

  1836.                     if (A72==1 .and. (ReserveTankVolume-(((1./RealJ2)*PUMP(1)%Flow_Rate/60.)*DeltaT_Mudline)) < 0.0) then

  1837.                         A72= 0

  1838.                         RealJ2= RealJ2-1

  1839.                         write(*,*) 'ReserveTank Level Warning'

  1840.                     endif

  1841.                     

  1842.                     if (A71==3 .and. (CementTankVolumeCalc-(((1./RealJ2)*PUMP(1)%Flow_Rate/60.)*DeltaT_Mudline)) < 0.0) then

  1843.                         A73= 0

  1844.                         RealJ2= RealJ2-1

  1845.                         write(*,*) 'CementTank Level Warning'

  1846.                     endif                    

  1847.                     

  1848.                     

  1849.                     if(RealJ2> 0.0) then

  1850.                     

  1851.                         ActiveTankVolume= ActiveTankVolume- A71*(((1./RealJ2)*PUMP(1)%Flow_Rate/60.)*DeltaT_Mudline)

  1852.                         ReserveTankVolume= ReserveTankVolume- A72*(((1./RealJ2)*PUMP(1)%Flow_Rate/60.)*DeltaT_Mudline)

  1853.                         CementTankVolumeCalc= CementTankVolumeCalc- A73*(((1./RealJ2)*PUMP(1)%Flow_Rate/60.)*DeltaT_Mudline)

  1854.                         !write(*,*) 'Active-decline=' , A71*(((1./RealJ2)*PUMP(1)%Flow_Rate/60.)*DeltaT_Mudline)

  1855.                         total_decrease= total_decrease+ A71*(((1./RealJ2)*PUMP(1)%Flow_Rate/60.)*DeltaT_Mudline)

  1856.                         

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

  1858.                         total_decrease= 0.

  1859.                     endif   

  1860.                         !write(*,*) 'total_decrease=' , total_decrease

  1861.                         

  1862.                         

  1863.                         Mp1Density= (A71*ActiveTankDensity+A72*ReserveTankDensity+A73*CementTankDensityCalc)/RealJ2

  1864.                     else

  1865.                         write(*,*) 'stop'

  1866.                     endif

  1867.                     

  1868. 

  1869.                     

  1870.             endif

  1871. 

  1872.  

  1873. !===========================================================================================================================

  1874. !===========================================================================================================================  

  1875.             ! SHOULD BE AT LAST TO HAVE THE CORRECT DENSITIES FOR Suction_Density_MudSystem

  1876.             

  1877.             if (j12 > 0) then    !TanksToMudPump2

  1878. 

  1879.                 

  1880.                     !Relief= 0: deactive 1: active              PUMP(1)%Flow_Rate   , PUMP(2)%Flow_Rate

  1881. 

  1882.                     RealJ12= real(J12)

  1883.                     

  1884.                     if (E71==1 .and. (ActiveTankVolume-(((1/RealJ12)*PUMP(2)%Flow_Rate/60.)*DeltaT_Mudline)) < 0.0) then

  1885.                         E71= 0

  1886.                         RealJ12= RealJ12-1

  1887.                         write(*,*) 'ActiveTank Level Warning'

  1888.                     endif

  1889.                     

  1890.                     if (E72==1 .and. (ReserveTankVolume-(((1/RealJ12)*PUMP(2)%Flow_Rate/60.)*DeltaT_Mudline)) < 0.0) then

  1891.                         E72= 0

  1892.                         RealJ12= RealJ12-1

  1893.                         write(*,*) 'ReserveTank Level Warning'

  1894.                     endif

  1895.                     

  1896.                     if (E71==3 .and. (CementTankVolumeCalc-(((1/RealJ12)*PUMP(2)%Flow_Rate/60.)*DeltaT_Mudline)) < 0.0) then

  1897.                         E73= 0

  1898.                         RealJ12= RealJ12-1

  1899.                         write(*,*) 'CementTank Level Warning'

  1900.                     endif                    

  1901.                     

  1902.                     

  1903.                     if(RealJ12> 0.0) then

  1904.                     

  1905.                         ActiveTankVolume= ActiveTankVolume- E71*(((1/RealJ12)*PUMP(2)%Flow_Rate/60.)*DeltaT_Mudline)

  1906.                         ReserveTankVolume= ReserveTankVolume- E72*(((1/RealJ12)*PUMP(2)%Flow_Rate/60.)*DeltaT_Mudline)

  1907.                         CementTankVolumeCalc= CementTankVolumeCalc- E73*(((1/RealJ12)*PUMP(2)%Flow_Rate/60.)*DeltaT_Mudline)

  1908. 

  1909.                         

  1910.                         

  1911.                         Mp2Density= (E71*ActiveTankDensity+E72*ReserveTankDensity+E73*CementTankDensityCalc)/RealJ12

  1912.                     else

  1913.                         write(*,*) 'stop'

  1914.                     endif

  1915.                     

  1916.                     

  1917.             endif

  1918.             

  1919.             

  1920. !===========================================================================================================================

  1921. !===========================================================================================================================  

  1922.             ! SHOULD BE AT LAST TO HAVE THE CORRECT DENSITIES FOR Suction_Density_MudSystem

  1923.             

  1924.             if (j13 > 0) then    !TanksToCementPump

  1925. 

  1926.                 

  1927.                     !Relief= 0: deactive 1: active              PUMP(1)%Flow_Rate   , PUMP(2)%Flow_Rate

  1928.                 

  1929. 

  1930.                     RealJ13= real(J13)

  1931.                     

  1932.                     if (F71==1 .and. (ActiveTankVolume-(((1/RealJ13)*PUMP(3)%Flow_Rate/60.)*DeltaT_Mudline)) < 0.0) then

  1933.                         F71= 0

  1934.                         RealJ13= RealJ13-1

  1935.                         write(*,*) 'ActiveTank Level Warning'

  1936.                     endif

  1937.                     

  1938.                     if (F72==1 .and. (ReserveTankVolume-(((1/RealJ13)*PUMP(3)%Flow_Rate/60.)*DeltaT_Mudline)) < 0.0) then

  1939.                         F72= 0

  1940.                         RealJ13= RealJ13-1

  1941.                         write(*,*) 'ReserveTank Level Warning'

  1942.                     endif

  1943.                     

  1944.                     if (F71==3 .and. (CementTankVolumeCalc-(((1/RealJ13)*PUMP(3)%Flow_Rate/60.)*DeltaT_Mudline)) < 0.0) then

  1945.                         F73= 0

  1946.                         RealJ13= RealJ13-1

  1947.                         write(*,*) 'CementTank Level Warning'

  1948.                     endif                    

  1949.                     

  1950.                     

  1951.                     if(RealJ13> 0.0) then

  1952.                     

  1953.                         ActiveTankVolume= ActiveTankVolume- F71*(((1/RealJ13)*PUMP(3)%Flow_Rate/60.)*DeltaT_Mudline)

  1954.                         ReserveTankVolume= ReserveTankVolume- F72*(((1/RealJ13)*PUMP(3)%Flow_Rate/60.)*DeltaT_Mudline)

  1955.                         CementTankVolumeCalc= CementTankVolumeCalc- F73*(((1/RealJ13)*PUMP(3)%Flow_Rate/60.)*DeltaT_Mudline)

  1956.                         

  1957.                         

  1958.                         Mp3Density= (F71*ActiveTankDensity+F72*ReserveTankDensity+F73*CementTankDensityCalc)/RealJ13

  1959.                     else

  1960.                         write(*,*) 'stop'

  1961.                     endif                    

  1962.                     

  1963.                     

  1964.             endif

  1965.                         

  1966. 

  1967.             

  1968. !===========================================================================================================================

  1969. !=========================================================================================================================== 

  1970.             ! SHOULD BE AT LAST TO HAVE THE CORRECT DENSITIES FOR Suction_Density_MudSystem

  1971.             

  1972.             if (j14 > 0) then    !PumpsToString         Suction_Density_MudSystem is used for Mud Circulation Code 

  1973.                 !write(*,*) 'j14 is open'

  1974.                 !call Log_1('j14 is open')

  1975.                 

  1976.                 ! << if H82 or H83 or H4 are open, no flow goes to other parts of system >>

  1977.                 

  1978.                 ! pump flow rate1 be sharti be samte string miravad ke masire j2 bar gharar bashad

  1979.                 ! pump flow rate2 be sharti be samte string miravad ke masire j12 bar gharar bashad

  1980.                 ! pump flow rate3 be sharti be samte string miravad ke masire j13 bar gharar bashad

  1981.                 

  1982.                 !G:             PumpsToString Coefficient

  1983.                 !Jj2,Jj12,Jj13:    TanksToMudPump Coefficient

  1984.                 !H:             Pumps To Tank_Through65 or 67 Coefficient

  1985.                 !

  1986.                 !write(*,*) 'jj2=' , jj2

  1987.                 !write(*,*) 'jj12=' , jj12

  1988.                 !write(*,*) 'jj13=' , jj13

  1989.                 !write(*,*) 'H82=' , H82

  1990.                 !write(*,*) 'H83=' , H83

  1991.                 !write(*,*) 'H84=' , H84

  1992.                 !write(*,*) 'DumpPump1=' , DumpPump1

  1993.                 !write(*,*) 'DumpPump2=' , DumpPump2

  1994.                 !write(*,*) 'DumpCementPump=' , DumpCementPump

  1995.                 !write(*,*) 'G82=' , G82

  1996.                 !write(*,*) 'G83=' , G83

  1997.                 !write(*,*) 'G84=' , G84

  1998.                 !write(*,*) 'Mp1Density=' , Mp1Density

  1999.                 !write(*,*) 'Mp2Density=' , Mp2Density

  2000.                 !write(*,*) 'Mp3Density=' , Mp3Density

  2001.                 !

  2002.                 !

  2003. 

  2004.                 

  2005. 

  2006.                 !PumpsDumpVolume= PumpsDumpVolume+    jj2*(1-H82)*DumpPump1*PUMP(1)%Flow_Rate + jj12*(1-H83)*DumpPump2*PUMP(2)%Flow_Rate + jj13*(1-H84)*DumpCementPump*PUMP(3)%Flow_Rate

  2007.                 

  2008.             Denominator= (jj2*(1.-H82)*(1.-DumpPump1)*G82*PUMP(1)%Flow_Rate + jj12*(1.-H83)*(1.-DumpPump2)*G83*PUMP(2)%Flow_Rate + jj13*(1.-H84)*(1.-DumpCementPump)*G84*PUMP(3)%Flow_Rate)

  2009.             

  2010.             if (Denominator /= 0.) then

  2011.         Suction_Density_MudSystem= (jj2*(1.-H82)*(1.-DumpPump1)*G82*Mp1Density*PUMP(1)%Flow_Rate + jj12*(1.-H83)*(1.-DumpPump2)*G83*Mp2Density*PUMP(2)%Flow_Rate + jj13*(1.-H84)*(1.-DumpCementPump)*G84*Mp3Density*PUMP(3)%Flow_Rate)/ & 

  2012.                                         Denominator

  2013.             endif

  2014.             

  2015.             CompressedMudDensity= Suction_Density_MudSystem

  2016.                     

  2017.             DrillingWatch%MudWeightIn=  Suction_Density_MudSystem  !for drillwatch display

  2018.             

  2019.             

  2020.             MUD(2)%Q= jj2*(1-H82)*(1-DumpPump1)*G82*PUMP(1)%Flow_Rate + jj12*(1-H83)*(1-DumpPump2)*G83*PUMP(2)%Flow_Rate + jj13*(1-H84)*(1-DumpCementPump)*G84*PUMP(3)%Flow_Rate

  2021.                 

  2022.             !write(*,*) 'MUD(2)%Q=' , MUD(2)%Q

  2023.             

  2024.             

  2025.             

  2026.             !jj2*(1-H82)*(1-DumpPump1)*G82    :if ==1, Pump1 to String is open

  2027.             !jj12*(1-H83)*(1-DumpPump2)*G83   :if ==1, Pump2 to String is open

  2028.             !jj13*(1-H84)*(1-DumpCementPump)*G84  :if ==1, Cement to String is open

  2029. 

  2030.      

  2031.             

  2032.             endif      

  2033.             

  2034.             if (j14 == 0) then        ! for normal circulation input 

  2035.                 MUD(2)%Q=0.0

  2036.                 !PumpPressure1= 0.0

  2037.                 !PumpPressure2= 0.0

  2038.                 !PumpPressure3= 0.0

  2039.             endif

  2040.             

  2041.             

  2042.             

  2043. !===========================================================================================================================

  2044. !===========================================================================================================================             

  2045. 

  2046.             if (j19 > 0 .and. MudChecked== .true.) then    !PumpsToWell_KillLine         Suction_Density_PumpsToWell is used for Mud Circulation Code 

  2047.                 !write(*,*) 'j19 is open'

  2048.                 MudChecked= .false.     !to be sure that well is not full after arranging muds

  2049. 

  2050.                 ! << if H82 or H83 or H4 are open, no flow goes to other parts of system >>

  2051.                 

  2052.                 ! pump flow rate1 be sharti be samte well miravad ke masire j2 bar gharar bashad

  2053.                 ! pump flow rate2 be sharti be samte well miravad ke masire j12 bar gharar bashad

  2054.                 ! pump flow rate3 be sharti be samte well miravad ke masire j13 bar gharar bashad

  2055.                 

  2056.                 !G:             PumpsToString Coefficient

  2057.                 !Jj2,Jj12,Jj13:    TanksToMudPump Coefficient

  2058.                 !H:             Pumps To Tank_Through65 or 67 Coefficient

  2059.                 !

  2060.                 !write(*,*) 'jj2=' , jj2

  2061.                 !write(*,*) 'jj12=' , jj12

  2062.                 !write(*,*) 'jj13=' , jj13

  2063.                 !write(*,*) 'H82=' , H82

  2064.                 !write(*,*) 'H83=' , H83

  2065.                 !write(*,*) 'H84=' , H84

  2066.                 !write(*,*) 'DumpPump1=' , DumpPump1

  2067.                 !write(*,*) 'DumpPump2=' , DumpPump2

  2068.                 !write(*,*) 'DumpCementPump=' , DumpCementPump

  2069.                 !write(*,*) 'G82=' , G82

  2070.                 !write(*,*) 'G83=' , G83

  2071.                 !write(*,*) 'G84=' , G84

  2072.                 !write(*,*) 'Mp1Density=' , Mp1Density

  2073.                 !write(*,*) 'Mp2Density=' , Mp2Density

  2074.                 !write(*,*) 'Mp3Density=' , Mp3Density

  2075.                 !

  2076.                 !

  2077. 

  2078.                 

  2079. 

  2080.                 !PumpsDumpVolume= PumpsDumpVolume+    jj2*(1-H82)*DumpPump1*PUMP(1)%Flow_Rate + jj12*(1-H83)*DumpPump2*PUMP(2)%Flow_Rate + jj13*(1-H84)*DumpCementPump*PUMP(3)%Flow_Rate

  2081.                 

  2082.             Denominator= (jj2*(1.-H82)*(1.-DumpPump1)*N82*PUMP(1)%Flow_Rate + jj12*(1.-H83)*(1.-DumpPump2)*N83*PUMP(2)%Flow_Rate + jj13*(1.-H84)*(1.-DumpCementPump)*N84*PUMP(3)%Flow_Rate)

  2083.             

  2084.             if (Denominator /= 0.) then

  2085.         Suction_Density_PumpsToWell= (jj2*(1.-H82)*(1.-DumpPump1)*N82*Mp1Density*PUMP(1)%Flow_Rate + jj12*(1.-H83)*(1.-DumpPump2)*N83*Mp2Density*PUMP(2)%Flow_Rate + jj13*(1.-H84)*(1.-DumpCementPump)*N84*Mp3Density*PUMP(3)%Flow_Rate)/ & 

  2086.                                         Denominator

  2087.             endif

  2088.                 

  2089.                     

  2090. 

  2091.             

  2092.             

  2093.             MUD(10)%Q= jj2*(1-H82)*(1-DumpPump1)*N82*PUMP(1)%Flow_Rate + jj12*(1-H83)*(1-DumpPump2)*N83*PUMP(2)%Flow_Rate + jj13*(1-H84)*(1-DumpCementPump)*N84*PUMP(3)%Flow_Rate

  2094.                 

  2095. 

  2096. 

  2097. 

  2098.      

  2099.             

  2100.             endif      

  2101.             

  2102.             if (j19 == 0) then        ! for normal circulation input 

  2103.                 MUD(10)%Q=0.0

  2104.                 !PumpPressure1= 0.0

  2105.                 !PumpPressure2= 0.0

  2106.                 !PumpPressure3= 0.0

  2107.             endif

  2108. !===========================================================================================================================

  2109. !===========================================================================================================================             

  2110.             

  2111.             

  2112.             

  2113. !AnnulusFlowRateFinal = 0.d0  ! this is a reset for calculated flow rate in UTUBES,TRIPIN,TRIPOUT codes         

  2114.             

  2115.             

  2116.             

  2117.             

  2118.             

  2119.             

  2120.             

  2121.             

  2122.             

  2123.             

  2124.             

  2125.             

  2126.             

  2127. !!====================================================================== 

  2128. !!                  Well Head Condition Determination

  2129. !!======================================================================             

  2130.             

  2131.             

  2132.         if ( WellToChokeManifoldOpen .or. WellToPitsOpen) then

  2133.             WellHeadIsOpen= .true.

  2134.         else

  2135.             WellHeadIsOpen= .false.

  2136.         endif

  2137.         

  2138.             

  2139.     

  2140.             

  2141.             

  2142.             

  2143.             

  2144. !!====================================================================== 

  2145. !!                              WARNINGS

  2146. !!======================================================================              

  2147.             

  2148.             

  2149.         IF (Manifold%Valve(65)%Status == .TRUE.) call Activate_Pump1PopOffValveBlown()  !Pump1PopOffValveBlown= .TRUE.

  2150.         IF (Manifold%Valve(66)%Status == .TRUE.) call Activate_Pump2PopOffValveBlown() ! Pump2PopOffValveBlown= .TRUE.        

  2151.         IF (Manifold%Valve(67)%Status == .TRUE.) call Activate_Pump3PopOffValveBlown()  !Pump2PopOffValveBlown= .TRUE.

  2152.         

  2153.             

  2154.         IF (ActiveTankVolume >= (MudProperties%ActiveTotalTankCapacityGal-MudProperties%ActiveSettledContentsGal)) THEN

  2155.             ActiveTankVolume = (MudProperties%ActiveTotalTankCapacityGal-MudProperties%ActiveSettledContentsGal)

  2156.             call Activate_ActiveTankOverflow()

  2157.         ELSE

  2158.             call Deactivate_ActiveTankOverflow()

  2159.         ENDIF

  2160.         

  2161.            

  2162.             

  2163. !!====================================================================== 

  2164. !!          UPDATING TANKS DENSITIES & Volumes FOR MUD CIRCULATION

  2165. !!======================================================================  

  2166.         

  2167.         !write(*,*) 'ReserveTankVolume=' , real(ReserveTankVolume)

  2168.         

  2169.             call Set_ActiveMudVolume_StudentStation(real(ActiveTankVolume/42.,8))   ! 42: gal to bbl

  2170.             call Set_ActiveDensity_StudentStation(real(ActiveTankDensity,8))

  2171.             call Set_ReserveMudVolume_StudentStation(real(ReserveTankVolume/42.,8))   ! 42: gal to bbl

  2172.             call Set_ReserveDensity_StudentStation(real(ReserveTankDensity,8))

  2173.             DrillingWatch%KillMudVolume= ReserveTankVolume/42.   ! for DrillWatch

  2174.             !PitGainLose= 

  2175. 

  2176. 

  2177. !!====================================================================== 

  2178. !!                           DRILLING DATA DISPLAY

  2179. !!======================================================================          

  2180.          

  2181.          

  2182.         IF (DataDisplayConsole%TotalStrokeCounterResetSwitch == 1) then        !for drilling data display

  2183.             TotalStrokesPump1=0.

  2184.             TotalStrokesPump2=0.

  2185.         ENDIF

  2186.  

  2187.             TotalStrokesPump1=TotalStrokesPump1+((DataDisplayConsole%MP1SPMGauge)/60.)*DeltaT_Mudline        !for drilling data display

  2188.             TotalStrokesPump2=TotalStrokesPump2+((DataDisplayConsole%MP2SPMGauge)/60.)*DeltaT_Mudline        !for drilling data display

  2189.             GraphTotalStrokes=GraphTotalStrokes+((DataDisplayConsole%MP1SPMGauge)/60.)*DeltaT_Mudline+((DataDisplayConsole%MP2SPMGauge)/60.)*DeltaT_Mudline

  2190.      

  2191.             

  2192.             total_pumps%Total_Stroke_Counter_For_Plot = total_pumps%Total_Stroke_Counter_For_Plot + ((DataDisplayConsole%MP1SPMGauge + DataDisplayConsole%MP2SPMGauge) / 60.0) * DeltaT_Mudline

  2193.         

  2194.             CALL SetTotalStrokes(INT(total_pumps%Total_Stroke_Counter_For_Plot))

  2195.             

  2196.          DataDisplayConsole%TotalStrokeCounter= real(nint(TotalStrokesPump1+TotalStrokesPump2))        !for drilling data display        

  2197.         

  2198. !===========================================================================

  2199. !                        	MUD PUMP STROKES

  2200. !                            & TOTAL STROKE- CHOKE CONTROL PANEL

  2201. !=========================================================================== 

  2202.          !write(*,*) 'a)))' , ChokePanelStrokeResetSwitch

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

  2204.               IF (ChokeControlPanel%ChokePanelPumpSelectorSwitch == 1) THEN

  2205.                   !write(*,*) '1 reset'

  2206.                   Choke%TotalStrokes1 =0.

  2207.               elseif (ChokeControlPanel%ChokePanelPumpSelectorSwitch == 2) THEN

  2208.                   !write(*,*) '2 reset'

  2209.                   Choke%TotalStrokes2 =0.

  2210.               else

  2211.                   !write(*,*) 'both reset'

  2212.                   

  2213.                   Choke%TotalStrokes1 =0.

  2214.                   Choke%TotalStrokes2 =0.

  2215.               endif

  2216.           endif

  2217.           

  2218.          !write(*,*) 'b)))' , ChokePanelStrokeResetSwitch

  2219.     

  2220.        

  2221.             Choke%TotalStrokes1= Choke%TotalStrokes1+((DataDisplayConsole%MP1SPMGauge)/60.)*DeltaT_Mudline       

  2222.             Choke%TotalStrokes2= Choke%TotalStrokes2+((DataDisplayConsole%MP2SPMGauge)/60.)*DeltaT_Mudline      

  2223.        

  2224.      

  2225.        

  2226.             IF (ChokeControlPanel%ChokePanelPumpSelectorSwitch == 1) THEN

  2227.                 ChokeControlPanel%ChokePanelSPMCounter = real(nint(DataDisplayConsole%MP1SPMGauge))

  2228.                 ChokeControlPanel%ChokePanelTotalStrokeCounter = real(nint(Choke%TotalStrokes1))

  2229.             ELSEIF (ChokeControlPanel%ChokePanelPumpSelectorSwitch == 2) THEN

  2230.                 ChokeControlPanel%ChokePanelSPMCounter = real(nint(DataDisplayConsole%MP2SPMGauge))

  2231.                 ChokeControlPanel%ChokePanelTotalStrokeCounter = real(nint(Choke%TotalStrokes2))

  2232.             ELSE

  2233.                 ChokeControlPanel%ChokePanelSPMCounter= real(nint(DataDisplayConsole%MP1SPMGauge+DataDisplayConsole%MP2SPMGauge))

  2234.                 ChokeControlPanel%ChokePanelTotalStrokeCounter = real(nint(Choke%TotalStrokes1+Choke%TotalStrokes2))

  2235.             ENDIF

  2236.             

  2237.   !  ChokePanelStrokeResetSwitch = 0     

  2238. !======================================================================        

  2239.         

  2240. !!====================================================================== 

  2241. !!               MUD VOLUME TOTALIZER DISPLAY VALUES

  2242. !!====================================================================== 

  2243.             

  2244.         

  2245.     DrillingWatch%PitVolume= ActiveTankVolume/42.d0     !(bbl) For DrillWatch Display

  2246.     

  2247.     !write(*,*) 'PitVolume,ActiveTankVolume=' ,PitVolume,ActiveTankVolume

  2248.     

  2249.     

  2250.     MudTank1_vol= ActiveTankVolume/3.   ! (gal)

  2251.     MudTank2_vol= ActiveTankVolume/3.   ! (gal)

  2252.     MudTank3_vol= ActiveTankVolume/3.   ! (gal) 

  2253.     MudTank4_vol= TripTankVolumeCalc

  2254.     

  2255. 

  2256.     

  2257.     

  2258.     

  2259.       IF (DataDisplayConsole%MVTPowerSwitch==1) THEN     

  2260.          DataDisplayConsole%MudTanksVolumeGauge= (1 - MudTanksVolumeGaugeMalf) *((MudTank1_vol*DataDisplayConsole%MudTank1Switch)+(MudTank2_vol*DataDisplayConsole%MudTank2Switch)+ &

  2261.                             (MudTank3_vol*DataDisplayConsole%MudTank3Switch)+(MudTank4_vol*DataDisplayConsole%MudTank4Switch)+ActiveTankSettled) !(gal)

  2262.      ELSEIF (DataDisplayConsole%MVTPowerSwitch==0) THEN

  2263.          DataDisplayConsole%MudTanksVolumeGauge= (1 - MudTanksVolumeGaugeMalf) *0.

  2264.      ENDIF     

  2265.             

  2266. !!====================================================================== 

  2267. !!                           MUD VOLUME TOTALIZER

  2268. !!======================================================================

  2269.      

  2270. 

  2271. 

  2272. 

  2273.     !  IF (DataDisplayConsole%MVTPowerSwitch==1 .and. IsPortable==.false.) THEN     

  2274.          

  2275. 

  2276.      

  2277.     !      IF (DataDisplayConsole%MVTSetAlarmSwitch==0) THEN

  2278.      

  2279.     !             DataDisplayConsole%PitGainLossGauge= ( ((ActiveTankVolume/42.) - RefrencePitVolume))  - PitGainLossGaugeMalf*(( ((ActiveTankVolume/42.) - RefrencePitVolume))+50)       !(bbl)          

  2280.          

  2281.     !      ELSEIF (DataDisplayConsole%MVTSetAlarmSwitch==-1) THEN

  2282.              

  2283.              

  2284.     !          MVT_MinVol_Allowded= PitGainLossZero+ MIN(0.,(DataDisplayConsole%MVTSetAlarmLowKnob-50))-0.1

  2285.     !          DataDisplayConsole%PitGainLossGauge= MVT_MinVol_Allowded  - PitGainLossGaugeMalf*(MVT_MinVol_Allowded+50)

  2286.     !          !    - PitGainLossGaugeMalf*(MVT_MinVol_Allowded+50) : Malf effect

  2287.     !          !PitGainLose=(MVT_MinVol_Allowded)    ! DrillWatch       (incorrect)

  2288.     !          !RefrencePitVolume= ActiveTankVolume/42.    !(bbl)

  2289.              

  2290.     !      ELSE   !(MVTSetAlarmSwitch==1)

  2291.              

  2292.     !          MVT_MaxVol_Allowded= PitGainLossZero+ MAX(0., (DataDisplayConsole%MVTSetAlarmHighKnob-50.))+0.1

  2293.     !          DataDisplayConsole%PitGainLossGauge= MVT_MaxVol_Allowded   - PitGainLossGaugeMalf*(MVT_MaxVol_Allowded+50)

  2294.     !          !    - PitGainLossGaugeMalf*(MVT_MaxVol_Allowded+50) : Malf effect

  2295.     !          !PitGainLose=(MVT_MaxVol_Allowded)    ! DrillWatch       (incorrect)

  2296.     !          !RefrencePitVolume= ActiveTankVolume/42.    !(bbl)

  2297.     !      ENDIF     

  2298.      

  2299.     !     !PitGainLossZero_Old= PitGainLossZero

  2300.     !     !MVTCoarseKnob_Old= MVTCoarseKnob

  2301.     !     !MVTFineKnob_Old= MVTFineKnob

  2302.     !     !FirstSet_Time= .false.

  2303.         

  2304.         

  2305.          

  2306.     !      IF ( ActiveTankVolume/42. < (RefrencePitVolume-ABS(MVT_MinVol_Allowded)) .OR. ActiveTankVolume/42. > (RefrencePitVolume+ABS(MVT_MaxVol_Allowded)) ) THEN

  2307.              

  2308.     !          DataDisplayConsole%MVTAlarmLED = 1 !(blinking)

  2309.     !          IF (DataDisplayConsole%MVTHornSwitch) THEN

  2310.     !              DataDisplayConsole%Buzzer2= .TRUE.

  2311.     !          ELSE

  2312.     !              DataDisplayConsole%Buzzer2= .FALSE.

  2313.     !          ENDIF

  2314.              

  2315.     !      ELSE

  2316.     !          DataDisplayConsole%MVTAlarmLED = 0   !(OFF)

  2317.     !          DataDisplayConsole%Buzzer2= .false.

  2318.     !      ENDIF  

  2319.          

  2320.          

  2321.          

  2322.     !  ELSEIF (DataDisplayConsole%MVTPowerSwitch==0) THEN

  2323.     !      !MudTanksVolumeGauge= 0.

  2324.     !      DataDisplayConsole%PitGainLossGauge= -50

  2325.     !      DataDisplayConsole%MVTAlarmLED= 0

  2326.     !      DataDisplayConsole%Buzzer2= .false.

  2327.         

  2328.     

  2329.     !  ENDIF

  2330.      

  2331. !!====================================================================== 

  2332. !!                           RETURN CALCULATIONS

  2333. !!======================================================================      

  2334.      

  2335. 

  2336.      

  2337.      

  2338.         DrillingWatch%PercentFlow= (ReturnFlowRate/PedalMeter) *100.  !(percent)  ! for DrillWatch display

  2339.         if (abs(DrillingWatch%PercentFlow - unityreturn) > 1.0) then

  2340.         

  2341.            write(*,*) 'PercentFlow,ReturnFlowRate,PedalMeter=' , DrillingWatch%PercentFlow,ReturnFlowRate,PedalMeter

  2342.            write(*,*) 'unityreturn=' , unityreturn

  2343.         endif

  2344.     

  2345.      

  2346.          ! ReturnFlowRate=800. set in startup as initial value

  2347.         ReturnFlowPercent= (ReturnFlowRate/PedalMeter) *100.  !(percent)  

  2348.         !write(*,*) 'ReturnFlowPercent,ReturnFlowRate=' , ReturnFlowPercent,ReturnFlowRate

  2349.          ! if ReturnFlowRate>PedalMeter, excess value(ReturnFlowRate-PedalMeter) is dumped in the code before

  2350.         

  2351.         

  2352. !!====================================================================== 

  2353. !!                           DRILL WATCH

  2354. !!======================================================================      

  2355.      

  2356.     DrillingWatch%PitGainLose= ((ActiveTankVolume/42.) - RefrencePitVolume_DrillWatch)    ! DrillWatch

  2357.     !write(*,*) 'PitGainLose galon' , PitGainLose*42.

  2358.     

  2359.     

  2360.     ! if (IsPortable) then

  2361.         

  2362.     !     MVT_MinVol_Allowded= DataDisplayConsole%PitAlarmLow

  2363.     !     MVT_MaxVol_Allowded= DataDisplayConsole%PitAlarmHigh 

  2364.  

  2365.     !      IF ( ActiveTankVolume/42. < (RefrencePitVolume-ABS(MVT_MinVol_Allowded)) .OR. ActiveTankVolume/42. > (RefrencePitVolume+ABS(MVT_MaxVol_Allowded)) ) THEN

  2366.              

  2367.     !          DataDisplayConsole%MVTAlarmLED = 1 !(blinking)

  2368.     !          IF (DataDisplayConsole%MVTHornSwitch) THEN

  2369.     !              DataDisplayConsole%Buzzer2= .TRUE.

  2370.     !          ELSE

  2371.     !              DataDisplayConsole%Buzzer2= .FALSE.

  2372.     !          ENDIF

  2373.              

  2374.     !      ELSE

  2375.     !          DataDisplayConsole%MVTAlarmLED = 0   !(OFF)

  2376.     !          DataDisplayConsole%Buzzer2= .false.

  2377.     !      ENDIF        

  2378. 

  2379.     ! endif

  2380.     

  2381. 

  2382.     if (PitGainLossReset) then

  2383.         

  2384.         DrillingWatch%PitGainLose= 0.d0 !DrillWatch

  2385.         RefrencePitVolume_DrillWatch= ActiveTankVolume/42.    !(bbl) !DrillWatch

  2386.         !*********************************************

  2387.         

  2388.         DataDisplayConsole%PitGainLossGauge= 0.    !MFF Indicator

  2389.         RefrencePitVolume= ActiveTankVolume/42.    !(bbl) !MFF Indicator

  2390. 

  2391.     endif

  2392.     

  2393.     

  2394.  

  2395.     

  2396.     

  2397.      

  2398.      

  2399. !!====================================================================== 

  2400. !!                           MUD FLOW-FILL INDICATOR

  2401. !!======================================================================        

  2402.         

  2403.      IF (DataDisplayConsole%MFFIPowerSwitch==1 ) THEN !.and. IsPortable==.false.          

  2404.          

  2405. 

  2406. !====================TotalStrokes Reset and Calculate======================         

  2407.         if (DataDisplayConsole%MFFIResetTotalStrokes == 1) then

  2408.               IF (DataDisplayConsole%MFFIPumpSelectorSwitch == 1) THEN

  2409.                   TotalStrokes1MFFI =0.

  2410.               elseif (DataDisplayConsole%MFFIPumpSelectorSwitch == 2) THEN

  2411.                   TotalStrokes2MFFI =0.

  2412.               else

  2413.                   TotalStrokes1MFFI =0.

  2414.                   TotalStrokes2MFFI =0.

  2415.               endif

  2416.         endif

  2417.             TotalStrokes1MFFI= TotalStrokes1MFFI+((DataDisplayConsole%MP1SPMGauge)/60.)*DeltaT_Mudline

  2418.             TotalStrokes2MFFI= TotalStrokes2MFFI+((DataDisplayConsole%MP2SPMGauge)/60.)*DeltaT_Mudline

  2419.             

  2420. !==================FillStrokes Reset and Calculate=========================       

  2421.         if (DataDisplayConsole%MFFIResetFillCounter == 1) then

  2422.               IF (DataDisplayConsole%MFFIPumpSelectorSwitch == 1) THEN

  2423.                   TotalFillStrokes1MFFI =0.

  2424.               elseif (DataDisplayConsole%MFFIPumpSelectorSwitch == 2) THEN

  2425.                   TotalFillStrokes2MFFI =0.

  2426.               else

  2427.                   TotalFillStrokes1MFFI =0.

  2428.                   TotalFillStrokes2MFFI =0.

  2429.               endif

  2430.         endif

  2431.          

  2432. 

  2433.             TotalFillStrokes1MFFI= TotalFillStrokes1MFFI+((DataDisplayConsole%MP1SPMGauge)/60.)*DeltaT_Mudline

  2434.             TotalFillStrokes2MFFI= TotalFillStrokes2MFFI+((DataDisplayConsole%MP2SPMGauge)/60.)*DeltaT_Mudline

  2435. !=================================================================== 

  2436.             

  2437.             

  2438.             if (DataDisplayConsole%MFFIPumpSelectorSwitch == 1) then

  2439.                 DataDisplayConsole%MFFITotalStrokeCounter = real(nint(TotalStrokes1MFFI))      !TotalStroke LED

  2440.             elseif (DataDisplayConsole%MFFIPumpSelectorSwitch == 2) then

  2441.                 DataDisplayConsole%MFFITotalStrokeCounter = real(nint(TotalStrokes2MFFI))      !TotalStroke LED

  2442.             elseif (DataDisplayConsole%MFFIPumpSelectorSwitch == 3) then

  2443.                 DataDisplayConsole%MFFITotalStrokeCounter = real(nint(TotalStrokes1MFFI+TotalStrokes2MFFI))      !TotalStroke LED

  2444.             endif            

  2445.             

  2446.             

  2447.     IF (DataDisplayConsole%MFFIFillSPMSelectorSwitch== .false.) THEN    !(spm mode) 

  2448.             if (DataDisplayConsole%MFFIPumpSelectorSwitch == 1) then

  2449.                 DataDisplayConsole%FillStrokeCounter = real(nint(DataDisplayConsole%MP1SPMGauge))     !Fill or SPM LED

  2450.             elseif (DataDisplayConsole%MFFIPumpSelectorSwitch == 2) then

  2451.                 DataDisplayConsole%FillStrokeCounter = real(nint(DataDisplayConsole%MP2SPMGauge))     !Fill or SPM LED

  2452.             elseif (DataDisplayConsole%MFFIPumpSelectorSwitch == 3) then

  2453.                 DataDisplayConsole%FillStrokeCounter= real(nint(DataDisplayConsole%MP1SPMGauge+DataDisplayConsole%MP2SPMGauge))     !Fill or SPM LED

  2454.             endif  

  2455.             

  2456.     ELSE   ! (MFFIFillSPMSelectorSwitch== .true.) then    !(fill mode)

  2457.         if (ReturnFlowRate== 0) then

  2458.             if (DataDisplayConsole%MFFIPumpSelectorSwitch == 1) then

  2459.                 DataDisplayConsole%FillStrokeCounter = real(nint(TotalFillStrokes1MFFI))     !Fill or SPM LED

  2460.             elseif (DataDisplayConsole%MFFIPumpSelectorSwitch == 2) then

  2461.                 DataDisplayConsole%FillStrokeCounter = real(nint(TotalFillStrokes2MFFI))     !Fill or SPM LED

  2462.             elseif (DataDisplayConsole%MFFIPumpSelectorSwitch == 3) then

  2463.                 DataDisplayConsole%FillStrokeCounter= real(nint(TotalFillStrokes1MFFI+TotalFillStrokes2MFFI))     !Fill or SPM LED

  2464.             endif 

  2465.         

  2466. 

  2467.                 TotalFilledStrokesBy1MFFI = real(nint(TotalFillStrokes1MFFI))! for values=fix on LED after the well filled

  2468.                 TotalFilledStrokesBy2MFFI = real(nint(TotalFillStrokes2MFFI))! for values=fix on LED after the well filled

  2469.                 TotalFilledStrokesBy1and2MFFI= real(nint(TotalFillStrokes1MFFI+TotalFillStrokes2MFFI))! for values=fix on LED after the well filled

  2470. 

  2471.             

  2472.             

  2473.         else !(ReturnFlowRate>0)

  2474.         

  2475.         ! these values=fix on LED after the well filled

  2476.             if (DataDisplayConsole%MFFIPumpSelectorSwitch == 1) then

  2477.                 DataDisplayConsole%FillStrokeCounter = TotalFilledStrokesBy1MFFI     !Fill or SPM LED

  2478.             elseif (DataDisplayConsole%MFFIPumpSelectorSwitch == 2) then

  2479.                 DataDisplayConsole%FillStrokeCounter = TotalFilledStrokesBy2MFFI     !Fill or SPM LED

  2480.             elseif (DataDisplayConsole%MFFIPumpSelectorSwitch == 3) then

  2481.                 DataDisplayConsole%FillStrokeCounter= TotalFilledStrokesBy1and2MFFI     !Fill or SPM LED

  2482.             endif 

  2483.         endif

  2484.     

  2485.         

  2486.     ENDIF

  2487.     

  2488. 

  2489.          

  2490.  !===================================================================================    

  2491. 

  2492.         

  2493. 

  2494.         

  2495.          if (ReturnFlowRate>0) then

  2496.              DataDisplayConsole%MFFIPumpLED=1      !(Returns Lamp)

  2497.          else

  2498.              DataDisplayConsole%MFFIPumpLED=0      !(Returns Lamp)

  2499.          endif

  2500.          

  2501. 

  2502.          

  2503.          IF (DataDisplayConsole%MFFISetAlarmSwitch==0) THEN

  2504.              

  2505.             DataDisplayConsole%ReturnMudFlowGauge= (1 - ReturnMudFlowGaugeMalf)*ReturnFlowPercent !(percent)    

  2506.          

  2507.          ELSEIF (DataDisplayConsole%MFFISetAlarmSwitch==-1) THEN

  2508.              MFFI_MinPercent_Allowded=DataDisplayConsole%MFFISetAlarmLowKnob

  2509.              DataDisplayConsole%ReturnMudFlowGauge= (1 - ReturnMudFlowGaugeMalf)*MFFI_MinPercent_Allowded

  2510.              

  2511.          ELSE   !(MFFISetAlarmSwitch==1)

  2512.              

  2513.              MFFI_MaxPercent_Allowded=DataDisplayConsole%MFFISetAlarmHighKnob

  2514.              DataDisplayConsole%ReturnMudFlowGauge= (1 - ReturnMudFlowGaugeMalf)*MFFI_MaxPercent_Allowded

  2515.          ENDIF         

  2516.          

  2517. 

  2518.          IF (ReturnFlowPercent<MFFI_MinPercent_Allowded .OR. ReturnFlowPercent>MFFI_MaxPercent_Allowded) THEN

  2519.              !write(*,*) 'alarm return:' , ReturnFlowRate

  2520.              DataDisplayConsole%MFFIAlarmLED = 2 !(blinking)

  2521.              IF (DataDisplayConsole%MFFIHornSwitch) THEN

  2522.              DataDisplayConsole%Buzzer3= .true.

  2523.              ELSE

  2524.                  DataDisplayConsole%Buzzer3= .FALSE.

  2525.              ENDIF

  2526.          ELSE

  2527.              DataDisplayConsole%MFFIAlarmLED = 0   !(OFF)

  2528.              DataDisplayConsole%Buzzer3= .false.

  2529.          ENDIF   

  2530.  !===================================================================================    

  2531.          

  2532.          

  2533.      ELSEIF (DataDisplayConsole%MFFIPowerSwitch==0) THEN

  2534.          DataDisplayConsole%ReturnMudFlowGauge= 0.

  2535.          DataDisplayConsole%FillStrokeCounter= 0

  2536.          DataDisplayConsole%MFFITotalStrokeCounter= 0

  2537.          DataDisplayConsole%MFFIAlarmLED= 0

  2538.          DataDisplayConsole%Buzzer3= .false.

  2539.      ENDIF

  2540.      

  2541.      

  2542.     ! if (  IsPortable ) then  

  2543. 

  2544.     !          MFFI_MinPercent_Allowded=DataDisplayConsole%RetFlowAlarmLow

  2545.     !          MFFI_MaxPercent_Allowded=DataDisplayConsole%RetFlowAlarmHigh

  2546.              

  2547.              

  2548.     !      IF (ReturnFlowPercent<MFFI_MinPercent_Allowded .OR. ReturnFlowPercent>MFFI_MaxPercent_Allowded) THEN

  2549.              

  2550.     !          DataDisplayConsole%MFFIAlarmLED = 1 !(blinking)

  2551.     !          IF (DataDisplayConsole%MFFIHornSwitch) THEN

  2552.     !          DataDisplayConsole%Buzzer3= .true.

  2553.     !          ELSE

  2554.     !              DataDisplayConsole%Buzzer3= .FALSE.

  2555.     !          ENDIF

  2556.     !      ELSE

  2557.     !          DataDisplayConsole%MFFIAlarmLED = 0   !(OFF)

  2558.     !          DataDisplayConsole%Buzzer3= .false.

  2559.     !      ENDIF               

  2560.              

  2561.     ! endif

  2562.     

  2563. 

  2564. !!====================================================================== 

  2565. !!              TRIP TANK PANEL DISPLAY VALUES

  2566. !!======================================================================    

  2567.      

  2568.             Tank%TripTankVolume = TripTankVolumeCalc/42.      !(Drill Watch display)

  2569.             Tank%TripTankDensity= TripTankDensityCalc      !(display) 

  2570. 

  2571.             

  2572.      IF (DataDisplayConsole%TripTankPowerSwitch==1  ) THEN !.and. IsPortable==.false.

  2573.      

  2574.          IF (DataDisplayConsole%TripTankSetAlarmSwitch==0) THEN

  2575.              

  2576.             DataDisplayConsole%TripTankGauge= (1 - TripTankPressure_DataDisplayMalf) * TripTankVolumeCalc      ! (gal)

  2577.          ELSEIF (DataDisplayConsole%TripTankSetAlarmSwitch==-1) THEN

  2578.              

  2579.              TripTank_MinVol_Allowded= DataDisplayConsole%TripTankSetAlarmLow/2.    ! 2: because knob input is 0-100 but gauge is 0-50

  2580.              DataDisplayConsole%TripTankGauge= (1 - TripTankPressure_DataDisplayMalf) * TripTank_MinVol_Allowded

  2581.              

  2582.          ELSE  !(TripTankSetAlarmSwitch==1) 

  2583.              TripTank_MaxVol_Allowded= DataDisplayConsole%TripTankSetAlarmHigh/2.    ! 2: because knob input is 0-100 but gauge is 0-50

  2584.              DataDisplayConsole%TripTankGauge= (1 - TripTankPressure_DataDisplayMalf) * TripTank_MaxVol_Allowded

  2585.          ENDIF     

  2586.          

  2587.          

  2588.          

  2589.           IF ((TripTankVolumeCalc < TripTank_MinVol_Allowded) .OR. (TripTankVolumeCalc > TripTank_MaxVol_Allowded)) THEN

  2590.              DataDisplayConsole%TripTankAlarmLED =  2 !(blinking)

  2591.              IF (DataDisplayConsole%TripTankHornSwitch) THEN

  2592.                  DataDisplayConsole%Buzzer1= .true.

  2593.              ELSE

  2594.                  DataDisplayConsole%Buzzer1= .false.     

  2595.             ENDIF

  2596.          ELSE

  2597.              DataDisplayConsole%TripTankAlarmLED =  0   !(OFF)

  2598.              DataDisplayConsole%Buzzer1= .false.

  2599.          ENDIF

  2600.          

  2601.         DataDisplayConsole%TripTankPumpLED=  DataDisplayConsole%TripTankPumpSwitch

  2602.          

  2603.             

  2604.      ELSEIF (DataDisplayConsole%TripTankPowerSwitch==0) THEN

  2605.          DataDisplayConsole%TripTankGauge= 0.  !(gal)

  2606.          DataDisplayConsole%TripTankAlarmLED= 0

  2607.          DataDisplayConsole%TripTankPumpLED= 0

  2608.          DataDisplayConsole%Buzzer1= .false. 

  2609.      ENDIF 

  2610.      

  2611.      

  2612.     ! if (  IsPortable ) then       

  2613.              

  2614.     !          TripTank_MinVol_Allowded= DataDisplayConsole%TripAlarmLow

  2615.     !          TripTank_MaxVol_Allowded= DataDisplayConsole%TripAlarmHigh

  2616.   

  2617. 

  2618.     !       IF ((TripTankVolumeCalc < TripTank_MinVol_Allowded) .OR. (TripTankVolumeCalc > TripTank_MaxVol_Allowded)) THEN

  2619.     !          DataDisplayConsole%TripTankAlarmLED =  1 !(blinking)

  2620.     !          IF (DataDisplayConsole%TripTankHornSwitch) THEN

  2621.     !              DataDisplayConsole%Buzzer1= .true.

  2622.     !          ELSE

  2623.     !              DataDisplayConsole%Buzzer1= .false.     

  2624.     !         ENDIF

  2625.     !      ELSE

  2626.     !          DataDisplayConsole%TripTankAlarmLED =  0   !(OFF)

  2627.     !          DataDisplayConsole%Buzzer1= .false.

  2628.     !      ENDIF 

  2629.          

  2630.     ! endif

  2631.     

  2632.                 

  2633. 

  2634.                 

  2635.         !write(*,*) '=====================================================================' 

  2636.   

  2637. 

  2638.         

  2639.         ! if (IsStopped) return

  2640.         

  2641.     end subroutine main

  2642.     

  2643. 

  2644.     

  2645.     

  2646.  !===================================================================================================================   

  2647.  !===================================================================================================================   

  2648.  !===================================================================================================================   

  2649.     

  2650.     subroutine ActiveMudVolumeChanged(v)

  2651.         !use CLog4

  2652.         implicit none

  2653.         real(8), intent (in) :: v

  2654.         !call Log_4('ActiveMudVolumeChanged=', v)

  2655.         ActiveTankVolume=  MudProperties%ActiveMudVolumeGal       ! update from student input 

  2656.     end subroutine

  2657.     

  2658.     subroutine ActiveDensityChanged(v)

  2659.         !use CLog4

  2660.         implicit none

  2661.         real(8), intent (in) :: v

  2662.         !call Log_4('ActiveDensityChanged=', v)

  2663.         ActiveTankDensity=  MudProperties%ActiveDensity       ! update from student input

  2664.     end subroutine

  2665.     

  2666.     subroutine ReserveMudVolumeChanged(v)

  2667.         !use CLog4

  2668.         implicit none

  2669.         real(8), intent (in) :: v

  2670.         !call Log_4('ReserveMudVolumeChanged=', v)

  2671.         ReserveTankVolume= MudProperties%ReserveMudVolumeGal       ! update from student input

  2672.     end subroutine

  2673.     

  2674.     subroutine ReserveDensityChanged(v)

  2675.         !use CLog4

  2676.         implicit none

  2677.         real(8), intent (in) :: v

  2678.         !call Log_4('ReserveDensityChanged=', v)

  2679.         ReserveTankDensity= MudProperties%ReserveDensity       ! update from student input 

  2680.     end subroutine

  2681.     

  2682.     subroutine SetupMudSystem()

  2683.         use CPathChangeEvents

  2684.         use CMudPropertiesVariables

  2685.         implicit none

  2686.         

  2687.         call BeforeTraverse%Add(InitialVarsBeforePathsChanges)

  2688.         call AfterTraverse%Add(AfterPathsChanges)

  2689.         call OnPathOpen%Add(WhenPathOpen)

  2690.         

  2691.         

  2692.         call OnActiveMudVolumeChange%Add(ActiveMudVolumeChanged)

  2693.         call OnActiveDensityChange%Add(ActiveDensityChanged)

  2694.         call OnReserveMudVolumeChange%Add(ReserveMudVolumeChanged)

  2695.         call OnReserveDensityChange%Add(ReserveDensityChanged)

  2696.         

  2697.     end subroutine

  2698.  

  2699.     subroutine AfterPathsChanges()

  2700.         implicit none

  2701.         integer i

  2702.         

  2703.         if(Pump1_Lasts%Length() <= 0) return

  2704.         do i = 1, Pump1_Lasts%Length()

  2705.             if(Pump2_Lasts%Length() <= 0) cycle

  2706.             if(any(Pump2_Lasts%Array == Pump1_Lasts%Array(i)))  then 

  2707.                 State2 = .true.     ! Pumps 1 & 2 have same destination

  2708.                 !print*, 'State2 = .true.'

  2709.             endif

  2710.             if(Pump3_Lasts%Length() <= 0) cycle

  2711.             if(any(Pump3_Lasts%Array == Pump1_Lasts%Array(i))) then

  2712.                 State3 = .true.     ! Pumps 1 & 3 have same destination

  2713.                 !print*, 'State3 = .true.'

  2714.             endif

  2715.         enddo

  2716.         

  2717.         if(Pump2_Lasts%Length() <= 0) return

  2718.         do i = 1, Pump2_Lasts%Length()

  2719.             if(Pump3_Lasts%Length() <= 0) cycle

  2720.             if(any(Pump3_Lasts%Array == Pump2_Lasts%Array(i))) then 

  2721.                 State4 = .true.     ! Pumps 2 & 3 have same destination

  2722.                 !print*, 'State4 = .true.'

  2723.             endif

  2724.         enddo

  2725.         

  2726.         State1 = State2 .and. State3     ! Pumps 1 & 2 & 3 have same destination

  2727.         !if(State1) print*, 'State1 = .true.'

  2728.         

  2729.     end subroutine

  2730.  

  2731.     subroutine InitialVarsBeforePathsChanges()

  2732.         implicit none

  2733.        

  2734.         condition1 = .false.

  2735.         condition2 = .false.

  2736.         condition3 = .false.

  2737.         condition4 = .false.

  2738.         condition5 = .false.

  2739.         condition6 = .false.

  2740.         condition7 = .false.

  2741.         condition8 = .false.

  2742.         condition9 = .false.

  2743.         condition10 = .false.

  2744.         condition11 = .false.

  2745.         condition12 = .false.

  2746.         condition13 = .false.

  2747.         condition14 = .false.

  2748.         condition15 = .false.

  2749.         condition16 = .false.

  2750.         condition17 = .false.

  2751.         condition18 = .false.

  2752.         condition19 = .false.

  2753.         condition20 = .false.

  2754.         condition21 = .false.

  2755.         condition22 = .false.

  2756.         condition23 = .false.

  2757.         condition24 = .false.

  2758.         condition25 = .false.

  2759.         condition26 = .false.

  2760.         condition27 = .false.

  2761.         condition28 = .false.

  2762.         condition29 = .false.

  2763.         condition30 = .false.

  2764.         condition31 = .false.

  2765.         condition32 = .true.

  2766.         condition33 = .true.

  2767.         condition34 = .true.

  2768.         condition35 = .false.

  2769.         condition36 = .false.

  2770.         condition37 = .false.

  2771.         condition38 = .false.

  2772.         condition39 = .false.

  2773.         condition40 = .false.

  2774.         condition41 = .false.

  2775.         condition42 = .false.

  2776.         condition43 = .false.

  2777.         condition44 = .false.

  2778.         condition45 = .false.

  2779.         condition46 = .false.

  2780.         condition47 = .false.

  2781.         condition48 = .false.

  2782.         condition49 = .false.

  2783.         condition50 = .false.

  2784.         condition51 = .false.

  2785.         condition52 = .false.

  2786.         condition53 = .false.

  2787.         condition54 = .false.

  2788.         condition55 = .false.

  2789.         condition56 = .false.

  2790.         condition57 = .false.

  2791.         condition58 = .false.

  2792.         condition59= .false.

  2793.         condition60= .false.

  2794.         condition61= .false.

  2795.         

  2796.         

  2797.         

  2798. 

  2799.         

  2800. 

  2801.         

  2802.         !ThereIsPathFrom82 = .false.

  2803.         !!print*, "ThereIsPathFrom82=",ThereIsPathFrom82

  2804.         !ThereIsPathFrom83 = .false.

  2805.         !!print*, "ThereIsPathFrom82=",ThereIsPathFrom82

  2806.         !ThereIsPathFrom84 = .false.

  2807.         !!print*, "ThereIsPathFrom82=",ThereIsPathFrom82

  2808.         

  2809.         ThereIsPathFrom_71_72_73_To_82 = .false.

  2810.         !print*, "ThereIsPathFrom_71_72_73_To_82=",ThereIsPathFrom_71_72_73_To_82

  2811.         ThereIsPathFrom_71_72_73_To_83 = .false.

  2812.         !print*, "ThereIsPathFrom_71_72_73_To_83=",ThereIsPathFrom_71_72_73_To_83

  2813.         ThereIsPathFrom_71_72_73_To_84 = .false.

  2814.         !print*, "ThereIsPathFrom_71_72_73_To_84=",ThereIsPathFrom_71_72_73_To_84

  2815.                 

  2816.         DumpFromKelly_Pump1 = .false.

  2817.         DumpFromFillupHead_Pump1 = .false.

  2818.         DumpFromTopDrive_Pump1 = .false.

  2819.         

  2820.         

  2821.         DumpFromKelly_Pump2 = .false.

  2822.         DumpFromFillupHead_Pump2 = .false.

  2823.         DumpFromTopDrive_Pump2 = .false.

  2824.         

  2825.         

  2826.         DumpFromKelly_Pump3 = .false.

  2827.         DumpFromFillupHead_Pump3 = .false.

  2828.         DumpFromTopDrive_Pump3 = .false.

  2829.         

  2830.         

  2831.         

  2832.         State1 = .false.

  2833.         State2 = .false.

  2834.         State3 = .false.

  2835.         State4 = .false.

  2836.         

  2837.         call Pump1_Lasts%Empty()

  2838.         call Pump2_Lasts%Empty()

  2839.         call Pump3_Lasts%Empty()

  2840.         

  2841.         

  2842.         

  2843.         

  2844.         

  2845.         ac32 = .false.

  2846.         ac33 = .false.

  2847.         ac34 = .false.

  2848.         ac35 = .false.

  2849.         ac29 = .false.

  2850.         

  2851.     end subroutine

  2852.     

  2853.     subroutine WhenPathOpen(valves)

  2854.         use Pumps_VARIABLES

  2855.         implicit none

  2856.         integer, allocatable, intent (in) :: valves(:)

  2857.         integer :: first, last

  2858.         if (.not.allocated(valves)) return

  2859.         if(size(valves) <= 0) return 

  2860.         

  2861.         if ( any(valves == 32)) ac32 = .true.

  2862.         if ( any(valves == 33)) ac33 = .true.

  2863.         if ( any(valves == 34)) ac34 = .true.

  2864.         if ( any(valves == 35)) ac35 = .true.

  2865.         if ( any(valves == 29)) ac29 = .true.

  2866.         

  2867.         

  2868.         first = 1

  2869.         last = size(valves)

  2870.         

  2871.         MP1_Q = PUMP(1)%Flow_Rate

  2872.         MP2_Q = PUMP(2)%Flow_Rate

  2873.         MP3_Q = PUMP(3)%Flow_Rate

  2874.         

  2875.         

  2876.         

  2877.         if(valves(first) == 82) call Pump1_Lasts%Add(valves(last))

  2878.         if(valves(first) == 83) call Pump2_Lasts%Add(valves(last))

  2879.         if(valves(first) == 84) call Pump3_Lasts%Add(valves(last))

  2880.         

  2881.         !print*, '=============================================='

  2882.         !do i = 1, Pump1_Lasts%Length()

  2883.         !    print*, 'mp1=', Pump1_Lasts%Array(i)

  2884.         !enddo

  2885.         !

  2886.         !print*, '-------------------------------'

  2887.         !

  2888.         !do i = 1, Pump2_Lasts%Length()

  2889.         !    print*, 'mp2=', Pump2_Lasts%Array(i)

  2890.         !enddo

  2891.         !

  2892.         !print*, '-------------------------------'

  2893.         !

  2894.         !

  2895.         !do i = 1, Pump3_Lasts%Length()

  2896.         !    print*, 'mp3=', Pump3_Lasts%Array(i)

  2897.         !enddo

  2898.         !

  2899.         !print*, '=============================================='

  2900.         

  2901.         

  2902.         !if(valves(first)==82 .and. (valves(last)==79 .or. valves(last)==78 .or. valves(last)==77 .or. valves(last)==71)) then

  2903.         !    ThereIsPathFrom82 = .true.

  2904.         !    !print*, "ThereIsPathFrom82=",ThereIsPathFrom82

  2905.         !endif

  2906.         !

  2907.         !if(valves(first)==83 .and. (valves(last)==79 .or. valves(last)==78 .or. valves(last)==77 .or. valves(last)==71)) then

  2908.         !    ThereIsPathFrom83 = .true.

  2909.         !    !print*, "ThereIsPathFrom83=",ThereIsPathFrom83

  2910.         !endif

  2911.         !

  2912.         !if(valves(first)==84 .and. (valves(last)==79 .or. valves(last)==78 .or. valves(last)==77 .or. valves(last)==71)) then

  2913.         !    ThereIsPathFrom84 = .true.

  2914.         !    !print*, "ThereIsPathFrom84=",ThereIsPathFrom84

  2915.         !endif

  2916.         

  2917.         if(valves(last)==82 .and. (valves(first)==71 .or. valves(first)==72 .or. valves(first)==73)) then

  2918.             ThereIsPathFrom_71_72_73_To_82 = .true.

  2919.             !print*, "ThereIsPathFrom_71_72_73_To_82=",ThereIsPathFrom_71_72_73_To_82

  2920.         endif

  2921.         

  2922.         if(valves(last)==83 .and. (valves(first)==71 .or. valves(first)==72 .or. valves(first)==73)) then

  2923.             ThereIsPathFrom_71_72_73_To_83 = .true.

  2924.             !print*, "ThereIsPathFrom_71_72_73_To_83=",ThereIsPathFrom_71_72_73_To_83

  2925.         endif

  2926.         

  2927.         if(valves(last)==84 .and. (valves(first)==71 .or. valves(first)==72 .or. valves(first)==73)) then

  2928.             ThereIsPathFrom_71_72_73_To_84 = .true.

  2929.             !print*, "ThereIsPathFrom_71_72_73_To_84=",ThereIsPathFrom_71_72_73_To_84

  2930.         endif

  2931.                 

  2932.         !if (.not.allocated(OpenPaths)) exit

  2933.                 !===============TanksToMudPump1===================

  2934.                 if(valves(last)==82)    then

  2935.                     if(valves(first)==71) then

  2936.                         !j2=j2+1

  2937.                         !A71=1

  2938.                         condition1 = .true.

  2939.                     endif

  2940.                     

  2941.                     if(valves(first)==72) then

  2942.                         !j2=j2+1

  2943.                         !A72=1

  2944.                         condition2 = .true.

  2945.                     endif

  2946.                     

  2947.                     if(valves(first)==73) then

  2948.                         !j2=j2+1

  2949.                         !A73=1

  2950.                         condition3 = .true.

  2951.                     endif

  2952.                     

  2953.                 endif

  2954.                 !================================================

  2955.                  

  2956.                 

  2957.                 !============BellNippleToPits-FullWell(MLnumber=3)==============

  2958. 

  2959.                 if ( Manifold%Valve(41)%Status == .false. .and. Manifold%Valve(42)%Status == .false. )   then

  2960.                     call ChangeValve(60, .TRUE.)

  2961.                 else

  2962.                     call ChangeValve(60, .FALSE.)

  2963.                 endif

  2964.                 

  2965.                 if(valves(first)==80 .and. valves(last)==71 .and. any(valves == 42)) condition4 = .true.

  2966.                 if(valves(first)==80 .and. valves(last)==77 .and. any(valves == 41)) condition5 = .true.

  2967.                 if(valves(first)==80 .and. valves(last)==78) condition6 = .true.

  2968. 

  2969.                 !================================================

  2970.             

  2971.                 

  2972.                 !============WellToChokeManifold(Through 26)==============          

  2973.                 if(valves(first)==79 .and. any(valves == 26)) then

  2974.                     if(valves(last)==71) then

  2975.                         !j4=j4+1

  2976.                         !C71=1.

  2977.                         condition7 = .true.

  2978.                     endif

  2979.                     

  2980.                     if(valves(last)==77) then

  2981.                         !j4=j4+1

  2982.                         !C77=1.

  2983.                         condition8 = .true.

  2984.                     endif

  2985.                     

  2986.                     if(valves(last)==78) then

  2987.                         !j4=j4+1

  2988.                         !C78=1.

  2989.                         condition45 = .true.

  2990.                     endif                                       

  2991.                     

  2992.                 endif 

  2993. 

  2994.                 !================================================            

  2995. 

  2996.                 

  2997.                 !============ActiveTankToTripTank==============          

  2998.                 if(valves(first)==71 .and. valves(last)==77) then

  2999.                         !j5=j5+1

  3000.                         condition9 = .true.

  3001.                 endif

  3002.                 !================================================            

  3003.                 

  3004.                     

  3005.                     

  3006.                 !============TripTankToActiveTank And BellNipple==============          

  3007.                 if(valves(first)==77) then

  3008.                     if(valves(last)==71) then

  3009.                         !j6=j6+1

  3010.                         !D71=1

  3011.                         condition10 = .true.

  3012.                     endif

  3013.                     

  3014.                     if(valves(last)==80) then

  3015.                         !j6=j6+1

  3016.                         !D80=1

  3017.                         condition11 = .true.

  3018.                     endif

  3019.                     

  3020.                 endif

  3021.                 !================================================                    

  3022.         

  3023.                     

  3024.                 !============ActiveTankToDump==============          

  3025.                 if(valves(first)==71 .and. valves(last)==78) then

  3026.                     !j7=j7+1

  3027.                     condition12 = .true.                 

  3028.                 endif

  3029.                 !================================================                      

  3030.                     

  3031.                 

  3032.                 !============TripTankToDump==============          

  3033.                 if(valves(first)==77 .and. valves(last)==78) then

  3034.                     !j8=j8+1

  3035.                     condition13 = .true.                 

  3036.                 endif

  3037.                 !================================================ 

  3038.                 

  3039.                 

  3040.                 !============WellToBellNipple==============          

  3041.                 if(valves(first)==79 .and. valves(last)==80) then

  3042.                     !j9=j9+1

  3043.                     condition14 = .true.                 

  3044.                 endif

  3045.                 !================================================                  

  3046.                 

  3047.                 !============MudBucketToBellNipple==============          

  3048.                 if(valves(first)==81 .and. valves(last)==80) then

  3049.                     !j10=j10+1

  3050.                     condition15 = .true.                 

  3051.                 endif

  3052.                 !================================================  

  3053.                 

  3054.               

  3055.                 !============BellNippleToWell-NonFullWell==============

  3056.                 if(valves(first)==80 .and. valves(last)==79) then    ! Well is NOT Full

  3057.                     !j11=j11+1

  3058.                     condition16 = .true.

  3059.                 endif                

  3060.                 !================================================                

  3061.                 

  3062.                 !===============TanksToMudPump2===================

  3063.                 if(valves(last)==83)    then

  3064.                     if(valves(first)==71) then

  3065.                         !j12=j12+1

  3066.                         !E71=1

  3067.                         condition17 = .true.

  3068.                     endif

  3069.                     

  3070.                     if(valves(first)==72) then

  3071.                         !j12=j12+1

  3072.                         !E72=1

  3073.                         condition18 = .true.

  3074.                     endif

  3075.                     

  3076.                     if(valves(first)==73) then

  3077.                         !j12=j12+1

  3078.                         !E73=1

  3079.                         condition19 = .true.

  3080.                     endif

  3081.                     

  3082.                 endif

  3083.                 !================================================                 

  3084.       

  3085.                 

  3086.                 !===============TanksToCementPump===================

  3087.                 if(valves(last)==84)    then

  3088.                     if(valves(first)==71) then

  3089.                         !j13=j13+1

  3090.                         !F71=1

  3091.                         condition20 = .true.

  3092.                     endif

  3093.                     

  3094.                     if(valves(first)==72) then

  3095.                         !j13=j13+1

  3096.                         !F72=1

  3097.                         condition21 = .true.

  3098.                     endif

  3099.                     

  3100.                     if(valves(first)==73) then

  3101.                         !j13=j13+1

  3102.                         !F73=1

  3103.                         condition22 = .true.

  3104.                     endif

  3105.                     

  3106.                 endif

  3107.                 !================================================                   

  3108.                 

  3109.                 !===============PumpsToString===================

  3110.                 if(valves(last)==79)    then

  3111.                     if(valves(first)==82) then

  3112.                         !j14=j14+1

  3113.                         !G82=1

  3114.                         condition23 = .true.

  3115.                     endif

  3116.                     

  3117.                     if(valves(first)==83) then

  3118.                         !j14=j14+1

  3119.                         !G83=1

  3120.                         condition24 = .true.

  3121.                     endif

  3122.                     

  3123.                     if(valves(first)==84) then

  3124.                         !j14=j14+1

  3125.                         !G84=1

  3126.                         condition25 = .true.

  3127.                     endif

  3128.                     

  3129.                 endif

  3130.                 !================================================ 

  3131.                 

  3132.                 

  3133.      

  3134.                 

  3135.                 

  3136.                 !============MudPump1HasPath===================          

  3137.                 if(ThereIsPathFrom_71_72_73_To_82 .and. (valves(first)==82 .and. (valves(last)==79 .or. valves(last)==78 .or. valves(last)==77 .or. valves(last)==71))) then

  3138.                     !Mp1_NoPath= 0

  3139.                     condition32 = .false. 

  3140.                 endif

  3141.                 condition32Final = condition32 

  3142.                 !================================================                

  3143. 

  3144.                 

  3145.                 !============MudPump2HasPath===================          

  3146.                 if(ThereIsPathFrom_71_72_73_To_83 .and. (valves(first)==83 .and. (valves(last)==79 .or. valves(last)==78 .or. valves(last)==77 .or. valves(last)==71))) then

  3147.                     !write(*,*) 'condition33 ******'

  3148.                     !Mp2_NoPath= 0

  3149.                     condition33 = .false.                

  3150.                 endif

  3151.                 condition33Final= condition33

  3152.                 !================================================   

  3153.                              

  3154.                 

  3155.                 !============CementPumpHasNoPath===================          

  3156.                 if(ThereIsPathFrom_71_72_73_To_84 .and. (valves(first)==84 .and. (valves(last)==79 .or. valves(last)==78 .or. valves(last)==77 .or. valves(last)==71))) then

  3157.                     !Cp_NoPath= 1

  3158.                     condition34 = .false.                 

  3159.                 endif

  3160.                 condition34Final = condition34                 

  3161.                 !================================================                

  3162.  

  3163.                 

  3164.                 

  3165.                 

  3166.                 !===============PumpsToDump===================

  3167.                 !DumpFromKelly = 0.0

  3168.                 !DumpFromFillupHead= 0.0

  3169.                 

  3170.                 if(valves(last)==78)    then

  3171.                     if(valves(first)==82) then

  3172.                         !DumpPump1=1

  3173.                         condition26 = .true.

  3174.                         IF(any(valves == 56)) DumpFromKelly_Pump1 = .true.

  3175.                         IF(any(valves == 14)) DumpFromFillupHead_Pump1 = .true.

  3176.                         IF(any(valves == 70)) DumpFromTopDrive_Pump1 = .true.

  3177.                         

  3178. 

  3179.                     endif

  3180.                     

  3181.                     

  3182.                     if(valves(first)==83) then

  3183.                         !DumpPump2=1

  3184.                         print*, "THERE IS DUMP"

  3185.                         condition27 = .true.

  3186.                         IF(any(valves == 56)) DumpFromKelly_Pump2 = .true.

  3187.                         IF(any(valves == 14)) DumpFromFillupHead_Pump2 = .true.

  3188.                         IF(any(valves == 70)) DumpFromTopDrive_Pump2 = .true.

  3189. 

  3190.                     endif

  3191.                     

  3192.                     

  3193.                     if(valves(first)==84) then

  3194.                         !DumpCementPump=1

  3195.                         condition28 = .true.

  3196.                         IF(any(valves == 56)) DumpFromKelly_Pump3 = .true.

  3197.                         IF(any(valves == 14)) DumpFromFillupHead_Pump3 = .true.

  3198.                         IF(any(valves == 70)) DumpFromTopDrive_Pump3 = .true.

  3199.  

  3200.                     endif

  3201.                     

  3202.                     ! DumpFromKelly

  3203.                     !if (DumpFromKelly_Pump1 .or. DumpFromKelly_Pump2 .or. DumpFromKelly_Pump3) then

  3204.                     !    DumpFromKelly = 1.0

  3205.                     !else

  3206.                     !    DumpFromKelly = 0.0

  3207.                     !endif

  3208.                     

  3209.                     

  3210.                     ! DumpFromFillupHead

  3211.                     if (DumpFromFillupHead_Pump1 .or. DumpFromFillupHead_Pump2 .or. DumpFromFillupHead_Pump3) then

  3212.                         DumpFromFillupHead = 1.0

  3213.                     else

  3214.                         DumpFromFillupHead = 0.0

  3215.                     endif

  3216.                     

  3217.                 endif

  3218.                 

  3219.                 

  3220.                 

  3221.                 !================================================                 

  3222.                 

  3223.                 

  3224.                 !=======MudPumps1&2ToActiveTank_Through65&66==========

  3225.                 

  3226.                 ! << if H82 or H83 or H4 are open, no flow goes to other parts of system >>                

  3227.  

  3228.                 

  3229.                 if(valves(last)==71)    then

  3230.                     if(valves(first)==82 .and. any(valves == 65)) then

  3231.                         !j15=j15+1

  3232.                         !H82=1.0

  3233.                         condition29 = .true.

  3234.                     endif

  3235.                     

  3236.                     if(valves(first)==83 .and. any(valves == 66)) then

  3237.                         !j15=j15+1

  3238.                         !H83=1.0

  3239.                         condition30 = .true.

  3240.                     endif

  3241.                     

  3242.                 endif

  3243.                 !================================================                 

  3244.                 

  3245.                 !=======CementPumpToCementTank_Through67==========

  3246.                 

  3247.                 ! << if H82 or H83 or H4 are open, no flow goes to other parts of system >>                

  3248.                 

  3249.                 

  3250.                 if(valves(last)==73 .and. valves(first)==84 .and. any(valves == 67))    then

  3251.                     

  3252.                     !H84=1.0

  3253.                     condition31 = .true.

  3254.                     

  3255.                 endif

  3256.                 !================================================  

  3257.                 

  3258.                 

  3259.    

  3260.                 !===============PathsToGauge75===================

  3261.                 if(valves(last)==75)    then

  3262.                     if(valves(first)==82) then      !Pump1 to Gauge75

  3263.                         !j16=j16+1

  3264.                         !K82=1

  3265.                         condition35 = .true.

  3266.                     endif

  3267.                     

  3268.                     if(valves(first)==83) then      !Pump2 to Gauge75

  3269.                         !j16=j16+1

  3270.                         !K83=1

  3271.                         condition36 = .true.

  3272.                     endif

  3273.                     

  3274.                     if(valves(first)==84) then      !Pump3 to Gauge75

  3275.                         !j16=j16+1

  3276.                         !K84=1

  3277.                         condition37 = .true.

  3278.                     endif

  3279.                     

  3280.                     if(valves(first)==79) then      !String to Gauge75

  3281.                         !j16=j16+1

  3282.                         !K79=1

  3283.                         condition38 = .true.

  3284.                     endif

  3285.                     

  3286.                     if(valves(first)==78) then      !Dump to Gauge75

  3287.                         !j16=j16+1

  3288.                         !K78=1

  3289.                         condition39 = .true.

  3290.                     endif                       

  3291.                     

  3292.                 endif

  3293.                 !================================================ 

  3294.                 

  3295.                 !===============PathsToGauge76===================

  3296.                 if(valves(last)==76)    then

  3297.                     if(valves(first)==82) then      !Pump1 to Gauge76

  3298.                         !j17=j17+1

  3299.                         !L82=1

  3300.                         condition40 = .true.

  3301.                     endif

  3302.                     

  3303.                     if(valves(first)==83) then      !Pump2 to Gauge76

  3304.                         !j17=j17+1

  3305.                         !L83=1

  3306.                         condition41 = .true.

  3307.                     endif

  3308.                     

  3309.                     if(valves(first)==84) then      !Pump3 to Gauge76

  3310.                         !j17=j17+1

  3311.                         !L84=1

  3312.                         condition42 = .true.

  3313.                     endif

  3314.                     

  3315.                     if(valves(first)==79) then      !String to Gauge76

  3316.                         !j17=j17+1

  3317.                         !L79=1

  3318.                         condition43 = .true.

  3319.                     endif

  3320.                     

  3321.                     if(valves(first)==78) then      !Dump to Gauge76

  3322.                         !j17=j17+1

  3323.                         !L78=1

  3324.                         condition44 = .true.

  3325.                     endif                     

  3326.             

  3327.                 endif

  3328.                 !================================================                 

  3329.                            

  3330.                 

  3331.                 !====Pump1-StandPipeManifoldToChokeManifold-Through ChokeLine====          

  3332.                 if(valves(first)==82 .and. any(valves == 2)) then

  3333.                     if(valves(last)==71) then

  3334.                         !j18=j18+1

  3335.                         !M71=1.

  3336.                         !Pump1toCh= 1.

  3337.                         condition46 = .true.

  3338.                     endif

  3339.                     

  3340.                     if(valves(last)==77) then

  3341.                         !j18=j18+1

  3342.                         !M77=1.

  3343.                         !Pump1toCh= 1.

  3344.                         condition47 = .true.

  3345.                     endif

  3346.                     

  3347.                     if(valves(last)==78) then

  3348.                         !j18=j18+1

  3349.                         !M78=1.

  3350.                         !Pump1toCh= 1.

  3351.                         condition48 = .true.

  3352.                     endif                                       

  3353.                     

  3354.                 endif                 

  3355.                 !=================================================================                 

  3356.                 

  3357.                 

  3358.                 !====Pump2-StandPipeManifoldToChokeManifold-Through ChokeLine====          

  3359.                 if(valves(first)==83 .and. any(valves == 2)) then

  3360.                     if(valves(last)==71) then

  3361.                         !j18=j18+1

  3362.                         !M71=1.

  3363.                         !Pump2toCh= 1.

  3364.                         condition49 = .true.

  3365.                     endif

  3366.                     

  3367.                     if(valves(last)==77) then

  3368.                         !j18=j18+1

  3369.                         !M77=1.

  3370.                         !Pump2toCh= 1.

  3371.                         condition50 = .true.

  3372.                     endif

  3373.                     

  3374.                     if(valves(last)==78) then

  3375.                         !j18=j18+1

  3376.                         !M78=1.

  3377.                         !Pump2toCh= 1.

  3378.                         condition51 = .true.

  3379.                     endif                                       

  3380.                     

  3381.                 endif                 

  3382.                 !=================================================================                 

  3383.                 

  3384.                 

  3385.                 !====Pump3-StandPipeManifoldToChokeManifold-Through ChokeLine====          

  3386.                 if(valves(first)==84 .and. any(valves == 2)) then

  3387.                     if(valves(last)==71) then

  3388.                         !j18=j18+1

  3389.                         !M71=1.

  3390.                         !Pump3toCh= 1.

  3391.                         condition52 = .true.

  3392.                     endif

  3393.                     

  3394.                     if(valves(last)==77) then

  3395.                         !j18=j18+1

  3396.                         !M77=1.

  3397.                         !Pump3toCh= 1.

  3398.                         condition53 = .true.

  3399.                     endif

  3400.                     

  3401.                     if(valves(last)==78) then

  3402.                         !j18=j18+1

  3403.                         !M78=1.

  3404.                         !Pump3toCh= 1.

  3405.                         condition54 = .true.

  3406.                     endif                                       

  3407.                     

  3408.                 endif                 

  3409.                 !================================================================= 

  3410.                 

  3411. 

  3412. 

  3413.                 

  3414.                 !===============PumpsToWell_KillLine============

  3415.                 if(valves(last)==79)    then

  3416.                     if(valves(first)==82) then

  3417.                         !j19=j19+1

  3418.                         !N82=1

  3419.                         condition55 = .true.

  3420.                     endif

  3421.                     

  3422.                     if(valves(first)==83) then

  3423.                         !j19=j19+1

  3424.                         !N83=1

  3425.                         condition56 = .true.

  3426.                     endif

  3427.                     

  3428.                     if(valves(first)==84) then

  3429.                         !j19=j19+1

  3430.                         !N84=1

  3431.                         condition57 = .true.

  3432.                     endif

  3433.                     

  3434.                 endif

  3435.                 !================================================                

  3436.                 

  3437.                 !===============WellToChokeLineGauge============

  3438.                 if(valves(first)==79 .and. valves(last)==85)    then

  3439.                         !j20=j20+1

  3440.                         condition58 = .true.

  3441.                 endif

  3442.                 !================================================                  

  3443.                 

  3444.                 

  3445.                 !============ChokeLineGaugeToTanks===============          

  3446.                 if(valves(first)==85) then

  3447.                     if(valves(last)==71) then

  3448.                         !j21=j21+1

  3449.                         condition59 = .true.

  3450.                     endif

  3451.                     

  3452.                     if(valves(last)==77) then

  3453.                         !j21=j21+1

  3454.                         condition60 = .true.

  3455.                     endif

  3456.                     

  3457.                     if(valves(last)==78) then

  3458.                         !j21=j21+1

  3459.                         condition61 = .true.

  3460.                     endif                                       

  3461.                     

  3462.                 endif                 

  3463.                 !================================================            

  3464.                 

  3465.                 

  3466.                 

  3467.                 

  3468.                 

  3469.                 

  3470.                 

  3471.             

  3472.             

  3473.     end subroutine  

  3474.     

  3475. 

  3476.   

  3477.     

  3478. end module MudSystem