Télécharger bphys.eso

Retour à la liste

Numérotation des lignes :

  1. C BPHYS SOURCE CHAT 05/01/12 21:42:20 5004
  2. SUBROUTINE BPHYS(T0,P0,RA,RV,CA,CV,CL,XLAT,ROL,XKL,XKT,REL)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C
  6. C operateur FUITE
  7. C>>> definit des proprietes physiques ou des grandeurs de reference
  8. C
  9. C param}tres de sortie
  10. C T0,P0 :
  11. C RA,RV : constante gaz parfait air, vapeur
  12. C CA,CV,CL : chaleur massique air, vapeur, eau liquide
  13. C XLAT : chaleur latente
  14. C ROL : masse volumique liquide
  15. C XKL : pour la loi de frottement en laminaire
  16. C XKT : turbulent lisse
  17. C REL : Reynolds de transition laminaire-turbulent
  18. C
  19. T0 = 273.15
  20. P0 = 1.D5
  21. RA = 287.
  22. RV = 462.
  23. CA=1.D3
  24. CV=2.2D3
  25. CL=4.2D3
  26. XLAT=2.976D6
  27. ROL =1.D3
  28. XKL=96.
  29. XKT=.316
  30. REL=2042.
  31. RETURN
  32. END
  33.  
  34.  
  35.  
  36.  
  37.  

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