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 |
!--------------------------------------------------------------------- |
!--------------------------------------------------------------------- |
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: |
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 |
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 |
|
|
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 |