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.
 
 
 
 
 
 

43 lines
1.1 KiB

  1. MODULE TorqueDragMain
  2. USE CPumpsVariables
  3. USE CDrillingConsoleVariables
  4. USE CDataDisplayConsoleVariables
  5. ! USE CSimulationVariables
  6. USE Pumps_VARIABLES
  7. IMPLICIT NONE
  8. PUBLIC
  9. CONTAINS
  10. ! subroutine TorqueDrag_Setup()
  11. ! use CSimulationVariables
  12. ! implicit none
  13. ! call OnSimulationInitialization%Add(TorqueDrag_Init)
  14. ! call OnSimulationStop%Add(TorqueDrag_Init)
  15. ! call OnTorqueDragStep%Add(TorqueDrag_Step)
  16. ! call OnTorqueDragOutput%Add(TorqueDrag_Output)
  17. ! call OnTorqueDragMain%Add(TorqueDragMainBody)
  18. ! end subroutine
  19. subroutine TorqueDrag_Init
  20. implicit none
  21. end subroutine TorqueDrag_Init
  22. subroutine TorqueDrag_Step
  23. implicit none
  24. end subroutine TorqueDrag_Step
  25. subroutine TorqueDrag_Output
  26. implicit none
  27. end subroutine TorqueDrag_Output
  28. ! SUBROUTINE TorqueDragMainBody
  29. ! ! USE ifport
  30. ! ! USE ifmt
  31. ! ! USE CSimulationVariables
  32. ! !USE TDSUP
  33. ! IMPLICIT NONE
  34. ! !CALL TD_MainCalculations
  35. ! END SUBROUTINE TorqueDragMainBody
  36. END MODULE TorqueDragMain