10 |
! |
! |
11 |
! |
! |
12 |
! ---------------------------------------------------------------- |
! ---------------------------------------------------------------- |
13 |
use dimens_m |
use dimensions |
14 |
use paramet_m |
use paramet_m |
15 |
use comconst |
use comconst |
16 |
use disvert_m |
use disvert_m |
21 |
! |
! |
22 |
! Arguments: |
! Arguments: |
23 |
! ---------- |
! ---------- |
24 |
REAL masse(ip1jmp1,llm),pente_max |
REAL masse(ip1jmp1,llm) |
25 |
|
real, intent(in):: pente_max |
26 |
REAL q(ip1jmp1,llm) |
REAL q(ip1jmp1,llm) |
27 |
REAL w(ip1jmp1,llm+1) |
REAL w(ip1jmp1,llm+1) |
28 |
! |
! |
29 |
! Local |
! Local |
30 |
! --------- |
! --------- |
31 |
! |
! |
32 |
INTEGER i,ij,l,j,ii |
INTEGER ij,l |
33 |
! |
! |
34 |
REAL wq(ip1jmp1,llm+1),newmasse |
REAL wq(ip1jmp1,llm+1),newmasse |
35 |
|
|
36 |
REAL dzq(ip1jmp1,llm),dzqw(ip1jmp1,llm),adzqw(ip1jmp1,llm),dzqmax |
REAL dzq(ip1jmp1,llm),dzqw(ip1jmp1,llm),adzqw(ip1jmp1,llm),dzqmax |
37 |
REAL sigw |
REAL sigw |
38 |
|
|
|
LOGICAL testcpu |
|
|
SAVE testcpu |
|
|
|
|
|
REAL temps0,temps1,temps2,temps3,temps4,temps5,second |
|
|
SAVE temps0,temps1,temps2,temps3,temps4,temps5 |
|
|
REAL SSUM |
|
|
|
|
|
DATA testcpu/.false./ |
|
|
DATA temps0,temps1,temps2,temps3,temps4,temps5/0.,0.,0.,0.,0.,0./ |
|
|
|
|
39 |
! On oriente tout dans le sens de la pression c'est a dire dans le |
! On oriente tout dans le sens de la pression c'est a dire dans le |
40 |
! sens de W |
! sens de W |
41 |
|
|