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.

CRigSizeVariables.f90 387 B

1 year ago
123456789101112131415
  1. module CRigSizeVariables
  2. implicit none
  3. public
  4. !constants
  5. integer :: Convensional_RigSize = 0
  6. ! variables
  7. Type:: RigSizeType
  8. integer :: RigType
  9. real(8) :: CrownHeight
  10. real(8) :: MonkeyBoandHeight
  11. real(8) :: RigFloorHeight
  12. End type RigSizeType
  13. Type(RigSizeType)::RigSize
  14. end module CRigSizeVariables