Télécharger hls0.eso

Retour à la liste

Numérotation des lignes :

  1. C HLS0 SOURCE CHAT 05/01/13 00:24:29 5004
  2. FUNCTION HLS0(P,T)
  3. C
  4. C--------------------------------------------------------------------
  5. C Enthalpie liquide spécifique en fonction de P et de T
  6. C--------------------------------------------------------------------
  7. C
  8. C E/ P : Pression (en Pa)
  9. C E/ T : Température (en K)
  10. C /S HLS0 : Enthalpie spécifique liquide (en J/kg)
  11. C
  12. C--------------------------------------------------------------------
  13. C
  14. IMPLICIT INTEGER(I-N)
  15. IMPLICIT REAL*8 (A-H,O-Z)
  16. C
  17. HL1 = 0.18637D-2 * P - 0.50352D5
  18. HL2 = (0.3654D-12 * P - 0.30413D-5) * P + 0.40047D4
  19. HL3 = (-0.95261D-8 * P - 0.25785D0) * P + 0.20641D8
  20. HL4 = 399.98D0
  21. TL1 = T - 273.15D0
  22. HLS0 = HL1 + (HL2 * TL1) + (HL3 / (HL4 - TL1))
  23. C
  24. END
  25.  
  26.  
  27.  

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