/[lmdze]/trunk/phylmd/cvltr.f
ViewVC logotype

Diff of /trunk/phylmd/cvltr.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 62 by guez, Thu Jul 26 14:37:37 2012 UTC
# Line 1  Line 1 
1  c  c
2  c $Header: /home/cvsroot/LMDZ4/libf/phylmd/cvltr.F,v 1.1 2005/04/15 12:36:17 lmdzadmin Exp $  c $Header: /home/cvsroot/LMDZ4/libf/phylmd/cvltr.F,v 1.1 2005/04/15 12:36:17 lmdzadmin Exp $
3  c  c
4        SUBROUTINE cvltr(pdtime,da, phi, mp,paprs,pplay,x,upd,dnd,dx)        SUBROUTINE cvltr(pdtime,da, phi, mp,paprs,x,upd,dnd,dx)
5        use dimens_m        use dimens_m
6        use dimphy        use dimphy
7        use YOMCST        use SUPHEC_M
8                use yoecumf
9        IMPLICIT NONE        IMPLICIT NONE
10  c=====================================================================  c=====================================================================
11  c Objet : convection des traceurs / KE  c Objet : convection des traceurs / KE
12  c Auteurs: M-A Filiberti and J-Y Grandpeix  c Auteurs: M-A Filiberti and J-Y Grandpeix
13  c=====================================================================  c=====================================================================
14  c  c
       include "YOECUMF.h"  
15  c  c
16        REAL pdtime        REAL, intent(in):: pdtime
17        REAL, intent(in):: paprs(klon,klev+1) ! pression aux 1/2 couches (bas en haut)        REAL, intent(in):: paprs(klon,klev+1) ! pression aux 1/2 couches (bas en haut)
18        REAL pplay(klon,klev)  ! pression pour le milieu de chaque couche        REAL, intent(in):: x(klon,klev)        ! q de traceur (bas en haut)
       REAL x(klon,klev)        ! q de traceur (bas en haut)  
19        REAL dx(klon,klev)     ! tendance de traceur  (bas en haut)        REAL dx(klon,klev)     ! tendance de traceur  (bas en haut)
20        real da(klon,klev),phi(klon,klev,klev),mp(klon,klev)        real da(klon,klev),phi(klon,klev,klev),mp(klon,klev)
21        REAL upd(klon,klev)      ! saturated updraft mass flux        REAL, intent(in):: upd(klon,klev)      ! saturated updraft mass flux
22        REAL dnd(klon,klev)      ! saturated downdraft mass flux        REAL, intent(in):: dnd(klon,klev)      ! saturated downdraft mass flux
23  c  c
24  c--variables locales        c--variables locales      
25        real zed(klon,klev),zmd(klon,klev,klev)        real zed(klon,klev),zmd(klon,klev,klev)
Legend:
Removed from v.3  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.21