Simulation Core
25'ten fazla konu seçemezsiniz Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.
 
 
 
 
 
 

32 satır
713 B

  1. MODULE TD_WellGeometry
  2. IMPLICIT NONE
  3. PUBLIC
  4. REAL(8) , PARAMETER :: pi=3.14159265
  5. !====================================================
  6. ! Well Geometry Info
  7. !====================================================
  8. INTEGER :: TD_WellIntervalsCount
  9. REAL(8) :: TD_WellTotalLength , TD_WellTotalVerticalLength
  10. TYPE, PUBLIC :: TD_WellGeometryData
  11. INTEGER :: HoleType
  12. REAL(8) :: StartAngle , EndAngle , IntervalLength , VerticalDepth , TopDepth , DownDepth , RCurvature
  13. END TYPE TD_WellGeometryData
  14. TYPE(TD_WellGeometryData), Allocatable :: TD_WellGeo(:)
  15. END MODULE TD_WellGeometry