Esope source files

   1 : C PVAP0     SOURCE    CHAT      05/01/13    02:39:40     5004           
   2 :       FUNCTION PVAP0(RO,T)
   3 : C
   4 : C---------------------------------------------------------------------
   5 : C Pression partielle de vapeur fonction de RO et de T (issue de RALOC)
   6 : C---------------------------------------------------------------------
   7 : C
   8 : C  E/  RO    : Densité de vapeur (en kg/m3)
   9 : C  E/  T     : Température (en K)
  10 : C   /S PVAP0 : Pression partielle de vapeur (p = ro R Z T)
  11 : C
  12 : C--------------------------------------------------------------------
  13 : C
  14 :       IMPLICIT INTEGER(I-N)
  15 :       IMPLICIT REAL*8 (A-H,O-Z)                 
  16 : C
  17 :       B0 = -4512.70756D0  
  18 :       B1 = 4245585.9D0    
  19 :       B2 = -1584624342.D0 
  20 :       R  = 461.513D0      
  21 :       PVAP0 = ((B0*T*T + (B1*T) + B2) * RO / R / T / T / T + 1.D0)
  22 :      &      * RO * R * T 
  23 : C
  24 :       END
  25 :  
  26 :