Esope source files

   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 :