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