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,testcpu |
|
|
SAVE first,testcpu |
|
|
|
|
|
REAL SSUM |
|
|
REAL temps0,temps1,temps2,temps3,temps4,temps5 |
|
|
SAVE temps0,temps1,temps2,temps3,temps4,temps5 |
|
|
|
|
|
|
|
|
DATA first,testcpu/.true.,.false./ |
|
|
|
|
|
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 |
|
|