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.
 
 
 
 
 
 

29 lines
679 B

  1. module CFlowPipeDisconnectEnum
  2. use OperationScenariosModule
  3. implicit none
  4. contains
  5. subroutine Evaluate_FlowPipeDisconnect()
  6. implicit none
  7. ! if (DriveType == TopDrive_DriveType) then
  8. !#ifdef OST
  9. ! print*, 'Evaluate_FlowPipeDisconnect=TopDrive'
  10. !#endif
  11. ! endif
  12. !
  13. !
  14. !
  15. ! if (DriveType == Kelly_DriveType) then
  16. !#ifdef OST
  17. ! print*, 'Evaluate_FlowPipeDisconnect=Kelly'
  18. !#endif
  19. ! endif
  20. end subroutine
  21. subroutine Subscribe_FlowPipeDisconnect()
  22. implicit none
  23. end subroutine
  24. end module CFlowPipeDisconnectEnum