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.

TD_GeneralData.f90 2.0 KiB

1 year ago
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
  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