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

53 lines
2.1 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.     TYPE(TD_GeneralInfo) :: TD_General

  21. !************************************************************************************************************************************

  22. 

  23.     

  24.         

  25. !************************************************************************************************************************************

  26. !=====> BOP Info

  27.     TYPE , PUBLIC :: TD_BOPInfo

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

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

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

  31.         REAL(8)                :: BOPThickness , AnnularFillingFinal

  32.         INTEGER , Dimension(4) :: BOPCondition

  33.         INTEGER , Dimension(6) :: BOPElementNo

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

  35.     END TYPE TD_BOPInfo

  36.     TYPE(TD_BOPInfo) :: TD_BOP

  37. !************************************************************************************************************************************

  38. 

  39.     

  40.     

  41. !************************************************************************************************************************************

  42.     !TYPE , PUBLIC  :: TD_BOPElementData

  43.     !    INTEGER    :: CType

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

  45.     !END TYPE TD_BOPElementData

  46.     TYPE(CBopElement) :: TD_BOPElement(4)

  47. !************************************************************************************************************************************

  48. 

  49.     

  50.     

  51. 

  52.     

  53. END MODULE TD_GeneralData