mahmood19227
/
SimulationCore2
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
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.
7 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 24ee8dbb34
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '24ee8dbb34'
${ noResults }
SimulationCore2/TorqueDrag/TD_Modules/TD_WellGeometry.f90

32 lines
713 B
Raw Blame History 

  1. MODULE TD_WellGeometry

  2.     

  3.     

  4.     IMPLICIT NONE

  5.     PUBLIC

  6.         

  7.     

  8.     

  9.     REAL(8) , PARAMETER :: pi=3.14159265

  10.     

  11.     

  12.     

  13.     

  14. !====================================================

  15. !                Well Geometry Info

  16. !====================================================

  17. 

  18.     INTEGER :: TD_WellIntervalsCount

  19.     REAL(8) :: TD_WellTotalLength , TD_WellTotalVerticalLength

  20.     

  21.     TYPE, PUBLIC :: TD_WellGeometryData

  22.         INTEGER  :: HoleType

  23.         REAL(8)  :: StartAngle , EndAngle , IntervalLength , VerticalDepth , TopDepth , DownDepth , RCurvature

  24.     END TYPE TD_WellGeometryData

  25. 

  26.     TYPE(TD_WellGeometryData), Allocatable :: TD_WellGeo(:)

  27. 

  28.     

  29.     

  30.     

  31.     

  32. END MODULE TD_WellGeometry