/[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 51 by guez, Wed Aug 24 11:43:14 2011 UTC revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC
# Line 20  contains Line 20  contains
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.51  
changed lines
  Added in v.52
  ViewVC Help
Powered by ViewVC 1.1.21