/[lmdze]/trunk/dyn3d/bernoui.f
ViewVC logotype

Diff of /trunk/dyn3d/bernoui.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/libf/dyn3d/bernoui.f revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/dyn3d/bernoui.f revision 133 by guez, Wed Apr 29 15:34:15 2015 UTC
# Line 1  Line 1 
1  !  module bernoui_m
2  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/bernoui.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $  
3  !    IMPLICIT NONE
4        SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)  
5        use dimens_m  contains
6        use paramet_m  
7        use logic    function bernoui(phi, ecin)
8        IMPLICIT NONE  
9        ! From LMDZ4/libf/dyn3d/bernoui.F, version 1.1.1.1 2004/05/19 12:53:06
10  c=======================================================================  
11  c      ! Author: P. Le Van
12  c   Auteur:   P. Le Van  
13  c   -------      ! Objet : calcul de la fonction de Bernouilli aux niveaux s.
14  c  
15  c   Objet:      USE dimens_m, ONLY: iim, jjm, llm
16  c   ------      USE filtreg_m, ONLY: filtreg
17  c     calcul de la fonction de Bernouilli aux niveaux s  .....  
18  c     phi  et  ecin  sont des arguments d'entree pour le s-pg .......      REAL, INTENT(IN):: phi(:, :, :), ecin (:, :, :) ! (iim + 1, jjm + 1, llm)
19  c          bern       est un  argument de sortie pour le s-pg  ......  
20  c      REAL bernoui(iim + 1, jjm + 1, llm)
21  c    fonction de Bernouilli = bern = filtre de( geopotentiel +      ! fonction de Bernouilli = filtre de (géopotentiel + énergie cinétique)
22  c                              energ.cinet.)  
23  c      !-----------------------------------------------------------------------
24  c=======================================================================  
25  c      bernoui = phi + ecin
26  c-----------------------------------------------------------------------      CALL filtreg(bernoui, direct = .true., intensive = .true.)
27  c   Decalrations:  
28  c   -------------    END function bernoui
29  c  
30  c  end module bernoui_m
 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  
Legend:
Removed from v.3  
changed lines
  Added in v.133
  ViewVC Help
Powered by ViewVC 1.1.21