11 |
! Auteurs : P. Le Van, F. Hourdin |
! Auteurs : P. Le Van, F. Hourdin |
12 |
! Objet: calcul du flux de masse aux niveaux s |
! Objet: calcul du flux de masse aux niveaux s |
13 |
|
|
|
USE dimens_m, ONLY: iim, llm |
|
|
USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmi1, ip1jmp1 |
|
14 |
USE comgeom, ONLY: aire, aireu |
USE comgeom, ONLY: aire, aireu |
15 |
|
USE dimensions, ONLY: iim, llm |
16 |
|
USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmi1, ip1jmp1 |
17 |
|
|
18 |
REAL, intent(in):: massebx(ip1jmp1, llm), masseby(ip1jm, llm) |
REAL, intent(in):: massebx(ip1jmp1, llm), masseby(ip1jm, llm) |
19 |
real, intent(in):: vcont(ip1jm, llm), ucont(ip1jmp1, llm) |
real, intent(in):: vcont(ip1jm, llm), ucont(ip1jmp1, llm) |