Télécharger fla007.eso

Retour à la liste

Numérotation des lignes :

  1. C FLA007 SOURCE TTMF3 12/07/05 21:15:27 7425
  2. SUBROUTINE FLA007(T,LAMI)
  3. C---------------------------------------------------------------------
  4. C Calcul de la conductivité thermique de chaque constituant du mélange
  5. C (en W/m/K) 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 LAMI(7) : flottant : Conductivité thermique de chaque constituant
  14. C (W/m/K)
  15. C
  16. C---------------------------------------------------------------------
  17. C
  18. C Langage : FORTRAN 77
  19. C
  20. C Mise en oeuvre : H. Paillère (1997, TTMF)
  21. C
  22. C---------------------------------------------------------------------
  23. IMPLICIT INTEGER(I-N)
  24. IMPLICIT REAL*8 (A-H,O-Z)
  25. REAL*8 LAMI(7)
  26. C
  27. LAMI(1) = (-2.45D-6*T*T + 8.75D-3*T + 0.202D0) * 0.01D0
  28. LAMI(2) = (-1.63D-6*T*T + 8.83D-3*T + 0.106D0) * 0.01D0
  29. LAMI(3) = ( 1.80D-5*T*T + 3.15D-2*T + 7.010D0) * 0.01D0
  30. LAMI(4) = ( 8.32D-3*T - 0.746D0) * 0.01D0
  31. C
  32. LAMI(5) = ( 5.464D-3 * T**1.616D0)/(T + 76.6D0)
  33. LAMI(6) = (25.438D-3 * T**1.319D0)/(T + 2432.95D0)
  34. LAMI(7) = ( 1.931D-3 * T**1.541D0)/(T + 218.17D0)
  35. RETURN
  36. END
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  

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