1427 |
SUBROUTINE cv3_mixing(nloc,ncum,nd,na,ntra,icb,nk,inb |
SUBROUTINE cv3_mixing(nloc,ncum,nd,na,ntra,icb,nk,inb |
1428 |
: ,ph,t,rr,rs,u,v,tra,h,lv,qnk |
: ,ph,t,rr,rs,u,v,tra,h,lv,qnk |
1429 |
: ,hp,tv,tvp,ep,clw,m,sig |
: ,hp,tv,tvp,ep,clw,m,sig |
1430 |
: ,ment,qent,uent,vent,sij,elij,ments,qents,traent) |
: ,ment,qent,uent,vent, nent, sij,elij,ments,qents,traent) |
1431 |
implicit none |
implicit none |
1432 |
|
|
1433 |
!--------------------------------------------------------------------- |
!--------------------------------------------------------------------- |
1459 |
real traent(nloc,nd,nd,ntra) |
real traent(nloc,nd,nd,ntra) |
1460 |
real ments(nloc,nd,nd), qents(nloc,nd,nd) |
real ments(nloc,nd,nd), qents(nloc,nd,nd) |
1461 |
real sigij(nloc,nd,nd) |
real sigij(nloc,nd,nd) |
1462 |
|
integer nent(nloc,nd) |
1463 |
|
|
1464 |
c local variables: |
c local variables: |
1465 |
integer i, j, k, il, im, jm |
integer i, j, k, il, im, jm |
1466 |
integer num1, num2 |
integer num1, num2 |
|
integer nent(nloc,na) |
|
1467 |
real rti, bf2, anum, denom, dei, altem, cwat, stemp, qp |
real rti, bf2, anum, denom, dei, altem, cwat, stemp, qp |
1468 |
real alt, smid, sjmin, sjmax, delp, delm |
real alt, smid, sjmin, sjmax, delp, delm |
1469 |
real asij(nloc), smax(nloc), scrit(nloc) |
real asij(nloc), smax(nloc), scrit(nloc) |