/[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 189 by guez, Tue Mar 29 15:20:23 2016 UTC revision 206 by guez, Tue Aug 30 12:52:46 2016 UTC
# Line 4  module concvl_m Line 4  module concvl_m
4    
5  contains  contains
6    
7    SUBROUTINE concvl(dtime, paprs, play, t, q, u, v, sig1, w01, d_t, d_q, d_u, &    SUBROUTINE concvl(paprs, play, t, q, u, v, sig1, w01, d_t, d_q, d_u, d_v, &
8         d_v, rain, kbas, itop_con, upwd, dnwd, dnwd0, ma, cape, iflag, qcondc, &         rain, kbas, itop_con, upwd, dnwd, ma, cape, iflag, qcondc, pmflxr, da, &
9         pmflxr, da, phi, mp)         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)
13      ! Date: 1993 August 18      ! Date: 1993 August 18
14      ! Objet : schéma de convection d'Emanuel (1991), interface      ! Objet : schéma de convection d'Emanuel (1991), interface
15    
16        use comconst, only: dtphys
17      use cv_driver_m, only: cv_driver      use cv_driver_m, only: cv_driver
18      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
19      USE fcttre, ONLY: foeew      USE fcttre, ONLY: foeew
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    
     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) ! temperature (K)      REAL, intent(in):: t(klon, klev) ! temperature (K)
# Line 39  contains Line 39  contains
39      real, intent(out):: dnwd(klon, klev)      real, intent(out):: dnwd(klon, klev)
40      ! saturated downdraft mass flux (kg / m2 / s)      ! saturated downdraft mass flux (kg / m2 / s)
41    
     real, intent(out):: dnwd0(klon, klev)  
     ! unsaturated downdraft mass flux (kg / m2 / s)  
   
42      REAL ma(klon, klev)      REAL ma(klon, klev)
43      real cape(klon) ! output (J / kg)      real cape(klon) ! output (J / kg)
44      INTEGER iflag(klon)      INTEGER, intent(out):: iflag(klon)
45      REAL qcondc(klon, klev)      REAL qcondc(klon, klev)
46      REAL pmflxr(klon, klev + 1)      REAL pmflxr(klon, klev + 1)
47      REAL, intent(inout):: da(klon, klev), phi(klon, klev, klev), mp(klon, klev)      REAL, intent(out):: da(:, :) ! (klon, klev)
48        REAL, intent(out):: phi(:, :, :) ! (klon, klev, klev)
49    
50        REAL, intent(out):: mp(:, :) ! (klon, klev) Mass flux of the
51        ! unsaturated downdraft, defined positive downward, in kg m-2
52        ! s-1. M_p in Emanuel (1991 928).
53    
54      ! Local:      ! Local:
55      REAL zx_qs, cor      REAL zx_qs, cor
# Line 65  contains Line 67  contains
67      END DO      END DO
68    
69      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, &
70           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, ma, upwd, &
71           upwd, dnwd, dnwd0, qcondc, cape, da, phi, mp)           dnwd, qcondc, cape, da, phi, mp)
72      rain = rain / 86400.      rain = rain / 86400.
73      d_t = dtime * d_t      d_t = dtphys * d_t
74      d_q = dtime * d_q      d_q = dtphys * d_q
75      d_u = dtime * d_u      d_u = dtphys * d_u
76      d_v = dtime * d_v      d_v = dtphys * d_v
77    
78    END SUBROUTINE concvl    END SUBROUTINE concvl
79    
Legend:
Removed from v.189  
changed lines
  Added in v.206
  ViewVC Help
Powered by ViewVC 1.1.21