My Project
 All Classes Files Functions Variables Macros
convmas1_p.F
Go to the documentation of this file.
1  SUBROUTINE convmas1_p (pbaru, pbarv, convm )
2 c
3  USE parallel
4  IMPLICIT NONE
5 
6 c=======================================================================
7 c
8 c Auteurs: P. Le Van , F. Hourdin .
9 c -------
10 c
11 c Objet:
12 c ------
13 c
14 c ********************************************************************
15 c .... calcul de la convergence du flux de masse aux niveaux p ...
16 c ********************************************************************
17 c
18 c
19 c pbaru et pbarv sont des arguments d'entree pour le s-pg ....
20 c ..... convm est un argument de sortie pour le s-pg ....
21 c
22 c le calcul se fait de haut en bas,
23 c la convergence de masse au niveau p(llm+1) est egale a 0. et
24 c n'est pas stockee dans le tableau convm .
25 c
26 c
27 c=======================================================================
28 c
29 c Declarations:
30 c -------------
31 
32 #include "dimensions.h"
33 #include "paramet.h"
34 #include "comvert.h"
35 #include "logic.h"
36 
37  REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
38  REAL, target :: convm( ip1jmp1,llm )
39  INTEGER l,ij
40 
41  INTEGER ijb,ije,jjb,jje
42 
43 
44 c-----------------------------------------------------------------------
45 c .... calcul de - (d(pbaru)/dx + d(pbarv)/dy ) ......
46 
47  CALL convflu_p( pbaru, pbarv, llm, convm )
48 
49 c-----------------------------------------------------------------------
50 c filtrage:
51 c ---------
52 
53  jjb=jj_begin
54  jje=jj_end+1
55  if (pole_sud) jje=jj_end
56 
57  CALL filtreg_p( convm, jjb, jje, jjp1, llm, 2, 2, .true., 1 )
58 
59 c integration de la convergence de masse de haut en bas ......
60 c
61  RETURN
62  END