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.

CFlowKellyDisconnectEnum.f90 685 B

преди 1 година
преди 1 година
1234567891011121314151617181920212223242526272829
  1. module CFlowKellyDisconnectEnum
  2. use OperationScenariosModule
  3. implicit none
  4. contains
  5. subroutine Evaluate_FlowKellyDisconnect()
  6. implicit none
  7. ! if (DriveType == TopDrive_DriveType) then
  8. !#ifdef OST
  9. ! print*, 'Evaluate_FlowKellyDisconnect=TopDrive'
  10. !#endif
  11. ! endif
  12. !
  13. !
  14. !
  15. ! if (DriveType == Kelly_DriveType) then
  16. !#ifdef OST
  17. ! print*, 'Evaluate_FlowKellyDisconnect=Kelly'
  18. !#endif
  19. ! endif
  20. end subroutine
  21. subroutine Subscribe_FlowKellyDisconnect()
  22. implicit none
  23. end subroutine
  24. end module CFlowKellyDisconnectEnum