mahmood19227
/
SimulationCore2
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
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.
58 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: d3fe89fe45
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'd3fe89fe45'
${ noResults }
SimulationCore2/CSharp/OperationScenarios/Notifications/CSlipsNotification.i90

134 lines
3.9 KiB
Raw Blame History 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/OperationScenarios/Notifications/CSlipsNotification.f90"

  2. module CSlipsNotification

  3.     use OperationScenariosModule

  4.     implicit none

  5.     contains

  6.     

  7.     subroutine Evaluate_SlipsNotification()

  8.         implicit none

  9.         

  10.         

  11.         

  12.         

  13.         if (data%Configuration%Hoisting%DriveType == TopDrive_DriveType) then

  14. # 15

  15. 

  16.             

  17. !TOPDRIVE-CODE=28

  18.             if (Get_ZeroStringSpeed() .and.&

  19.                 GetRotaryRpm() == 0.0d0 .and.&

  20.                 Get_Slips() == SLIPS_UNSET_END .and.&

  21.                 Get_NearFloorConnection() >= 3.0 .and. Get_NearFloorConnection() <= 6.0) then

  22.             

  23.                 call Set_SlipsNotification(.true.)

  24.                 return

  25.             end if 

  26.             

  27.             

  28.             

  29. !TOPDRIVE-CODE=29

  30.             if (Get_ZeroStringSpeed() .and.&

  31.                 GetRotaryRpm() == 0.0d0 .and.&

  32.                 (Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STRING .or.&

  33.                 Get_TdsConnectionModes() == TDS_CONNECTION_STRING) .and.&

  34.                 Get_Slips() == SLIPS_SET_END .and.&

  35.                 Get_NearFloorConnection() >= 3.0 .and. Get_NearFloorConnection() <= 6.0) then

  36.             

  37.                 call Set_SlipsNotification(.true.)

  38.                 return

  39.             end if

  40.             

  41.             

  42.             

  43. 

  44.         endif

  45.         

  46.         

  47.         

  48.         

  49.         

  50.         

  51.         

  52.         

  53.         

  54.         

  55.         if (data%Configuration%Hoisting%DriveType == Kelly_DriveType) then

  56. # 58

  57. 

  58. 

  59. !OPERATION-CODE=53

  60.             if (Get_ZeroStringSpeed() .and.&

  61.                 GetRotaryRpm() == 0.0d0 .and.&

  62. !Get_KellyConnection() == KELLY_CONNECTION_STRING

  63.                 Get_Slips() == SLIPS_UNSET_END .and.&

  64.                 Get_NearFloorConnection() >= 3.0 .and. Get_NearFloorConnection() <= 6.0) then

  65.                 call Set_SlipsNotification(.true.)

  66.                 return

  67.             end if

  68.             

  69.         

  70.             

  71.             

  72.             

  73. !OPERATION-CODE=77

  74.             if (Get_ZeroStringSpeed() .and.&

  75.                 GetRotaryRpm() == 0.0d0 .and.&

  76.                 Get_Slips() == SLIPS_SET_END .and.&

  77.                 Get_IsKellyBushingSetInTable() == .false. .and.&

  78.                 Get_NearFloorConnection() >= 3.0 .and. Get_NearFloorConnection() <= 6.0 .and.&

  79.                 (Get_ElevatorConnection() == ELEVATOR_CONNECTION_STRING .or. Get_KellyConnection() == KELLY_CONNECTION_STRING)) then

  80.                 call Set_SlipsNotification(.true.)

  81.             

  82.                 return

  83.             end if

  84.             

  85.             

  86.             

  87.             

  88.             

  89. !if (Get_OperationCondition() == OPERATION_DRILL .and.&

  90. !    Get_ZeroStringSpeed() .and.&

  91. !    Get_SlackOff() .and.&

  92. !    Get_KellyConnection() == KELLY_CONNECTION_STRING) then

  93. !    call Set_SlipsNotification(.true.)

  94. !    return

  95. !end if

  96. !

  97. !

  98. !if (Get_OperationCondition() == OPERATION_TRIP .and.&

  99. !    Get_ZeroStringSpeed() .and.&

  100. !    Get_NearFloorConnection() >= 21 .and. Get_NearFloorConnection() <= 25 .and.&

  101. !    Get_ElevatorConnection() == ELEVATOR_CONNECTION_STRING) then

  102. !    call Set_SlipsNotification(.true.)

  103. !    return

  104. !end if

  105.         

  106.             

  107.             

  108.             

  109.             call Set_SlipsNotification(.false.)

  110. 

  111.         endif

  112.         

  113.         

  114.         

  115.         

  116.         

  117.         

  118.     end subroutine

  119.     

  120. ! subroutine Subscribe_SlipsNotification()

  121. !     implicit none

  122.         

  123. !     call OnOperationConditionChange%Add(Evaluate_SlipsNotification)

  124. !     call OnSlackOffChange%Add(Evaluate_SlipsNotification)

  125. !     call OnZeroStringSpeedChange%Add(Evaluate_SlipsNotification)

  126. !     call OnNearFloorConnectionChange%Add(Evaluate_SlipsNotification)

  127. !     call data%State%OperationScenario%OnElevatorConnectionChange%Add(Evaluate_SlipsNotification)

  128. !     call OnKellyConnectionChange%Add(Evaluate_SlipsNotification)

  129. !     call OnSlipsChange%Add(Evaluate_SlipsNotification)

  130.         

  131. ! end subroutine

  132.     

  133. end module CSlipsNotification