Télécharger lbdaliq0.eso

Retour à la liste

Numérotation des lignes :

  1. C LBDALIQ0 SOURCE SERRE 16/07/20 21:15:04 9017
  2. FUNCTION LBDALIQ0(P,T)
  3. C--------------------------------------------------------------------
  4. C Conductivité thermique de l'eau en fonction de la pression et de la
  5. C température (issue de CATHARE) : les data sont des FLOTTANTS
  6. C--------------------------------------------------------------------
  7. C Conductivité thermique de l'eau (issue de CATHARE)
  8. C--------------------------------------------------------------------
  9. C
  10. C E/ P : Pression (en Pa)
  11. C E/ T : Température (en K)
  12. C /S LBDALIQ0 : Conductivité thermique de l'eau (en W/m/K)
  13. C
  14. C-----------------------------------------------------------------------
  15. C
  16. C Langage : ESOPE + FORTRAN77
  17. C Auteurs : F.DABBENE 2016/05
  18. C
  19. C-----------------------------------------------------------------------
  20. IMPLICIT INTEGER(I-N)
  21. IMPLICIT REAL*8 (A-H,O-Z)
  22. REAL*8 LBDALIQ0
  23. C
  24. HL1 = HLS0(P,T)
  25. a0 = 0.573738622D0
  26. a1 = 0.2536103551D0
  27. a2 = -0.145468269D0
  28. a3 = 0.01387472485D0
  29. x = 1.7196904D-6 * HL1
  30. C
  31. LBDALIQ0 = a0 + x*(a1 + x*(a2 + x*a3))
  32. C
  33. END
  34.  
  35.  

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