/[lmdze]/trunk/Sources/phylmd/cv_driver.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/cv_driver.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 cv_driver_m Line 4  module cv_driver_m
4    
5  contains  contains
6    
7    SUBROUTINE cv_driver(len, nd, ndp1, ntra, iflag_con, t1, q1, qs1, u1, v1, &    SUBROUTINE cv_driver(len, nd, ndp1, ntra, t1, q1, qs1, u1, v1, tra1, p1, &
8         tra1, p1, ph1, iflag1, ft1, fq1, fu1, fv1, ftra1, precip1, VPrecip1, &         ph1, iflag1, ft1, fq1, fu1, fv1, ftra1, precip1, VPrecip1, cbmf1, &
9         cbmf1, sig1, w01, icb1, inb1, delt, Ma1, upwd1, dnwd1, dnwd01, &         sig1, w01, icb1, inb1, delt, Ma1, upwd1, dnwd1, dnwd01, qcondc1, wd1, &
10         qcondc1, wd1, cape1, da1, phi1, mp1)         cape1, da1, phi1, mp1)
11    
12      ! From LMDZ4/libf/phylmd/cv_driver.F, version 1.3 2005/04/15 12:36:17      ! From LMDZ4/libf/phylmd/cv_driver.F, version 1.3 2005/04/15 12:36:17
13    
14        ! Main driver for convection
15    
16        use clesphys2, only: iflag_con
17        use cv3_param_m, only: cv3_param
18      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
19    
20      ! PARAMETERS:      ! PARAMETERS:
# Line 21  contains Line 25  contains
25      !      nd            Integer        Input        vertical (k) dimension      !      nd            Integer        Input        vertical (k) dimension
26      !      ndp1          Integer        Input        nd + 1      !      ndp1          Integer        Input        nd + 1
27      !      ntra          Integer        Input        number of tracors      !      ntra          Integer        Input        number of tracors
     !      iflag_con     Integer        Input        version of convect (3/4)  
28      !      t1            Real           Input        temperature      !      t1            Real           Input        temperature
29      !      q1            Real           Input        specific hum      !      q1            Real           Input        specific hum
30      !      qs1           Real           Input        sat specific hum      !      qs1           Real           Input        sat specific hum
# Line 60  contains Line 63  contains
63      integer nd      integer nd
64      integer ndp1      integer ndp1
65      integer noff      integer noff
66      integer, intent(in):: iflag_con      integer, intent(in):: ntra
     integer ntra  
67      real, intent(in):: t1(len, nd)      real, intent(in):: t1(len, nd)
68      real q1(len, nd)      real q1(len, nd)
69      real qs1(len, nd)      real qs1(len, nd)
# Line 290  contains Line 292  contains
292      ! -- set thermodynamical constants:      ! -- set thermodynamical constants:
293      !     (common cvthermo)      !     (common cvthermo)
294    
295      CALL cv_thermo(iflag_con)      CALL cv_thermo
296    
297      ! -- set convect parameters      ! -- set convect parameters
298    
Legend:
Removed from v.62  
changed lines
  Added in v.69
  ViewVC Help
Powered by ViewVC 1.1.21