/[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

trunk/Sources/phylmd/CV30_routines/cv3_feed.f revision 184 by guez, Wed Mar 16 14:50:46 2016 UTC trunk/Sources/phylmd/CV30_routines/cv30_feed.f revision 185 by guez, Wed Mar 16 15:04:46 2016 UTC
# Line 1  Line 1 
1  module cv3_feed_m  module cv30_feed_m
2    
3    implicit none    implicit none
4    
5  contains  contains
6    
7    SUBROUTINE cv3_feed(len, nd, t, q, qs, p, ph, gz, nk, icb, icbmax, iflag, &    SUBROUTINE cv30_feed(len, nd, t, q, qs, p, ph, gz, nk, icb, icbmax, iflag, &
8         tnk, qnk, gznk, plcl)         tnk, qnk, gznk, plcl)
9    
10      ! Purpose: convective feed      ! Purpose: convective feed
# Line 14  contains Line 14  contains
14      ! - here, nk(i) = minorig      ! - here, nk(i) = minorig
15      ! - icb defined differently (plcl compared with ph instead of p)      ! - icb defined differently (plcl compared with ph instead of p)
16    
17      use cv3_param_m, only: minorig, nl, nlm      use cv30_param_m, only: minorig, nl, nlm
18    
19      integer, intent(in):: len, nd      integer, intent(in):: len, nd
20      real, intent(in):: t(len, nd)      real, intent(in):: t(len, nd)
# Line 100  contains Line 100  contains
100         if (iflag(i) < 7) icbmax = max(icbmax, icb(i))         if (iflag(i) < 7) icbmax = max(icbmax, icb(i))
101      end do      end do
102    
103    end SUBROUTINE cv3_feed    end SUBROUTINE cv30_feed
104    
105  end module cv3_feed_m  end module cv30_feed_m
Legend:
Removed from v.184  
changed lines
  Added in v.185
  ViewVC Help
Powered by ViewVC 1.1.21