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

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

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

revision 186 by guez, Mon Mar 21 15:36:26 2016 UTC revision 187 by guez, Mon Mar 21 18:01:02 2016 UTC
# Line 18  contains Line 18  contains
18    
19      ! inputs:      ! inputs:
20      integer, intent(in):: ncum, nd, na, nloc      integer, intent(in):: ncum, nd, na, nloc
21      integer icb(nloc), inb(nloc), nk(nloc)      integer, intent(in):: icb(nloc), inb(nloc), nk(nloc)
22      real sig(nloc, nd)      real sig(nloc, nd)
23      real t(nloc, nd), rr(nloc, nd), rs(nloc, nd)      real t(nloc, nd), rr(nloc, nd), rs(nloc, nd)
24      real u(nloc, nd), v(nloc, nd)      real u(nloc, nd), v(nloc, nd)
# Line 123  contains Line 123  contains
123         ! *** if no air can entrain at level i assume that updraft detrains ***         ! *** if no air can entrain at level i assume that updraft detrains ***
124         ! *** at that level and calculate detrained air flux and properties ***         ! *** at that level and calculate detrained air flux and properties ***
125    
        !@ do 170 i=icb(il), inb(il)  
   
126         do il=1, ncum         do il=1, ncum
127            if ((i >= icb(il)).and.(i <= inb(il)).and.(nent(il, i) == 0)) then            if ((i >= icb(il)).and.(i <= inb(il)).and.(nent(il, i) == 0)) then
128               !@ if(nent(il, i) == 0)then               !@ if(nent(il, i) == 0)then
Legend:
Removed from v.186  
changed lines
  Added in v.187
  ViewVC Help
Powered by ViewVC 1.1.21