Esope source files

   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 :