source: LMDZ5/branches/IPSLCM6.0.11.rc1/libf/dyn3d_common/bernoui.F @ 4188

Last change on this file since 4188 was 2603, checked in by Ehouarn Millour, 8 years ago

Cleanup in the dynamics: turn logic.h into module logic_mod.F90
EM

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • 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"
29c
30c   Arguments:
31c   ----------
32c
33      INTEGER nlay,ngrid
34      REAL pphi(ngrid*nlay),pecin(ngrid*nlay),pbern(ngrid*nlay)
35c
36c   Local:
37c   ------
38c
39      INTEGER   ijl
40c
41c-----------------------------------------------------------------------
42c   calcul de Bernouilli:
43c   ---------------------
44c
45      DO 4 ijl = 1,ngrid*nlay
46         pbern( ijl ) =  pphi( ijl ) + pecin( ijl )
47   4  CONTINUE
48c
49c-----------------------------------------------------------------------
50c   filtre:
51c   -------
52c
53      CALL filtreg( pbern, jjp1, llm, 2,1, .true., 1 )
54c
55c-----------------------------------------------------------------------
56      RETURN
57      END
Note: See TracBrowser for help on using the repository browser.