Simulation Core
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.

CFlowPipeDisconnectEnum.f90 679 B

pirms 1 gada
1234567891011121314151617181920212223242526272829
  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