Télécharger dyfpdc.eso

Retour à la liste

Numérotation des lignes :

  1. C DYFPDC SOURCE CHAT 05/01/12 23:09:32 5004
  2. SUBROUTINE DYFPDC(XDH,XDEP,XVIT,XJEU,XCPEL,XCPRA,XFP,iannul)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. *--------------------------------------------------------------------*
  6. * *
  7. * Op{rateur DYNE : algorithme de Fu - de Vogelaere *
  8. * ________________________________________________ *
  9. * *
  10. * Calcul de la force de convection. *
  11. * *
  12. * Param}tres: *
  13. * *
  14. * e XDEP Valeur du d{placement *
  15. * e XVIT Valeur de la vitesse *
  16. * e XJEU Valeur du jeu *
  17. * e XCPEL coefficient de perte de charge d'{loignement *
  18. * e XCPRA coefficient de perte de charge de rapprochement *
  19. * s XFP Valeur de la force de convection *
  20. * *
  21. * Auteur, date de cr{ation: *
  22. * *
  23. * Lionel VIVAN, le 20 mars 1991. *
  24. * *
  25. *--------------------------------------------------------------------*
  26. *
  27. XFP = 0.D0
  28. XDH2 = XDH * XDH
  29. XAVIT = ABS( XVIT )
  30. IF (iannul.EQ.0) THEN
  31. IF (XVIT.LE.0.D0) THEN
  32. XFP = -XCPRA * XVIT * XAVIT / XDH2
  33. ELSE
  34. XFP = -XCPEL * XVIT * XAVIT / XDH2
  35. ENDIF
  36. ENDIF
  37. *
  38. END
  39.  
  40.  
  41.  

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