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