Télécharger dpsat0.eso

Retour à la liste

Numérotation des lignes :

  1. C DPSAT0 SOURCE CHAT 05/01/12 22:54:51 5004
  2. FUNCTION DPSAT0(T)
  3. C
  4. C--------------------------------------------------------------------
  5. C D/DT(Psat(T))
  6. C derivee pression partielle vapeur à saturation pour température T
  7. C Issue de la pression de saturation PSATT0(T)
  8. C--------------------------------------------------------------------
  9. C E/ T : Température de saturation (en K)
  10. C /S DPSAT0 : Derivee D/DT de Psat(T) (en Pa)
  11. C--------------------------------------------------------------------
  12. C
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8 (A-H,O-Z)
  15.  
  16. A1 = 1.9770073D-6
  17. A2 = 6.7955758D-5
  18. A3 =-9.3874734D-7
  19. A4 = 1.2653874D-8
  20. T1 = T - 273.15D0
  21.  
  22. X1=A1
  23. X2=2*A2*T1
  24. X3=3*A3*T1*T1
  25. X4=4*A4*T1*T1*T1
  26. DPSAT0=(X1+X2+X3+X4)*1.D5
  27. RETURN
  28. END
  29.  
  30.  
  31.  
  32.  

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