Télécharger bcalq0.eso

Retour à la liste

Numérotation des lignes :

  1. C BCALQ0 SOURCE DURA 06/07/11 21:16:14 5481
  2. SUBROUTINE BCALQ0(PE,PVE,TE,PS,XL,E,B,RUG,Q0,RECU,XKUL,XKUT1,
  3. * XKUT2,XKUT3,XKUT4)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6. C
  7. C operateur FUITE
  8. C>>> calcule un debit d'initialisation en supposant le fluide
  9. C isotherme a la temperature d'injection TE
  10. C RECU,XKUL,XKUT1,XKUT2,XKUT3,XKUT4 : coef lois de frot utilisateur
  11. C
  12. CALL BPHYS(T0,P0,RA,RV,CA,CV,CL,XLAT,ROL,XKL,XKT,REL)
  13. Q=10.
  14. RO = PE/RA/TE
  15. PHI=0.001
  16. XMU= BMUG(TE,PHI,T0)
  17. DO 1 I=1,20
  18. RE = Q*2*E/XMU
  19. Q =BKFRO(RE,REL,XKL,XKT,2*E,RUG,RECU,XKUL,XKUT1,XKUT2,XKUT3,XKUT4)
  20. Q =4*E*RO*(PE-PS)/Q/XL
  21. Q = SQRT(Q)
  22. 1 CONTINUE
  23. Q0=Q
  24. RETURN
  25. END
  26.  
  27.  
  28.  
  29.  
  30.  

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