My Project
 All Classes Files Functions Variables Macros
massbarxy.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  SUBROUTINE massbarxy( masse, massebxy )
5 c
6 c **********************************************************************
7 c
8 c Calcule les moyennes en x et y de la masse d'air dans chaque maille.
9 c **********************************************************************
10 c Auteurs : P. Le Van , Fr. Hourdin .
11 c ..........
12 c
13 c .. masse est un argum. d'entree pour le s-pg ...
14 c .. massebxy est un argum. de sortie pour le s-pg ...
15 c
16 c
17 c IMPLICIT NONE
18 c
19 #include "dimensions.h"
20 #include "paramet.h"
21 #include "comconst.h"
22 #include "comgeom.h"
23 c
24  REAL masse( ip1jmp1,llm ), massebxy( ip1jm,llm )
25 c
26 
27  DO 100 l = 1 , llm
28 c
29  DO 5 ij = 1, ip1jm - 1
30  massebxy( ij,l ) = masse( ij ,l ) * alpha2( ij ) +
31  + masse( ij+1 ,l ) * alpha3( ij+1 ) +
32  + masse( ij+iip1,l ) * alpha1( ij+iip1 ) +
33  + masse( ij+iip2,l ) * alpha4( ij+iip2 )
34  5 CONTINUE
35 
36 c .... correction pour massebxy( iip1,j ) ........
37 
38 CDIR$ IVDEP
39 
40  DO 7 ij = iip1, ip1jm, iip1
41  massebxy( ij,l ) = massebxy( ij - iim,l )
42  7 CONTINUE
43 
44 100 CONTINUE
45 c
46  RETURN
47  END