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

Diff of /trunk/phylmd/concvl.f

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

revision 183 by guez, Wed Mar 16 14:42:58 2016 UTC revision 189 by guez, Tue Mar 29 15:20:23 2016 UTC
# Line 6  contains Line 6  contains
6    
7    SUBROUTINE concvl(dtime, paprs, play, t, q, u, v, sig1, w01, d_t, d_q, d_u, &    SUBROUTINE concvl(dtime, paprs, play, t, q, u, v, sig1, w01, d_t, d_q, d_u, &
8         d_v, rain, kbas, itop_con, upwd, dnwd, dnwd0, ma, cape, iflag, qcondc, &         d_v, rain, kbas, itop_con, upwd, dnwd, dnwd0, ma, cape, iflag, qcondc, &
9         wd, pmflxr, da, phi, mp)         pmflxr, da, phi, mp)
10    
11      ! 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
12      ! Author: Z. X. Li (LMD/CNRS)      ! Author: Z. X. Li (LMD/CNRS)
# Line 22  contains Line 22  contains
22      REAL, INTENT (IN):: dtime ! pas d'integration (s)      REAL, INTENT (IN):: dtime ! pas d'integration (s)
23      REAL, INTENT (IN):: paprs(klon, klev + 1)      REAL, INTENT (IN):: paprs(klon, klev + 1)
24      REAL, INTENT (IN):: play(klon, klev)      REAL, INTENT (IN):: play(klon, klev)
25      REAL, intent(in):: t(klon, klev)      REAL, intent(in):: t(klon, klev) ! temperature (K)
26      real, intent(in):: q(klon, klev) ! vapeur d'eau (en kg / kg)      real, intent(in):: q(klon, klev) ! fraction massique de vapeur d'eau
27      real, INTENT (IN):: u(klon, klev), v(klon, klev)      real, INTENT (IN):: u(klon, klev), v(klon, klev)
28      REAL, intent(inout):: sig1(klon, klev), w01(klon, klev)      REAL, intent(inout):: sig1(klon, klev), w01(klon, klev)
29      REAL, intent(out):: d_t(klon, klev)      REAL, intent(out):: d_t(klon, klev)
# Line 46  contains Line 46  contains
46      real cape(klon) ! output (J / kg)      real cape(klon) ! output (J / kg)
47      INTEGER iflag(klon)      INTEGER iflag(klon)
48      REAL qcondc(klon, klev)      REAL qcondc(klon, klev)
     REAL wd(klon)  
49      REAL pmflxr(klon, klev + 1)      REAL pmflxr(klon, klev + 1)
50      REAL, intent(inout):: da(klon, klev), phi(klon, klev, klev), mp(klon, klev)      REAL, intent(inout):: da(klon, klev), phi(klon, klev, klev), mp(klon, klev)
51    
# Line 67  contains Line 66  contains
66    
67      CALL cv_driver(t, q, qs, u, v, play / 100., paprs / 100., iflag, d_t, &      CALL cv_driver(t, q, qs, u, v, play / 100., paprs / 100., iflag, d_t, &
68           d_q, d_u, d_v, rain, pmflxr, sig1, w01, kbas, itop_con, dtime, ma, &           d_q, d_u, d_v, rain, pmflxr, sig1, w01, kbas, itop_con, dtime, ma, &
69           upwd, dnwd, dnwd0, qcondc, wd, cape, da, phi, mp)           upwd, dnwd, dnwd0, qcondc, cape, da, phi, mp)
   
70      rain = rain / 86400.      rain = rain / 86400.
71      d_t = dtime * d_t      d_t = dtime * d_t
72      d_q = dtime * d_q      d_q = dtime * d_q
Legend:
Removed from v.183  
changed lines
  Added in v.189
  ViewVC Help
Powered by ViewVC 1.1.21