Simulation Core
Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.
 
 
 
 
 
 

17 рядки
468 B

  1. module CDrillStemProblemsVariables
  2. use CProblemDifinition
  3. implicit none
  4. public
  5. ! Input vars
  6. type:: DrillStemProblemsType
  7. type(CProblem) :: StringDragIncrease
  8. type(CProblem) :: StringTorqueIncrease
  9. type(CProblem) :: StringTorqueFluctuation
  10. real(8) :: StringDragIncreaseTime
  11. real(8) :: StringTorqueIncreaseTime
  12. end type DrillStemProblemsType
  13. contains
  14. end module CDrillStemProblemsVariables