/[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 145 by guez, Tue Jun 16 15:23:29 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 31  contains Line 31  contains
31      real uent(nloc, na, na), vent(nloc, na, na)      real uent(nloc, na, na), vent(nloc, na, na)
32      real sij(nloc, na, na), elij(nloc, na, na)      real sij(nloc, na, na), elij(nloc, na, na)
33      real ments(nloc, nd, nd), qents(nloc, nd, nd)      real ments(nloc, nd, nd), qents(nloc, nd, nd)
     real sigij(nloc, nd, nd)  
34      integer nent(nloc, nd)      integer nent(nloc, nd)
35    
36      ! local variables:      ! local variables:
# Line 140  contains Line 139  contains
139         end do         end do
140      end do      end do
141    
     do j=minorig, nl  
        do i=minorig, nl  
           do il=1, ncum  
              if ((j >= (icb(il)-1)).and.(j <= inb(il)) &  
                   .and.(i >= icb(il)).and.(i <= inb(il)))then  
                 sigij(il, i, j)=sij(il, i, j)  
              endif  
           end do  
        end do  
     end do  
     !@ enddo  
   
     !@170 continue  
   
142      ! --- NORMALIZE ENTRAINED AIR MASS FLUXES      ! --- NORMALIZE ENTRAINED AIR MASS FLUXES
143      ! --- TO REPRESENT EQUAL PROBABILITIES OF MIXING      ! --- TO REPRESENT EQUAL PROBABILITIES OF MIXING
144    
Legend:
Removed from v.145  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21