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ů.
 
 
 
 
 
 

50 řádky
2.0 KiB

  1. MODULE TD_GeneralData
  2. Use CDownHoleTypes
  3. IMPLICIT NONE
  4. PUBLIC
  5. !************************************************************************************************************************************
  6. !====================================================
  7. ! General Info
  8. !====================================================
  9. !=====> Time Info
  10. TYPE , PUBLIC :: TD_GeneralInfo
  11. REAL :: TimeStep
  12. !=====> Problems
  13. INTEGER :: WeightIndicatorMalf
  14. END TYPE TD_GeneralInfo
  15. !************************************************************************************************************************************
  16. !************************************************************************************************************************************
  17. !=====> BOP Info
  18. TYPE , PUBLIC :: TD_BOPInfo
  19. REAL(8) :: AboveAnnularDiam , AnnularPreventerDiam , UpperRamDiam , LowerRamDiam , BlindRamDiam , KillDiam
  20. REAL(8) , Dimension(6) :: BOPHeight , BOPDiam
  21. REAL(8) , Dimension(4) :: BOPRamDiam
  22. REAL(8) :: BOPThickness , AnnularFillingFinal
  23. INTEGER , Dimension(4) :: BOPCondition
  24. INTEGER , Dimension(6) :: BOPElementNo
  25. INTEGER , Dimension(6) :: BOPConnectionPossibility ! 0:impossible , 1:possible(for DrillPipe Element)
  26. END TYPE TD_BOPInfo
  27. !************************************************************************************************************************************
  28. !************************************************************************************************************************************
  29. !TYPE , PUBLIC :: TD_BOPElementData
  30. ! INTEGER :: CType
  31. ! REAL(8) :: TopDepth , DownDepth
  32. !END TYPE TD_BOPElementData
  33. !************************************************************************************************************************************
  34. END MODULE TD_GeneralData