source: LMDZ.3.3/trunk/libf/dyn3d/bernoui.F @ 5306

Last change on this file since 5306 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.4 KB
RevLine 
[2]1      SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)
2      IMPLICIT NONE
3
4c=======================================================================
5c
6c   Auteur:   P. Le Van
7c   -------
8c
9c   Objet:
10c   ------
11c     calcul de la fonction de Bernouilli aux niveaux s  .....
12c     phi  et  ecin  sont des arguments d'entree pour le s-pg .......
13c          bern       est un  argument de sortie pour le s-pg  ......
14c
15c    fonction de Bernouilli = bern = filtre de( geopotentiel +
16c                              energ.cinet.)
17c
18c=======================================================================
19c
20c-----------------------------------------------------------------------
21c   Decalrations:
22c   -------------
23c
24#include "dimensions.h"
25#include "paramet.h"
26#include "logic.h"
27c
28c   Arguments:
29c   ----------
30c
31      INTEGER nlay,ngrid
32      REAL pphi(ngrid*nlay),pecin(ngrid*nlay),pbern(ngrid*nlay)
33c
34c   Local:
35c   ------
36c
37      INTEGER   ijl
38      EXTERNAL  filtreg
39c
40c-----------------------------------------------------------------------
41c   calcul de Bernouilli:
42c   ---------------------
43c
44      DO 4 ijl = 1,ngrid*nlay
45         pbern( ijl ) =  pphi( ijl ) + pecin( ijl )
46   4  CONTINUE
47c
48c-----------------------------------------------------------------------
49c   filtre:
50c   -------
51c
52      CALL filtreg( pbern, jjp1, llm, 2,1, .true., 1 )
53c
54c-----------------------------------------------------------------------
55      RETURN
56      END
Note: See TracBrowser for help on using the repository browser.