/[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.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC
# Line 1  Line 1 
1  !  
2  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/bernoui.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/bernoui.F,v 1.1.1.1 2004/05/19
3  !  ! 12:53:06 lmdzadmin Exp $
4        SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)  
5        use dimens_m  SUBROUTINE bernoui(ngrid, nlay, pphi, pecin, pbern)
6        use paramet_m    USE dimens_m
7        use logic    USE paramet_m
8        IMPLICIT NONE    USE conf_gcm_m
9      USE filtreg_m, ONLY: filtreg
10  c=======================================================================    IMPLICIT NONE
11  c  
12  c   Auteur:   P. Le Van    ! =======================================================================
13  c   -------  
14  c    ! Auteur:   P. Le Van
15  c   Objet:    ! -------
16  c   ------  
17  c     calcul de la fonction de Bernouilli aux niveaux s  .....    ! Objet:
18  c     phi  et  ecin  sont des arguments d'entree pour le s-pg .......    ! ------
19  c          bern       est un  argument de sortie pour le s-pg  ......    ! calcul de la fonction de Bernouilli aux niveaux s  .....
20  c    ! phi  et  ecin  sont des arguments d'entree pour le s-pg .......
21  c    fonction de Bernouilli = bern = filtre de( geopotentiel +    ! bern       est un  argument de sortie pour le s-pg  ......
22  c                              energ.cinet.)  
23  c    ! fonction de Bernouilli = bern = filtre de( geopotentiel +
24  c=======================================================================    ! energ.cinet.)
25  c  
26  c-----------------------------------------------------------------------    ! =======================================================================
27  c   Decalrations:  
28  c   -------------    ! -----------------------------------------------------------------------
29  c    ! Decalrations:
30  c    ! -------------
31  c   Arguments:  
32  c   ----------  
33  c    ! Arguments:
34        INTEGER nlay,ngrid    ! ----------
35        REAL pphi(ngrid*nlay),pecin(ngrid*nlay),pbern(ngrid*nlay)  
36  c    INTEGER nlay, ngrid
37  c   Local:    REAL, INTENT (IN) :: pphi(ngrid*nlay), pecin(ngrid*nlay)
38  c   ------    REAL pbern(ngrid*nlay)
39  c  
40        INTEGER   ijl    ! Local:
41  c    ! ------
42  c-----------------------------------------------------------------------  
43  c   calcul de Bernouilli:    INTEGER ijl
44  c   ---------------------  
45  c    ! -----------------------------------------------------------------------
46        DO 4 ijl = 1,ngrid*nlay    ! calcul de Bernouilli:
47           pbern( ijl ) =  pphi( ijl ) + pecin( ijl )    ! ---------------------
48     4  CONTINUE  
49  c    DO ijl = 1, ngrid*nlay
50  c-----------------------------------------------------------------------      pbern(ijl) = pphi(ijl) + pecin(ijl)
51  c   filtre:    END DO
52  c   -------  
53  c    ! -----------------------------------------------------------------------
54        CALL filtreg( pbern, jjp1, llm, 2,1, .true., 1 )    ! filtre:
55  c    ! -------
56  c-----------------------------------------------------------------------  
57        RETURN    CALL filtreg(pbern, jjp1, llm, 2, 1, .TRUE.)
58        END  
59      ! -----------------------------------------------------------------------
60      RETURN
61    END SUBROUTINE bernoui
Legend:
Removed from v.3  
changed lines
  Added in v.81
  ViewVC Help
Powered by ViewVC 1.1.21