/[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/dyn3d/bernoui.f revision 76 by guez, Fri Nov 15 18:45:49 2013 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 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, intent(in):: pphi(ngrid*nlay),pecin(ngrid*nlay)    INTEGER nlay, ngrid
37        real pbern(ngrid*nlay)    REAL, INTENT (IN) :: pphi(ngrid*nlay), pecin(ngrid*nlay)
38  c    REAL pbern(ngrid*nlay)
39  c   Local:  
40  c   ------    ! Local:
41  c    ! ------
42        INTEGER   ijl  
43  c    INTEGER ijl
44  c-----------------------------------------------------------------------  
45  c   calcul de Bernouilli:    ! -----------------------------------------------------------------------
46  c   ---------------------    ! calcul de Bernouilli:
47  c    ! ---------------------
48        DO 4 ijl = 1,ngrid*nlay  
49           pbern( ijl ) =  pphi( ijl ) + pecin( ijl )    DO ijl = 1, ngrid*nlay
50     4  CONTINUE      pbern(ijl) = pphi(ijl) + pecin(ijl)
51  c    END DO
52  c-----------------------------------------------------------------------  
53  c   filtre:    ! -----------------------------------------------------------------------
54  c   -------    ! filtre:
55  c    ! -------
56        CALL filtreg( pbern, jjp1, llm, 2,1, .true.)  
57  c    CALL filtreg(pbern, jjp1, llm, 2, 1, .TRUE.)
58  c-----------------------------------------------------------------------  
59        RETURN    ! -----------------------------------------------------------------------
60        END    RETURN
61    END SUBROUTINE bernoui
Legend:
Removed from v.76  
changed lines
  Added in v.81
  ViewVC Help
Powered by ViewVC 1.1.21