1 : C DYFVIS SOURCE CHAT 05/01/12 23:09:47 5004
2 : SUBROUTINE DYFVIS(XDH,XDEP,XVIT,XJEU,XCV,XFV,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 viscosit{. *
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 XCV Valeur du coefficient de viscosit{ *
18 : * s XFV Valeur de la force de viscosit{ *
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 : XDH3 = XDH * XDH * XDH
28 : XFV = -XCV * XVIT / XDH3
29 : ELSE
30 : XFV = 0.D0
31 : ENDIF
32 : *
33 : END
34 :
35 :
© Cast3M 2003 - All rights reserved.
Disclaimer