1 : C DYFCON SOURCE CHAT 05/01/12 23:08:11 5004
2 : SUBROUTINE DYFCON(XDH,XDEP,XVIT,XJEU,XCC,XFC,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 XCC Valeur du coefficient de convection *
18 : * s XFC Valeur de la force de convection *
19 : * *
20 : * Auteur, date de cr{ation: *
21 : * *
22 : * Lionel VIVAN, le 20 mars 1991. *
23 : * *
24 : *--------------------------------------------------------------------*
25 : *
26 : IF (iannul.EQ.0) THEN
27 : XDH2 = XDH * XDH
28 : XFC = -XCC * XVIT * XVIT / XDH2
29 : ELSE
30 : XFC = 0.D0
31 : ENDIF
32 : *
33 : END
34 :
35 :
© Cast3M 2003 - All rights reserved.
Disclaimer