Esope source files

   1 : C BMUG      SOURCE    CHAT      05/01/12    21:41:35     5004           
   2 :       FUNCTION BMUG(T,PHI,T0)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : C
   6 : C     operateur FUITE
   7 : C>>>  calcule la viscosite du melange air vapeur
   8 : C       T  : temperature du fluide en ›K
   9 : C      PHI : rapport pression partielle vapeur/pression totale
  10 : C       T0 : temperature de reference
  11 : C
  12 :       BMUG=(1.72+4.4E-3*(T-T0))*(1-PHI)+(.845+4.07E-3*(T-T0-10))*PHI
  13 :       BMUG=BMUG*1E-5
  14 :       RETURN
  15 :       END
  16 :  
  17 :