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.
68 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 14f31e09cb
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '14f31e09cb'
${ noResults }
SimulationCore2/TorqueDrag/TD_Modules/TD_GeneralData.f90

50 lines
2.0 KiB
Raw Blame History 

  1. MODULE TD_GeneralData

  2.     

  3.     Use CDownHoleTypes

  4.     

  5.     IMPLICIT NONE

  6.     PUBLIC

  7.     

  8.     

  9.     

  10. !************************************************************************************************************************************

  11. !====================================================

  12. !                 General Info

  13. !====================================================

  14. !=====> Time Info

  15.     TYPE , PUBLIC :: TD_GeneralInfo

  16.         REAL    :: TimeStep

  17.         !=====> Problems

  18.         INTEGER :: WeightIndicatorMalf

  19.     END TYPE TD_GeneralInfo

  20. !************************************************************************************************************************************

  21. 

  22.     

  23.         

  24. !************************************************************************************************************************************

  25. !=====> BOP Info

  26.     TYPE , PUBLIC :: TD_BOPInfo

  27.         REAL(8)    :: AboveAnnularDiam , AnnularPreventerDiam , UpperRamDiam , LowerRamDiam , BlindRamDiam , KillDiam

  28.         REAL(8) , Dimension(6) :: BOPHeight , BOPDiam

  29.         REAL(8) , Dimension(4) :: BOPRamDiam

  30.         REAL(8)                :: BOPThickness , AnnularFillingFinal

  31.         INTEGER , Dimension(4) :: BOPCondition

  32.         INTEGER , Dimension(6) :: BOPElementNo

  33.         INTEGER , Dimension(6) :: BOPConnectionPossibility    ! 0:impossible   , 1:possible(for DrillPipe Element)

  34.     END TYPE TD_BOPInfo

  35. !************************************************************************************************************************************

  36. 

  37.     

  38.     

  39. !************************************************************************************************************************************

  40.     !TYPE , PUBLIC  :: TD_BOPElementData

  41.     !    INTEGER    :: CType

  42.     !    REAL(8)    :: TopDepth , DownDepth

  43.     !END TYPE TD_BOPElementData

  44. !************************************************************************************************************************************

  45. 

  46.     

  47.     

  48. 

  49.     

  50. END MODULE TD_GeneralData