Télécharger la plaquette Cast3M


fr en

Télécharger equa2.eso

Retour à la liste

Numérotation des lignes : 

equa2

  1. C EQUA2     SOURCE    CHAT      05/01/12    23:44:20     5004
  2. C***********************************************************************
  3. C*                                                                     *
  4. C* PROJET      : Opérateur CLMI                                        *
  5. C* NOM         : equa1, equa2,equa3                                    *
  6. C* DESCRIPTION : Dans ce fichier, il s'agit de trois fonctions qui     *
  7. C*               calculent les valeurs des équations du système des    *
  8. C*               relations de fermeture de Cousteix                    *
  9. C* LANGAGE     : Esope                                                 *
  10. C* AUTEUR      : Guillaume VENCO - DRN/DMT/SEMT/LTMF                   *
  11. C*                                                                     *
  12. C***********************************************************************
  13. C*                                                                     *
  14. C* APPELES     : Aucun                                                 *
  15. C*                                                                     *
  16. C***********************************************************************
  17. C*                                                                     *
  18. C* ENTREES     : H   : -Facteur de forme                               *
  19. C*               G   : -Paramètre de Clauser                           *
  20. C*               HH  : -Facteur H*,c orrespond au rapport Y1N/D2N      *
  21. C*                      limite                                         *
  22. C*               ga  : -Facteur de frottement gamma                    *
  23. C*               RD1 : -Nombre de Reynolds calculé sur l'épaisseur     *
  24. C*                      d'entrainement                                 *
  25. C*                                                                     *
  26. C* SORTIES     : equa1 : -Valeur de la relation 1                      *
  27. C*               equa2 : -Valeur de la relation 2                      *
  28. C*               equa3 : -Valeur de la relation 3                      *
  29. C*                                                                     *
  30. C***********************************************************************
  31. C*                                                                     *
  32. C* VERSION     : 20/04/2000                                            *
  33. C* CREATION    :                                                       *
  34. C*                                                                     *
  35. C***********************************************************************
  36.  
  37. C*       *********************************
  38. C*       ********** EQUATION 2 ***********
  39. C*       *********************************
  40.  
  41.       DOUBLE PRECISION FUNCTION equa2(G,ga,RD1)
  42.       IMPLICIT INTEGER(I-N)
  43.         IMPLICIT REAL*8 (A-H,O-Z)
  44.         REAL*8 G,ga,RD1
  45.         equa2= (1./0.41)*log(RD1)+2*G-4.25*sqrt(G)+2.12-(1./ga)
  46.         RETURN
  47.       END
  48.  
  49.  
  50.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales