Sources Esope | Cast3M

fla005
C FLA005    SOURCE    TTMF3     12/07/05    21:15:25     7425
      SUBROUTINE FLA005(T,MUI)
C---------------------------------------------------------------------
C Calcul de la viscosité dynamique de chaque constituant du mélange
C (en kg/m/s) en fonction de la température (en K)
C---------------------------------------------------------------------
C
C---------------------------
C Parametres Entree/Sortie :
C---------------------------
C
C E/  T      : flottant : Température de référence (K)
C  /S MUI(7) : flottant : Viscosité de chaque constituant (kg/m/s)
C
C---------------------------------------------------------------------
C
C Langage : FORTRAN 77
C
C Mise en oeuvre : H. Paillère (1997, TTMF)
C
C---------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      REAL*8 MUI(7)
C
      T2 = T * T
      MUI(1) = (0.394D0 + 4.97D-3*T - 1.35D-6*T2) * 1.D-5
      MUI(2) = (0.428D0 + 5.9D-3*T  - 1.51D-6*T2) * 1.D-5
      MUI(3) = (0.553D0 + 7.27D-4*T + 1.36D-6*T2) * 1.D-5
      MUI(4) = (-0.103D0 + 3.61D-3*T) * 1.D-5
C
      MUI(5) = (0.5865D-6 * T**1.63D0)/(T + 27.183D0)
      MUI(6) = (0.1360D-6 * T**1.81D0)/(T - 59.30D0)
      MUI(7) = (0.5730D-6 * T**1.62D0)/(T + 46.45D0)
C
      RETURN
      END