Simulation Core
Nelze vybrat více než 25 témat Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.

CUnityOutputs.f90 941 B

před 1 rokem
před 1 rokem
12345678910111213141516171819202122232425262728293031323334353637
  1. module CUnityOutputs
  2. implicit none
  3. type :: UnityOutputsType
  4. real(8) :: KellyHoseVibrationRate
  5. real(8) :: BlowoutFromStringPercent
  6. real(8) :: Pedal
  7. real(8) :: FlowRate
  8. real(8) :: RotaryRpm
  9. logical :: BlowoutFromString
  10. logical :: BlowoutFromAnnular
  11. logical :: FlowFromReturnLine
  12. real :: FlowFromKelly
  13. real :: FlowFromFillupHead
  14. logical :: FlowKellyDisconnect
  15. logical :: FlowPipeDisconnect
  16. end type UnityOutputsType
  17. contains
  18. ! subroutine Setup()
  19. ! use CDataDisplayConsole
  20. ! use ConfigurationVariables
  21. ! implicit none
  22. ! ! PumpsSpmChanges => Calc_KellyHoseVibrationRate
  23. ! ! call data%Equipments%DataDisplayConsole%OnRotaryRpmChange%Add(Set_RotaryRpm)
  24. ! end subroutine
  25. end module CUnityOutputs