|
1234567891011121314151617 |
- subroutine TopDrive_Malfunction_MotorFailure
-
- use CDrillingConsoleVariables
- use CDataDisplayConsoleVariables
- use CSimulationVariables
- use TopDrive_VARIABLES
-
- IMPLICIT NONE
-
-
- if ( TDS%MotorFaileMalf==1 ) then
- TDS%N_new = 0.0
- end if
-
-
-
- END subroutine
|