7 |
! ******************************************************************** |
! ******************************************************************** |
8 |
! |
! |
9 |
! -------------------------------------------------------------------- |
! -------------------------------------------------------------------- |
10 |
use dimens_m |
use dimensions |
11 |
use paramet_m |
use paramet_m |
12 |
use comconst |
use comconst |
13 |
use disvert_m |
use disvert_m |
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 temps1,temps2,temps3,temps4,temps5 |
|
|
SAVE 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 |
|
|