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.
 
 
 
 
 
 

19 lines
556 B

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/Problems/CDrillStemProblemsVariables.f90"
  2. module CDrillStemProblemsVariables
  3. use CProblemDifinition
  4. implicit none
  5. public
  6. ! Input vars
  7. type:: DrillStemProblemsType
  8. type(CProblem) :: StringDragIncrease
  9. type(CProblem) :: StringTorqueIncrease
  10. type(CProblem) :: StringTorqueFluctuation
  11. real(8) :: StringDragIncreaseTime
  12. real(8) :: StringTorqueIncreaseTime
  13. end type DrillStemProblemsType
  14. contains
  15. end module CDrillStemProblemsVariables