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

Diff of /trunk/Sources/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 104 by guez, Thu Sep 4 10:05:52 2014 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    SUBROUTINE bernoui(phi, ecin, bern)
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   -------      ! fonction de Bernouilli = bern = filtre de(geopotentiel + energ.cinet.)
15  c  
16  c   Objet:      USE dimens_m, ONLY: jjm, llm
17  c   ------      USE filtreg_m, ONLY: filtreg
18  c     calcul de la fonction de Bernouilli aux niveaux s  .....  
19  c     phi  et  ecin  sont des arguments d'entree pour le s-pg .......      REAL, INTENT(IN):: phi(:, :, :), ecin (:, :, :)! (iim + 1, jjm + 1, llm)
20  c          bern       est un  argument de sortie pour le s-pg  ......      REAL, intent(out):: bern(:, :, :) ! (iim + 1, jjm + 1, llm)
21  c  
22  c    fonction de Bernouilli = bern = filtre de( geopotentiel +      !-----------------------------------------------------------------------
23  c                              energ.cinet.)  
24  c      bern = phi + ecin
25  c=======================================================================      CALL filtreg(bern, jjm + 1, llm, 2, 1, .TRUE.)
26  c  
27  c-----------------------------------------------------------------------    END SUBROUTINE bernoui
28  c   Decalrations:  
29  c   -------------  end module bernoui_m
 c  
 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.104
  ViewVC Help
Powered by ViewVC 1.1.21