|
12345678910111213141516171819202122232425262728293031323334353637 |
- module CUnityOutputs
- implicit none
- type :: UnityOutputsType
- real(8) :: KellyHoseVibrationRate
- real(8) :: BlowoutFromStringPercent
- real(8) :: Pedal
- real(8) :: FlowRate
- real(8) :: RotaryRpm
- logical :: BlowoutFromString
- logical :: BlowoutFromAnnular
- logical :: FlowFromReturnLine
- real :: FlowFromKelly
- real :: FlowFromFillupHead
- logical :: FlowKellyDisconnect
- logical :: FlowPipeDisconnect
- end type UnityOutputsType
-
- contains
-
- ! subroutine Setup()
- ! use CDataDisplayConsole
- ! use ConfigurationVariables
- ! implicit none
- ! ! PumpsSpmChanges => Calc_KellyHoseVibrationRate
- ! ! call data%Equipments%DataDisplayConsole%OnRotaryRpmChange%Add(Set_RotaryRpm)
- ! end subroutine
-
-
-
-
-
-
-
-
-
-
- end module CUnityOutputs
|