9 |
! From LMDZ4/libf/dyn3d/massbarxy.F, version 1.1.1.1 2004/05/19 12:53:07 |
! From LMDZ4/libf/dyn3d/massbarxy.F, version 1.1.1.1 2004/05/19 12:53:07 |
10 |
|
|
11 |
! Calcule les moyennes en x et y de la masse d'air dans chaque maille. |
! Calcule les moyennes en x et y de la masse d'air dans chaque maille. |
12 |
! Auteurs : P. Le Van, F. Hourdin. |
! Authors: P. Le Van, F. Hourdin. |
13 |
|
|
14 |
|
USE comgeom, ONLY: alpha1, alpha2, alpha3, alpha4 |
15 |
USE dimens_m, ONLY: iim, llm |
USE dimens_m, ONLY: iim, llm |
16 |
USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1 |
USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1 |
|
USE comgeom, ONLY: alpha1, alpha2, alpha3, alpha4 |
|
17 |
|
|
18 |
REAL, intent(in):: masse(ip1jmp1, llm) |
REAL, intent(in):: masse(ip1jmp1, llm) |
19 |
real, intent(out):: massebxy(ip1jm, llm) |
real, intent(out):: massebxy(ip1jm, llm) |