Télécharger psatt0.eso

Retour à la liste

Numérotation des lignes :

  1. C PSATT0 SOURCE SERRE 16/11/25 21:15:03 9165
  2. FUNCTION PSATT0(T)
  3. C
  4. C--------------------------------------------------------------------
  5. C Pression partielle de vapeur à saturation pour une température donnée
  6. C--------------------------------------------------------------------
  7. C
  8. C E/ T : Température de saturation (en K)
  9. C /S PSATT0 : Pression partielle de vapeur à saturation (en Pa)
  10. C
  11. C--------------------------------------------------------------------
  12. C
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8 (A-H,O-Z)
  15. C
  16. A0 = 4.3820662D-8
  17. A1 = 1.9770073D-6
  18. A2 = 6.7955758D-5
  19. A3 =-9.3874734D-7
  20. A4 = 1.2653874D-8
  21. T1 = T - 273.15D0
  22. if (t1 .LE. 0.D0) then
  23. PSATT0 = 0.006108D5
  24. else
  25. PSATT0 = ((((A4*T1+A3)*T1+A2)*T1+A1)*T1+A0)*1.D5
  26. endif
  27. C
  28. END
  29.  
  30.  
  31.  
  32.  

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