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.
 
 
 
 
 
 

17 lines
468 B

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/BasicInputs/RigSpecifications/CRigSizeVariables.f90"
  2. module CRigSizeVariables
  3. implicit none
  4. public
  5. !constants
  6. integer :: Convensional_RigSize = 0
  7. ! variables
  8. Type:: RigSizeType
  9. integer :: RigType
  10. real(8) :: CrownHeight
  11. real(8) :: MonkeyBoandHeight
  12. real(8) :: RigFloorHeight
  13. End type RigSizeType
  14. Type(RigSizeType)::RigSize
  15. end module CRigSizeVariables