/[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 62 by guez, Thu Jul 26 14:37:37 2012 UTC revision 69 by guez, Mon Feb 18 16:33:12 2013 UTC
# Line 4  module concvl_m Line 4  module concvl_m
4    
5  contains  contains
6    
7    SUBROUTINE concvl(iflag_con, dtime, paprs, pplay, t, q, u, v, tra, &    SUBROUTINE concvl(dtime, paprs, pplay, t, q, u, v, tra, work1, work2, &
8         ntra, work1, work2, d_t, d_q, d_u, d_v, d_tra, rain, snow, kbas, &         d_t, d_q, d_u, d_v, d_tra, rain, snow, kbas, ktop, upwd, dnwd, dnwd0, &
9         ktop, upwd, dnwd, dnwd0, ma, cape, tvp, iflag, pbase, bbase, &         ma, cape, tvp, iflag, pbase, bbase, dtvpdt1, dtvpdq1, dplcldt, &
10         dtvpdt1, dtvpdq1, dplcldt, dplcldr, qcondc, wd, pmflxr, pmflxs, &         dplcldr, qcondc, wd, pmflxr, pmflxs, da, phi, mp, ntra)
        da, phi, mp)  
11    
12      ! 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
13      ! Author: Z. X. Li (LMD/CNRS)      ! Author: Z. X. Li (LMD/CNRS)
14      ! date: 1993/08/18      ! Date: 1993/08/18
15      ! Objet : schéma de convection d'Emanuel (1991), interface      ! Objet : schéma de convection d'Emanuel (1991), interface
16        ! (driver commun aux versions 3 et 4)
17    
18      USE dimens_m, ONLY : nqmx      use clesphys2, only: iflag_con
     USE dimphy, ONLY : klev, klon  
     USE suphec_m, ONLY : retv, rtt  
     USE yoethf_m, ONLY : r2es  
     USE fcttre, ONLY : foeew  
19      use cv_driver_m, only: cv_driver      use cv_driver_m, only: cv_driver
20        USE dimens_m, ONLY: nqmx
21        USE dimphy, ONLY: klev, klon
22        USE fcttre, ONLY: foeew
23        USE suphec_m, ONLY: retv, rtt
24        USE yoethf_m, ONLY: r2es
25    
26      INTEGER, PARAMETER:: ntrac = nqmx - 2      INTEGER, PARAMETER:: ntrac = nqmx - 2
27    
28      INTEGER, INTENT (IN) :: iflag_con      REAL, INTENT (IN):: dtime ! pas d'integration (s)
29      REAL, INTENT (IN) :: dtime ! pas d'integration (s)      REAL, INTENT (IN):: paprs(klon, klev+1)
30      REAL, INTENT (IN) :: paprs(klon, klev+1)      REAL, INTENT (IN):: pplay(klon, klev)
     REAL, INTENT (IN) :: pplay(klon, klev)  
31      REAL, intent(in):: t(klon, klev)      REAL, intent(in):: t(klon, klev)
32      real q(klon, klev), u(klon, klev), v(klon, klev)      real q(klon, klev) ! input vapeur d'eau (en kg/kg)
33      ! q-------input-R-vapeur d'eau (en kg/kg)      real u(klon, klev), v(klon, klev)
34      REAL, INTENT (IN):: tra(klon, klev, ntrac)      REAL, INTENT (IN):: tra(klon, klev, ntrac)
35      INTEGER ntra      INTEGER, intent(in):: ntra ! number of tracers
36      REAL work1(klon, klev), work2(klon, klev)      REAL work1(klon, klev), work2(klon, klev)
37      ! work*: input et output: deux variables de travail,      ! work*: input et output: deux variables de travail,
38      !                            on peut les mettre a 0 au debut      !                            on peut les mettre a 0 au debut
# Line 128  contains Line 128  contains
128         END DO         END DO
129      END IF      END IF
130    
131      ! Main driver for convection:      CALL cv_driver(klon, klev, klev+1, ntra, t, q, qs, u, v, tra, em_p, &
132      !           iflag_con = 3  -> equivalent to convect3           em_ph, iflag, d_t, d_q, d_u, d_v, d_tra, rain, pmflxr, cbmf, work1, &
133      !           iflag_con = 4  -> equivalent to convect1/2           work2, kbas, ktop, dtime, ma, upwd, dnwd, dnwd0, qcondc, wd, cape, &
134             da, phi, mp)
     CALL cv_driver(klon, klev, klev+1, ntra, iflag_con, t, q, qs, u, v, tra, &  
          em_p, em_ph, iflag, d_t, d_q, d_u, d_v, d_tra, rain, pmflxr, cbmf, &  
          work1, work2, kbas, ktop, dtime, ma, upwd, dnwd, dnwd0, qcondc, &  
          wd, cape, da, phi, mp)  
135    
136      DO i = 1, klon      DO i = 1, klon
137         rain(i) = rain(i)/86400.         rain(i) = rain(i)/86400.
Legend:
Removed from v.62  
changed lines
  Added in v.69
  ViewVC Help
Powered by ViewVC 1.1.21