SimulationCore2/Equipments/Drawworks/Drawworks_VARIABLES.i90

# 1 "/home/admin/SimulationCore2/Equipments/Drawworks/Drawworks_VARIABLES.f90"
MODULE Drawworks_VARIABLES
    
    IMPLICIT NONE
    PUBLIC
    
    
    
! REAL, PARAMETER :: pi=3.14159265
    
    
    
!**************************************************************************************************
!**************** Define Drawworks Array ****************************************************
    TYPE, PUBLIC :: Drawworks_Var
!*****  Drawworks_VARIABLES  **********************
    
    logical :: CrownCollision, FloorCollision
    INTEGER :: AssignmentSwitch , K_Throttle , Switch
    INTEGER :: MotorFaileMalf , ClutchEngageMalf , ClutchDisengageMalf
    INTEGER :: motion, DriveType, ShearBopSituation, TDDrillStemComponentsNumbs
    INTEGER :: DrillModeCond, StringIsBottomOfWell
    INTEGER , Dimension(6) :: TDBOPElementNo

    REAL :: Throttle, RateChange
    REAL :: Diameter
    REAL :: Hook_Height, Hook_Height_ini, Hook_Height_inim, Hook_Height_ini_graph_output, Hook_Height_final, max_Hook_Height, min_Hook_Height, HookHeight_graph_output
    REAL :: N_Throtle, Conv_Ratio, NumberOfLine, Speed, N_new, N_old      ! N[RPM]
    REAL :: w_drum, w_old_drum                                            ! w[rad/s]
    REAL :: HookLinearVelocity                                            ! [m/s]
    REAL :: HookLinearVelocity_final                                      ! [ft/s]
    REAL , Dimension(6) :: TDBOPHeight
    REAL , Dimension(4) :: TDBOPRamDiam
    REAL :: TDBOPThickness, TDDrillStemBottom, TDWellTotalLength, TDDlMax
    REAL , Allocatable, DIMENSION(:) :: TDDrillStemsDownDepth
    REAL , Allocatable, DIMENSION(:) :: TDDrillStemsTopDepth
    REAL , Allocatable, DIMENSION(:) :: TDDrillStemsToolJointRange
    REAL , Allocatable, DIMENSION(:) :: TDDrillStemsRtoolJoint
    REAL    :: TDHookHeight
    
    REAL    :: time_step
    
    INTEGER :: BLWR  ! 1=On , 0=Off
    
!*************  Sound_VARIABLES  **********************
    INTEGER :: SoundFw , SoundRev
    Logical :: SoundBlower
    Logical :: SoundFloorCollision , SoundCrownCollision
    
    END TYPE Drawworks_Var
!***********************************************************************************************
!****************************************************************************************************
END MODULE Drawworks_VARIABLES