My Project
 All Classes Files Functions Variables Macros
bernoui.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)
5  IMPLICIT NONE
6 
7 c=======================================================================
8 c
9 c Auteur: P. Le Van
10 c -------
11 c
12 c Objet:
13 c ------
14 c calcul de la fonction de Bernouilli aux niveaux s .....
15 c phi et ecin sont des arguments d'entree pour le s-pg .......
16 c bern est un argument de sortie pour le s-pg ......
17 c
18 c fonction de Bernouilli = bern = filtre de( geopotentiel +
19 c energ.cinet.)
20 c
21 c=======================================================================
22 c
23 c-----------------------------------------------------------------------
24 c Decalrations:
25 c -------------
26 c
27 #include "dimensions.h"
28 #include "paramet.h"
29 #include "logic.h"
30 c
31 c Arguments:
32 c ----------
33 c
34  INTEGER nlay,ngrid
35  REAL pphi(ngrid*nlay),pecin(ngrid*nlay),pbern(ngrid*nlay)
36 c
37 c Local:
38 c ------
39 c
40  INTEGER ijl
41 c
42 c-----------------------------------------------------------------------
43 c calcul de Bernouilli:
44 c ---------------------
45 c
46  DO 4 ijl = 1,ngrid*nlay
47  pbern( ijl ) = pphi( ijl ) + pecin( ijl )
48  4 CONTINUE
49 c
50 c-----------------------------------------------------------------------
51 c filtre:
52 c -------
53 c
54  CALL filtreg( pbern, jjp1, llm, 2,1, .true., 1 )
55 c
56 c-----------------------------------------------------------------------
57  RETURN
58  END