Esope source files

   1 : C FLA005    SOURCE    TTMF3     12/07/05    21:15:25     7425           
   2 :       SUBROUTINE FLA005(T,MUI)
   3 : C---------------------------------------------------------------------
   4 : C Calcul de la viscosité dynamique de chaque constituant du mélange 
   5 : C (en kg/m/s) en fonction de la température (en K)  
   6 : C---------------------------------------------------------------------
   7 : C
   8 : C---------------------------
   9 : C Parametres Entree/Sortie :
  10 : C---------------------------
  11 : C
  12 : C E/  T      : flottant : Température de référence (K)
  13 : C  /S MUI(7) : flottant : Viscosité de chaque constituant (kg/m/s)
  14 : C
  15 : C---------------------------------------------------------------------
  16 : C
  17 : C Langage : FORTRAN 77
  18 : C
  19 : C Mise en oeuvre : H. Paillère (1997, TTMF)
  20 : C
  21 : C---------------------------------------------------------------------
  22 :       IMPLICIT INTEGER(I-N)
  23 :       IMPLICIT REAL*8 (A-H,O-Z)
  24 :       REAL*8 MUI(7)
  25 : C
  26 :       T2 = T * T
  27 :       MUI(1) = (0.394D0 + 4.97D-3*T - 1.35D-6*T2) * 1.D-5
  28 :       MUI(2) = (0.428D0 + 5.9D-3*T  - 1.51D-6*T2) * 1.D-5
  29 :       MUI(3) = (0.553D0 + 7.27D-4*T + 1.36D-6*T2) * 1.D-5
  30 :       MUI(4) = (-0.103D0 + 3.61D-3*T) * 1.D-5
  31 : C
  32 :       MUI(5) = (0.5865D-6 * T**1.63D0)/(T + 27.183D0)
  33 :       MUI(6) = (0.1360D-6 * T**1.81D0)/(T - 59.30D0)
  34 :       MUI(7) = (0.5730D-6 * T**1.62D0)/(T + 46.45D0)
  35 : C
  36 :       RETURN
  37 :       END
  38 : 
  39 : 
  40 :  
  41 :  
  42 :  
  43 :