Simulation Core
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.

TD_WellGeometry.f90 1.3 KiB

il y a 2 ans
123456789101112131415161718192021222324252627282930313233
  1. MODULE TD_WellGeometry
  2. IMPLICIT NONE
  3. PUBLIC
  4. ! REAL(8) , PARAMETER :: pi=3.14159265d0
  5. !************************************************************************************************************************************
  6. !====================================================
  7. ! Well Geometry Info
  8. !====================================================
  9. TYPE, PUBLIC :: TD_WellGeneralInfo
  10. INTEGER :: WellIntervalsCount
  11. REAL(8) :: WellTotalLength , WellTotalVerticalLength
  12. END TYPE TD_WellGeneralInfo
  13. !************************************************************************************************************************************
  14. !************************************************************************************************************************************
  15. TYPE, PUBLIC :: TD_WellGeometryData
  16. INTEGER :: HoleType
  17. REAL(8) :: StartAngle , EndAngle , IntervalLength , VerticalDepth , TopDepth , DownDepth , RCurvature
  18. END TYPE TD_WellGeometryData
  19. !************************************************************************************************************************************
  20. END MODULE TD_WellGeometry