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