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

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

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 145 by guez, Tue Jun 16 15:23:29 2015 UTC
# Line 4  module cv3_feed_m Line 4  module cv3_feed_m
4    
5  contains  contains
6    
7    SUBROUTINE cv3_feed(len, nd, t, q, qs, p, ph, hm, gz, nk, icb, icbmax, &    SUBROUTINE cv3_feed(len, nd, t, q, qs, p, ph, gz, nk, icb, icbmax, iflag, &
8         iflag, tnk, qnk, gznk, plcl)         tnk, qnk, gznk, plcl)
9    
10      ! Purpose: CONVECTIVE FEED      ! Purpose: CONVECTIVE FEED
11    
# Line 25  contains Line 25  contains
25      integer, intent(in):: len, nd      integer, intent(in):: len, nd
26      real, intent(in):: t(len, nd)      real, intent(in):: t(len, nd)
27      real, intent(in):: q(len, nd), qs(len, nd), p(len, nd)      real, intent(in):: q(len, nd), qs(len, nd), p(len, nd)
28      real hm(len, nd), gz(len, nd)      real gz(len, nd)
29      real, intent(in):: ph(len, nd+1)      real, intent(in):: ph(len, nd+1)
30    
31      ! outputs:      ! outputs:
# Line 35  contains Line 35  contains
35    
36      ! local variables:      ! local variables:
37      integer i, k      integer i, k
     integer ihmin(len)  
     real work(len)  
38      real pnk(len), qsnk(len), rh(len), chi(len)      real pnk(len), qsnk(len), rh(len), chi(len)
39      real A, B ! convect3      real A, B ! convect3
40    
Legend:
Removed from v.134  
changed lines
  Added in v.145
  ViewVC Help
Powered by ViewVC 1.1.21