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.
5 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 815b3a8c0a
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '815b3a8c0a'
${ noResults }
SimulationCore2/Equipments/TopDrive/TopDrive_Malfunction_MotorF...

17 lines
310 B
Raw Blame History 

  1.  subroutine TopDrive_Malfunction_MotorFailure

  2.     

  3.     use CDrillingConsoleVariables

  4.     use CDataDisplayConsoleVariables

  5.     use CSimulationVariables

  6.     use TopDrive_VARIABLES

  7.     

  8. 	IMPLICIT NONE

  9.     

  10.     

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

  12.         TDS%N_new = 0.0

  13.     end if

  14.     

  15.     

  16.     

  17. END subroutine