/[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 190 by guez, Thu Apr 14 15:15:56 2016 UTC revision 196 by guez, Mon May 23 13:50:39 2016 UTC
# Line 9  contains Line 9  contains
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)         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 cv_thermo_m, 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    
# 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):: wt(:, :) ! (ncum, nl - 1)
35      real, intent(in):: water(:, :), evap(:, :) ! (ncum, nl)      real, intent(in):: water(:, :), evap(:, :) ! (ncum, nl)
36      real, intent(in):: b(:, :) ! (ncum, nl - 1)      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)
# Line 37  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 52  contains Line 55  contains
55      real qcondc(klon, klev)      real qcondc(klon, klev)
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    
Legend:
Removed from v.190  
changed lines
  Added in v.196
  ViewVC Help
Powered by ViewVC 1.1.21