Télécharger cpliq0.eso

Retour à la liste

Numérotation des lignes :

  1. C CPLIQ0 SOURCE CHAT 05/01/12 22:26:21 5004
  2. FUNCTION CPLIQ0(P,HLIQ)
  3. C
  4. C--------------------------------------------------------------------
  5. C Capacité calorifique de l'eau liquide en fonction de la pression
  6. C et de l'enthalpie liquide spécifique.
  7. C--------------------------------------------------------------------
  8. C
  9. C E/ P : Pression de l'enceinte (en Pa)
  10. C E/ HLIQ : Enthalpie liquide spécifique (en J/kg)
  11. C /S CPLIQ0 : Capacité calorifique de l'eau liquide (en J/kg/K)
  12. C
  13. C--------------------------------------------------------------------
  14. C
  15. IMPLICIT INTEGER(I-N)
  16. IMPLICIT REAL*8 (A-H,O-Z)
  17. C
  18. HL2 = (P * 0.3654D-12 - 0.30413D-5) * P + 0.40047D+4
  19. HL3 = (-0.95261D-8 * P - 0.25785D0) * P + 0.20641D+8
  20. HL4 = 399.98D0
  21. TL1 = TLIQU0(P,HLIQ) - 273.15D0
  22. CPLIQ0 = HL2 + (HL3 / ((HL4 - TL1) ** 2.))
  23. C
  24. END
  25.  
  26.  
  27.  

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