Télécharger laten0.eso

Retour à la liste

Numérotation des lignes :

  1. C LATEN0 SOURCE CHAT 05/01/13 01:13:16 5004
  2. FUNCTION LATEN0(P)
  3. C
  4. C--------------------------------------------------------------------
  5. C Chaleur latente en fonction de la pression partielle de vapeur
  6. C--------------------------------------------------------------------
  7. C
  8. C E/ P : Pression partielle de vapeur (en Pa)
  9. C /S LATEN0 : Chaleur latente de vaporisation (en J/kg)
  10. C
  11. C--------------------------------------------------------------------
  12. C
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8 (A-H,O-Z)
  15. REAL*8 LATEN0
  16. C
  17. T = TSATP0(P)
  18. LATEN0 = HVS0(P,T) - HLS0(P,T)
  19. C
  20. END
  21.  
  22.  
  23.  
  24.  

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