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.
6 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: e0184c4093
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'e0184c4093'
${ noResults }
SimulationCore2/Equipments/RotaryTable/RTMalfunction_MotorFailure.f90

17 lines
334 B
Raw Blame History 

  1.  subroutine RTMalfunction_MotorFailure

  2.     

  3.     use CDrillingConsoleVariables

  4.     use CDataDisplayConsoleVariables

  5.     use CSimulationVariables

  6.     use RTable_VARIABLES

  7.     

  8. 	IMPLICIT NONE

  9.     

  10.     

  11.     if ( RTable%MotorFaileMalf==1 ) then

  12.         RTable%N_new = 0.0

  13.     end if

  14.     

  15.     

  16.     

  17. END subroutine RTMalfunction_MotorFailure