doxy_201512/html/bernoui_8_f_source.html

 !

 ! $Header$

 !

       SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)

       IMPLICIT NONE


 c=======================================================================

 c

 c   Auteur:   P. Le Van

 c   -------

 c

 c   Objet:

 c   ------

 c     calcul de la fonction de Bernouilli aux niveaux s  .....

 c     phi  et  ecin  sont des arguments d'entree pour le s-pg .......

 c          bern       est un  argument de sortie pour le s-pg  ......

 c

 c    fonction de Bernouilli = bern = filtre de( geopotentiel +

 c                              energ.cinet.)

 c

 c=======================================================================

 c

 c-----------------------------------------------------------------------

 c   Decalrations:

 c   -------------

 c

 #include "dimensions.h"

 #include "paramet.h"

 #include "logic.h"

 c

 c   Arguments:

 c   ----------

 c

       INTEGER nlay,ngrid

       REAL pphi(ngrid*nlay),pecin(ngrid*nlay),pbern(ngrid*nlay)

 c

 c   Local:

 c   ------

 c

       INTEGER   ijl

 c

 c-----------------------------------------------------------------------

 c   calcul de Bernouilli:

 c   ---------------------

 c

       DO 4 ijl = 1,ngrid*nlay

          pbern( ijl ) =  pphi( ijl ) + pecin( ijl )

    4  CONTINUE

 c

 c-----------------------------------------------------------------------

 c   filtre:

 c   -------

 c

       CALL filtreg( pbern, jjp1, llm, 2,1, .true., 1 )

 c

 c-----------------------------------------------------------------------

       RETURN

       END

llm
!$Id Turb_fcg_gcssold get_uvd hqturb_gcssold endif!large scale llm day day1 day day1 *dt_toga endif!time annee_ref dt_toga u_toga vq_toga w_prof vq_prof llm day day1 day day1 *dt_dice endif!time annee_ref dt_dice swup_dice vg_dice omega_dice tg_prof vg_profd w_profd omega_profd!do llm!print llm l llm
Definition: 1D_interp_cases.h:103

bernoui
subroutine bernoui(ngrid, nlay, pphi, pecin, pbern)
Definition: bernoui.F:5

jjp1
!$Header jjp1
Definition: paramet.h:14

true
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL true
Definition: calcul_STDlev.h:139

filtreg
subroutine filtreg(champ, nlat, nbniv, ifiltre, iaire, griscal, iter)
Definition: filtreg.F:6