Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

95 lines
2.3 KiB

  1. subroutine Pumps_Outputs
  2. Use CDataDisplayConsoleVariables
  3. Use CSimulationVariables
  4. Use Pumps_VARIABLES
  5. Use MudSystemModule
  6. Use CDrillWatchVariables
  7. Use CSounds
  8. IMPLICIT NONE
  9. !>>>>>>>>>>>>>>>>>>>>>>> PUMP 1 <<<<<<<<<<<<<<<<<<<<<<<<<<<
  10. If (PUMP(1)%Open_Close==1) then
  11. Call OpenPump1()
  12. Else if (PUMP(1)%Open_Close==0) then
  13. Call ClosePump1()
  14. End if
  15. DrillingConsole%MP1BLWR = PUMP(1)%BLWR
  16. Call SetSoundBlowerMP1( PUMP(1)%SoundBlower ) !.true. or .false.
  17. Call SetSoundMP1( PUMP(1)%SoundSPM ) ![spm] , integer
  18. if ((PUMP(1)%Switch==-1) .or. (PUMP(1)%Switch==0)) then
  19. Call Set_MP1SPMGauge( sngl(1-PUMP(1)%SPMGaugeMalf)*real((PUMP(1)%Speed/PUMP(1)%Trans_Ratio),8) ) ![spm] , real
  20. DrillingWatch%SPM1 = DataDisplayConsole%MP1SPMGauge
  21. end if
  22. !PUMP(1)%Flow_Rate !to other modules , [gpm]
  23. !>>>>>>>>>>>>>>>>>>>>>>> PUMP 2 <<<<<<<<<<<<<<<<<<<<<<<<<<<
  24. If (PUMP(2)%Open_Close==1) then
  25. Call OpenPump2()
  26. Else if (PUMP(2)%Open_Close==0) then
  27. Call ClosePump2()
  28. End if
  29. DrillingConsole%MP2BLWR = PUMP(2)%BLWR
  30. Call SetSoundBlowerMP2( PUMP(2)%SoundBlower )
  31. Call SetSoundMP2( PUMP(2)%SoundSPM )
  32. Call Set_MP2SPMGauge( sngl(1-PUMP(2)%SPMGaugeMalf)*real((PUMP(2)%Speed/PUMP(2)%Trans_Ratio),8) )
  33. DrillingWatch%SPM2 = DataDisplayConsole%MP2SPMGauge
  34. !PUMP(2)%Flow_Rate !to other modules
  35. !!>>>>>>>>>>>>>>>>>>>>>>> PUMP 3 <<<<<<<<<<<<<<<<<<<<<<<<<<<
  36. If (PUMP(3)%Open_Close==1) then
  37. Call OpenCementPump()
  38. Else if (PUMP(3)%Open_Close==0) then
  39. Call CloseCementPump()
  40. End if
  41. Call SetSoundMP3( PUMP(3)%SoundSPM )
  42. if (PUMP(3)%Switch==1) then
  43. Call Set_MP1SPMGauge( real((PUMP(3)%Speed/PUMP(3)%Trans_Ratio),8) )
  44. DrillingWatch%SPM1 = DataDisplayConsole%MP1SPMGauge
  45. end if
  46. !PUMP(3)%Flow_Rate !to other modules
  47. !>>>>>>>>>>>>>>>>>>>>>>> Total Pumps <<<<<<<<<<<<<<<<<<<<<<<<<<<
  48. !MPumps%Total_Pump_Gpm = 100.d0 !???????????
  49. !MPumps%Total_Pump_SPM = 1000.d0 !?????????????
  50. !SCR1LED=1
  51. !SCR2LED=1
  52. !SCR3LED=1
  53. !SCR4LED=1
  54. end subroutine Pumps_Outputs