Télécharger tsatp0.eso

Retour à la liste

Numérotation des lignes :

  1. C TSATP0 SOURCE SERRE 16/11/25 21:15:05 9165
  2. FUNCTION TSATP0(P)
  3. C
  4. C--------------------------------------------------------------------
  5. C Température de saturation de la vapeur pour une pression partielle
  6. C de vapeur donnée.
  7. C--------------------------------------------------------------------
  8. C
  9. C E/ P : Pression partielle de vapeur (en Pa)
  10. C /S TSATP0 : Température de saturation (en K)
  11. C
  12. C--------------------------------------------------------------------
  13. C
  14. IMPLICIT INTEGER(I-N)
  15. IMPLICIT REAL*8 (A-H,O-Z)
  16. C
  17. A0 = 99.631652D0 + 273.15D0
  18. A1 = 27.947249D0
  19. A2 = 2.398456D0
  20. A3 = 0.21249386D0
  21. A4 = 0.01788659D0
  22. A5 = 0.0012399723D0
  23. A6 = 4.8638781D-5
  24. P1 = P / 1.D5
  25. if (P1 .LE. 0.006108D0) then
  26. TSATP0 = 273.15D0
  27. else
  28. X1 = LOG(P1)
  29. TSATP0 = (((((A6*X1+A5)*X1+A4)*X1+A3)*X1+A2)*X1+A1)*X1+A0
  30. endif
  31. C
  32. END
  33.  
  34.  
  35.  
  36.  

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