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

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

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

trunk/Sources/phylmd/CV3_routines/cv3_mixing.f revision 145 by guez, Tue Jun 16 15:23:29 2015 UTC trunk/Sources/phylmd/CV30_routines/cv30_mixing.f revision 185 by guez, Wed Mar 16 15:04:46 2016 UTC
# Line 1  Line 1 
1  module cv3_mixing_m  module cv30_mixing_m
2    
3    implicit none    implicit none
4    
5  contains  contains
6    
7    SUBROUTINE cv3_mixing(nloc, ncum, nd, na, icb, nk, inb, t, rr, rs, u, v, h, &    SUBROUTINE cv30_mixing(nloc, ncum, nd, na, icb, nk, inb, t, rr, rs, u, v, h, &
8         lv, hp, ep, clw, m, sig, ment, qent, uent, vent, nent, sij, elij, &         lv, hp, ep, clw, m, sig, ment, qent, uent, vent, nent, sij, elij, &
9         ments, qents)         ments, qents)
10      use cv3_param_m      use cv30_param_m
11      use cvthermo      use cvthermo
12    
13      !---------------------------------------------------------------------      !---------------------------------------------------------------------
# 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 50  contains Line 49  contains
49      do j=1, nl      do j=1, nl
50         do i=1, ncum         do i=1, ncum
51            nent(i, j)=0            nent(i, j)=0
52            ! in convect3, m is computed in cv3_closure            ! in convect3, m is computed in cv30_closure
53            ! ori m(i, 1)=0.0            ! ori m(i, 1)=0.0
54         end do         end do
55      end do      end do
# 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    
# Line 331  contains Line 316  contains
316         enddo         enddo
317      enddo      enddo
318    
319    end SUBROUTINE cv3_mixing    end SUBROUTINE cv30_mixing
320    
321  end module cv3_mixing_m  end module cv30_mixing_m
Legend:
Removed from v.145  
changed lines
  Added in v.185
  ViewVC Help
Powered by ViewVC 1.1.21