My Project
 All Classes Files Functions Variables Macros
bernoui_p.F
Go to the documentation of this file.
1  SUBROUTINE bernoui_p (ngrid,nlay,pphi,pecin,pbern)
2  USE parallel
3  IMPLICIT NONE
4 
5 c=======================================================================
6 c
7 c Auteur: P. Le Van
8 c -------
9 c
10 c Objet:
11 c ------
12 c calcul de la fonction de Bernouilli aux niveaux s .....
13 c phi et ecin sont des arguments d'entree pour le s-pg .......
14 c bern est un argument de sortie pour le s-pg ......
15 c
16 c fonction de Bernouilli = bern = filtre de( geopotentiel +
17 c energ.cinet.)
18 c
19 c=======================================================================
20 c
21 c-----------------------------------------------------------------------
22 c Decalrations:
23 c -------------
24 c
25 #include "dimensions.h"
26 #include "paramet.h"
27 #include "logic.h"
28 c
29 c Arguments:
30 c ----------
31 c
32  INTEGER nlay,ngrid
33  REAL pphi(ngrid,nlay),pecin(ngrid,nlay),pbern(ngrid,nlay)
34 c
35 c Local:
36 c ------
37 c
38  INTEGER ij,l,ijb,ije,jjb,jje
39 c
40 c-----------------------------------------------------------------------
41 c calcul de Bernouilli:
42 c ---------------------
43 c
44  ijb=ij_begin
45  ije=ij_end+iip1
46  if (pole_sud) ije=ij_end
47 
48  jjb=jj_begin
49  jje=jj_end+1
50  if (pole_sud) jje=jj_end
51 
52 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
53  DO l=1,llm
54 
55  DO 4 ij = ijb,ije
56  pbern( ij,l ) = pphi( ij,l ) + pecin( ij,l )
57  4 CONTINUE
58 
59  ENDDO
60 c$OMP END DO NOWAIT
61 c
62 c-----------------------------------------------------------------------
63 c filtre:
64 c -------
65 c
66 
67 
68  CALL filtreg_p( pbern,jjb,jje, jjp1, llm, 2,1, .true., 1 )
69 c
70 c-----------------------------------------------------------------------
71 
72 
73  RETURN
74  END