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.
 
 
 
 
 
 

39 lines
969 B

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/OperationScenarios/Unity/CUnityOutputs.f90"
  2. module CUnityOutputs
  3. implicit none
  4. type :: UnityOutputsType
  5. real(8) :: KellyHoseVibrationRate
  6. real(8) :: BlowoutFromStringPercent
  7. real(8) :: Pedal
  8. real(8) :: FlowRate
  9. real(8) :: RotaryRpm
  10. logical :: BlowoutFromString
  11. logical :: BlowoutFromAnnular
  12. logical :: FlowFromReturnLine
  13. real :: FlowFromKelly
  14. real :: FlowFromFillupHead
  15. logical :: FlowKellyDisconnect
  16. logical :: FlowPipeDisconnect
  17. end type UnityOutputsType
  18. contains
  19. ! subroutine Setup()
  20. ! use CDataDisplayConsole
  21. ! use ConfigurationVariables
  22. ! implicit none
  23. ! ! PumpsSpmChanges => Calc_KellyHoseVibrationRate
  24. ! ! call data%Equipments%DataDisplayConsole%OnRotaryRpmChange%Add(Set_RotaryRpm)
  25. ! end subroutine
  26. end module CUnityOutputs