Parent Directory | Revision Log | Patch
revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC | revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC | |
---|---|---|
# | Line 35 | Line 35 |
35 | REAL adxqu(ip1jmp1),dxqmax(ip1jmp1,llm) | REAL adxqu(ip1jmp1),dxqmax(ip1jmp1,llm) |
36 | REAL u_mq(ip1jmp1,llm) | REAL u_mq(ip1jmp1,llm) |
37 | ||
Logical first | ||
SAVE first | ||
REAL temps1,temps2,temps3,temps4,temps5 | ||
SAVE temps1,temps2,temps3,temps4,temps5 | ||
DATA first/.true./ | ||
IF(first) THEN | ||
temps1=0. | ||
temps2=0. | ||
temps3=0. | ||
temps4=0. | ||
temps5=0. | ||
first=.false. | ||
ENDIF | ||
38 | ! calcul de la pente a droite et a gauche de la maille | ! calcul de la pente a droite et a gauche de la maille |
39 | ||
40 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |