/[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 189 by guez, Tue Mar 29 15:20:23 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      use conema3_m, only: iflag_clw      use conema3_m, only: iflag_clw
13      use cv30_param_m, only: delta, minorig, nl, sigd      use cv30_param_m, only: delta, minorig, nl, sigd
# Line 28  contains Line 28  contains
28      real tp(klon, klev)      real tp(klon, klev)
29      real mp(klon, klev), rp(klon, klev), up(klon, klev)      real mp(klon, klev), rp(klon, klev), up(klon, klev)
30      real vp(klon, klev), wt(klon, klev)      real vp(klon, klev), wt(klon, klev)
31      real, intent(in):: water(:, :), evap(:, :), b(:, :) ! (ncum, nl)      real, intent(in):: water(:, :), evap(:, :) ! (ncum, nl)
32        real, intent(in):: b(:, :) ! (ncum, nl - 1)
33      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)
34      real vent(klon, klev, klev)      real vent(klon, klev, klev)
35      integer nent(klon, klev)      integer nent(klon, klev)
# Line 49  contains Line 50  contains
50      real mike(klon, klev)      real mike(klon, klev)
51      real tls(klon, klev), tps(klon, klev)      real tls(klon, klev), tps(klon, klev)
52      real qcondc(klon, klev)      real qcondc(klon, klev)
     real wd(klon) ! gust  
53    
54      ! Local:      ! Local:
55      integer ncum      integer ncum
# Line 74  contains Line 74  contains
74    
75      do il = 1, ncum      do il = 1, ncum
76         precip(il) = 0.0         precip(il) = 0.0
        wd(il) = 0.0 ! gust  
77         VPrecip(il, klev + 1) = 0.         VPrecip(il, klev + 1) = 0.
78      enddo      enddo
79    
Legend:
Removed from v.188  
changed lines
  Added in v.189
  ViewVC Help
Powered by ViewVC 1.1.21