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.
 
 
 
 
 
 

51 regels
1.4 KiB

  1. MODULE TD_GeneralData
  2. Use CDownHoleTypes
  3. IMPLICIT NONE
  4. PUBLIC
  5. !====================================================
  6. ! General Info
  7. !====================================================
  8. !=====> Time Info
  9. REAL :: TD_TimeStep
  10. INTEGER :: TD_IntCPUTime, TD_DtRef
  11. !REAL :: TD_StartTime, TD_EndTime
  12. !=====> BOP Info
  13. !REAL(8) :: TD_AboveAnnularHeight , TD_AnnularPreventerHeight , TD_UpperRamHeight , TD_LowerRamHeight , TD_BlindRamHeight , TD_KillHeight
  14. REAL(8) :: TD_AboveAnnularDiam , TD_AnnularPreventerDiam , TD_UpperRamDiam , TD_LowerRamDiam , TD_BlindRamDiam , TD_KillDiam
  15. REAL(8) , Dimension(6) :: TD_BOPHeight , TD_BOPDiam
  16. REAL(8) , Dimension(4) :: TD_BOPRamDiam
  17. REAL(8) :: TD_BOPThickness , TD_AnnularFillingFinal
  18. INTEGER , Dimension(4) :: TD_BOPCondition
  19. INTEGER , Dimension(6) :: TD_BOPElementNo
  20. INTEGER , Dimension(6) :: TD_BOPConnectionPossibility ! 0:impossible , 1:possible(for DrillPipe Element)
  21. !TYPE , PUBLIC :: TD_BOPElementData
  22. ! INTEGER :: CType
  23. ! REAL(8) :: TopDepth , DownDepth
  24. !END TYPE TD_BOPElementData
  25. TYPE(CBopElement) :: TD_BOPElement(4)
  26. !=====> Problems
  27. INTEGER :: TD_WeightIndicatorMalf
  28. END MODULE TD_GeneralData