Télécharger fla005.eso

Retour à la liste

Numérotation des lignes :

  1. C FLA005 SOURCE TTMF3 12/07/05 21:15:25 7425
  2. SUBROUTINE FLA005(T,MUI)
  3. C---------------------------------------------------------------------
  4. C Calcul de la viscosité dynamique de chaque constituant du mélange
  5. C (en kg/m/s) en fonction de la température (en K)
  6. C---------------------------------------------------------------------
  7. C
  8. C---------------------------
  9. C Parametres Entree/Sortie :
  10. C---------------------------
  11. C
  12. C E/ T : flottant : Température de référence (K)
  13. C /S MUI(7) : flottant : Viscosité de chaque constituant (kg/m/s)
  14. C
  15. C---------------------------------------------------------------------
  16. C
  17. C Langage : FORTRAN 77
  18. C
  19. C Mise en oeuvre : H. Paillère (1997, TTMF)
  20. C
  21. C---------------------------------------------------------------------
  22. IMPLICIT INTEGER(I-N)
  23. IMPLICIT REAL*8 (A-H,O-Z)
  24. REAL*8 MUI(7)
  25. C
  26. T2 = T * T
  27. MUI(1) = (0.394D0 + 4.97D-3*T - 1.35D-6*T2) * 1.D-5
  28. MUI(2) = (0.428D0 + 5.9D-3*T - 1.51D-6*T2) * 1.D-5
  29. MUI(3) = (0.553D0 + 7.27D-4*T + 1.36D-6*T2) * 1.D-5
  30. MUI(4) = (-0.103D0 + 3.61D-3*T) * 1.D-5
  31. C
  32. MUI(5) = (0.5865D-6 * T**1.63D0)/(T + 27.183D0)
  33. MUI(6) = (0.1360D-6 * T**1.81D0)/(T - 59.30D0)
  34. MUI(7) = (0.5730D-6 * T**1.62D0)/(T + 46.45D0)
  35. C
  36. RETURN
  37. END
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales