source: LMDZ5/branches/LF-private/libf/dyn3dpar/bernoui.F @ 5394

Last change on this file since 5394 was 630, checked in by Laurent Fairhead, 20 years ago

Import d'une version parallele de la dynamique YM
LF

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