/[lmdze]/trunk/Sources/phylmd/CV30_routines/cv30_yield.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/CV30_routines/cv30_yield.f

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

revision 188 by guez, Tue Mar 22 16:31:39 2016 UTC revision 196 by guez, Mon May 23 13:50:39 2016 UTC
# Line 7  contains Line 7  contains
7    SUBROUTINE cv30_yield(icb, inb, delt, t, rr, u, v, gz, p, ph, h, hp, lv, &    SUBROUTINE cv30_yield(icb, inb, delt, t, rr, u, v, gz, p, ph, h, hp, lv, &
8         cpn, th, ep, clw, m, tp, mp, rp, up, vp, wt, water, evap, b, ment, &         cpn, th, ep, clw, m, tp, mp, rp, up, vp, wt, water, evap, b, ment, &
9         qent, uent, vent, nent, elij, sig, tv, tvp, iflag, precip, VPrecip, &         qent, uent, vent, nent, elij, sig, tv, tvp, iflag, precip, VPrecip, &
10         ft, fr, fu, fv, upwd, dnwd, dnwd0, ma, mike, tls, tps, qcondc, wd)         ft, fr, fu, fv, upwd, dnwd, dnwd0, ma, mike, tls, tps, qcondc)
11    
12        ! Tendencies, precipitation, variables of interface with other
13        ! processes, etc.
14    
15      use conema3_m, only: iflag_clw      use conema3_m, only: iflag_clw
16      use cv30_param_m, only: delta, minorig, nl, sigd      use cv30_param_m, only: minorig, nl, sigd
17      use cvthermo, only: cl, cpd, cpv, grav, rowl, rrd, rrv      use cv_thermo_m, only: cl, cpd, cpv, grav, rowl, rrd, rrv
18      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
19    
20      ! inputs:      ! inputs:
# Line 27  contains Line 30  contains
30      real m(klon, klev)      real m(klon, klev)
31      real tp(klon, klev)      real tp(klon, klev)
32      real mp(klon, klev), rp(klon, klev), up(klon, klev)      real mp(klon, klev), rp(klon, klev), up(klon, klev)
33      real vp(klon, klev), wt(klon, klev)      real, intent(in):: vp(:, 2:) ! (ncum, 2:nl)
34      real, intent(in):: water(:, :), evap(:, :), b(:, :) ! (ncum, nl)      real, intent(in):: wt(:, :) ! (ncum, nl - 1)
35        real, intent(in):: water(:, :), evap(:, :) ! (ncum, nl)
36        real, intent(in):: b(:, :) ! (ncum, nl - 1)
37      real ment(klon, klev, klev), qent(klon, klev, klev), uent(klon, klev, klev)      real ment(klon, klev, klev), qent(klon, klev, klev), uent(klon, klev, klev)
38      real vent(klon, klev, klev)      real vent(klon, klev, klev)
39      integer nent(klon, klev)      integer nent(klon, klev)
# Line 36  contains Line 41  contains
41      real sig(klon, klev)      real sig(klon, klev)
42      real tv(klon, klev), tvp(klon, klev)      real tv(klon, klev), tvp(klon, klev)
43    
44      ! input / output:      integer, intent(out):: iflag(:) ! (ncum)
     integer iflag(klon)  
45    
46      ! outputs:      ! outputs:
47      real precip(klon)      real precip(klon)
# Line 49  contains Line 53  contains
53      real mike(klon, klev)      real mike(klon, klev)
54      real tls(klon, klev), tps(klon, klev)      real tls(klon, klev), tps(klon, klev)
55      real qcondc(klon, klev)      real qcondc(klon, klev)
     real wd(klon) ! gust  
56    
57      ! Local:      ! Local:
58        real, parameter:: delta = 0.01 ! interface cloud parameterization
59      integer ncum      integer ncum
60      integer i, k, il, n, j, num1      integer i, k, il, n, j, num1
61      real rat, awat, delti      real rat, awat, delti
# Line 67  contains Line 71  contains
71      !-------------------------------------------------------------      !-------------------------------------------------------------
72    
73      ncum = size(icb)      ncum = size(icb)
74        iflag = 0
75    
76      ! initialization:      ! initialization:
77    
# Line 74  contains Line 79  contains
79    
80      do il = 1, ncum      do il = 1, ncum
81         precip(il) = 0.0         precip(il) = 0.0
        wd(il) = 0.0 ! gust  
82         VPrecip(il, klev + 1) = 0.         VPrecip(il, klev + 1) = 0.
83      enddo      enddo
84    
Legend:
Removed from v.188  
changed lines
  Added in v.196
  ViewVC Help
Powered by ViewVC 1.1.21