Télécharger la plaquette Cast3M


fr en

Télécharger dyfpdc.eso

Retour à la liste

Numérotation des lignes : 

dyfpdc

  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