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.
29 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 368fdac242
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '368fdac242'
${ noResults }
SimulationCore2/Equipments/Drawworks/DWMalfunction_MotorFailure.f90

20 lines
333 B
Raw Blame History 

  1. subroutine DWMalfunction_MotorFailure

  2.     

  3.     use CDrillingConsoleVariables

  4.     use CDataDisplayConsoleVariables

  5.     use CHoistingVariables

  6.     use Drawworks_VARIABLES

  7.     

  8. 	IMPLICIT NONE

  9.     

  10.     

  11.     

  12.     

  13.     if (Drawworks%MotorFaileMalf==1) then

  14.         Drawworks%Conv_Ratio = 1.0D0

  15.     end if

  16.     

  17.     

  18.     

  19.     

  20. END subroutine