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 :
© Cast3M 2003 - All rights reserved.
Disclaimer