Simulation Core
Não pode escolher mais do que 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
 
 
 
 
 
 

18 linhas
505 B

  1. subroutine DWFixModeMotion
  2. use SimulationVariables !@
  3. IMPLICIT NONE
  4. data%State%Drawworks%Hook_Height_final = data%State%Drawworks%Hook_Height_final ![ft]
  5. data%State%Drawworks%Hook_Height = data%State%Drawworks%Hook_Height_final/3.280839895d0 ![m]
  6. data%State%Drawworks%w_drum = 0.d0
  7. data%State%Drawworks%w_old_drum = 0.d0
  8. data%State%Drawworks%motion = 0
  9. End subroutine