/[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 64 by guez, Wed Aug 29 14:47:17 2012 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 conf_gcm_m    function bernoui(phi, ecin)
8        use filtreg_m, only: filtreg  
9        IMPLICIT NONE      ! From LMDZ4/libf/dyn3d/bernoui.F, version 1.1.1.1 2004/05/19 12:53:06
10    
11  c=======================================================================      ! Author: P. Le Van
12  c  
13  c   Auteur:   P. Le Van      ! Objet : calcul de la fonction de Bernouilli aux niveaux s.
14  c   -------  
15  c      USE dimens_m, ONLY: iim, jjm, llm
16  c   Objet:      USE filtreg_m, ONLY: filtreg
17  c   ------  
18  c     calcul de la fonction de Bernouilli aux niveaux s  .....      REAL, INTENT(IN):: phi(:, :, :), ecin (:, :, :) ! (iim + 1, jjm + 1, llm)
19  c     phi  et  ecin  sont des arguments d'entree pour le s-pg .......  
20  c          bern       est un  argument de sortie pour le s-pg  ......      REAL bernoui(iim + 1, jjm + 1, llm)
21  c      ! fonction de Bernouilli = filtre de (géopotentiel + énergie cinétique)
22  c    fonction de Bernouilli = bern = filtre de( geopotentiel +  
23  c                              energ.cinet.)      !-----------------------------------------------------------------------
24  c  
25  c=======================================================================      bernoui = phi + ecin
26  c      CALL filtreg(bernoui, direct = .true., intensive = .true.)
27  c-----------------------------------------------------------------------  
28  c   Decalrations:    END function bernoui
29  c   -------------  
30  c  end module bernoui_m
 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.)  
 c  
 c-----------------------------------------------------------------------  
       RETURN  
       END  
Legend:
Removed from v.64  
changed lines
  Added in v.133
  ViewVC Help
Powered by ViewVC 1.1.21