source: trunk/LMDZ.COMMON/libf/dyn3dpar/convmas2_p.F @ 3537

Last change on this file since 3537 was 1422, checked in by milmd, 10 years ago

In GENERIC, MARS and COMMON models replace some include files by modules (usefull for decoupling physics with dynamics).

File size: 1.4 KB
Line 
1      SUBROUTINE convmas2_p ( convm )
2c
3      USE parallel_lmdz
4      IMPLICIT NONE
5
6c=======================================================================
7c
8c   Auteurs:  P. Le Van , F. Hourdin  .
9c   -------
10c
11c   Objet:
12c   ------
13c
14c   ********************************************************************
15c   .... calcul de la convergence du flux de masse aux niveaux p ...
16c   ********************************************************************
17c
18c
19c     pbaru  et  pbarv  sont des arguments d'entree pour le s-pg  ....
20c      .....  convm      est  un argument de sortie pour le s-pg  ....
21c
22c    le calcul se fait de haut en bas,
23c    la convergence de masse au niveau p(llm+1) est egale a 0. et
24c    n'est pas stockee dans le tableau convm .
25c
26c
27c=======================================================================
28c
29c   Declarations:
30c   -------------
31
32#include "dimensions.h"
33#include "paramet.h"
34
35      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
36      REAL :: convm(  ip1jmp1,llm )
37      INTEGER   l,ij
38      INTEGER ijb,ije,jjb,jje
39 
40c$OMP MASTER
41c    integration de la convergence de masse de haut  en bas ......
42       ijb=ij_begin
43       ije=ij_end+iip1
44       if (pole_sud) ije=ij_end
45           
46      DO      l      = llmm1, 1, -1
47        DO    ij     = ijb, ije
48         convm(ij,l) = convm(ij,l) + convm(ij,l+1)
49        ENDDO
50      ENDDO
51c
52c$OMP END MASTER
53      RETURN
54      END
Note: See TracBrowser for help on using the repository browser.