/[lmdze]/trunk/libf/phylmd/concvl.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/concvl.f90

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

revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC
# Line 13  contains Line 13  contains
13      ! From phylmd/concvl.F, version 1.3 2005/04/15 12:36:17      ! From phylmd/concvl.F, version 1.3 2005/04/15 12:36:17
14      ! Author: Z.X. Li (LMD/CNRS)      ! Author: Z.X. Li (LMD/CNRS)
15      ! date: 1993/08/18      ! date: 1993/08/18
16      ! Objet: schema de convection de Emanuel (1991) interface      ! Objet: schéma de convection de Emanuel (1991) interface
17    
18      USE dimens_m, ONLY : nqmx      USE dimens_m, ONLY : nqmx
19      USE dimphy, ONLY : klev, klon      USE dimphy, ONLY : klev, klon
20      USE suphec_m, ONLY : retv, rtt      USE suphec_m, ONLY : retv, rtt
21      USE yoethf_m, ONLY : r2es      USE yoethf_m, ONLY : r2es
22      USE fcttre, ONLY : foeew      USE fcttre, ONLY : foeew
23        use cv_driver_m, only: cv_driver
24    
25      ! Arguments:      ! Arguments:
26      ! dtime--input-R-pas d'integration (s)      ! dtime--input-R-pas d'integration (s)
# Line 58  contains Line 59  contains
59      REAL, INTENT (IN) :: dtime      REAL, INTENT (IN) :: dtime
60      REAL, INTENT (IN) :: paprs(klon, klev+1)      REAL, INTENT (IN) :: paprs(klon, klev+1)
61      REAL, INTENT (IN) :: pplay(klon, klev)      REAL, INTENT (IN) :: pplay(klon, klev)
62      REAL t(klon, klev), q(klon, klev), u(klon, klev), v(klon, klev)      REAL, intent(in):: t(klon, klev)
63        real q(klon, klev), u(klon, klev), v(klon, klev)
64      REAL, INTENT (IN):: tra(klon, klev, ntrac)      REAL, INTENT (IN):: tra(klon, klev, ntrac)
65      INTEGER ntra      INTEGER ntra
66      REAL work1(klon, klev), work2(klon, klev)      REAL work1(klon, klev), work2(klon, klev)
Legend:
Removed from v.47  
changed lines
  Added in v.52
  ViewVC Help
Powered by ViewVC 1.1.21