source: LMDZ6/trunk/libf/dyn3d_common/bernoui.f90 @ 5273

!
! $Header$
!
SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)
  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
IMPLICIT NONE

  !=======================================================================
  !
  !   Auteur:   P. Le Van
  !   -------
  !
  !   Objet:
  !   ------
  ! calcul de la fonction de Bernouilli aux niveaux s  .....
  ! phi  et  ecin  sont des arguments d'entree pour le s-pg .......
  !      bern       est un  argument de sortie pour le s-pg  ......
  !
  !    fonction de Bernouilli = bern = filtre de( geopotentiel +
  !                          energ.cinet.)
  !
  !=======================================================================
  !
  !-----------------------------------------------------------------------
  !   Decalrations:
  !   -------------
  !


  !
  !   Arguments:
  !   ----------
  !
  INTEGER :: nlay,ngrid
  REAL :: pphi(ngrid*nlay),pecin(ngrid*nlay),pbern(ngrid*nlay)
  !
  !   Local:
  !   ------
  !
  INTEGER :: ijl
  !
  !-----------------------------------------------------------------------
  !   calcul de Bernouilli:
  !   ---------------------
  !
  DO ijl = 1,ngrid*nlay
     pbern( ijl ) =  pphi( ijl ) + pecin( ijl )
  END DO
  !
  !-----------------------------------------------------------------------
  !   filtre:
  !   -------
  !
  CALL filtreg( pbern, jjp1, llm, 2,1, .true., 1 )
  !
  !-----------------------------------------------------------------------
  RETURN
END SUBROUTINE bernoui