33 |
include "cvparam3.h" |
include "cvparam3.h" |
34 |
|
|
35 |
integer nd |
integer nd |
36 |
real delt ! timestep (seconds) |
real, intent(in):: delt ! timestep (seconds) |
37 |
|
|
38 |
c noff: integer limit for convection (nd-noff) |
c noff: integer limit for convection (nd-noff) |
39 |
c minorig: First level of convection |
c minorig: First level of convection |
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) |
1835 |
c inputs: |
c inputs: |
1836 |
integer ncum, nd, na, ntra, nloc |
integer ncum, nd, na, ntra, nloc |
1837 |
integer icb(nloc), inb(nloc) |
integer icb(nloc), inb(nloc) |
1838 |
real delt, plcl(nloc) |
real, intent(in):: delt |
1839 |
|
real plcl(nloc) |
1840 |
real t(nloc,nd), rr(nloc,nd), rs(nloc,nd) |
real t(nloc,nd), rr(nloc,nd), rs(nloc,nd) |
1841 |
real u(nloc,nd), v(nloc,nd) |
real u(nloc,nd), v(nloc,nd) |
1842 |
real tra(nloc,nd,ntra) |
real tra(nloc,nd,ntra) |
2178 |
c inputs: |
c inputs: |
2179 |
integer ncum,nd,na,ntra,nloc |
integer ncum,nd,na,ntra,nloc |
2180 |
integer icb(nloc), inb(nloc) |
integer icb(nloc), inb(nloc) |
2181 |
real delt |
real, intent(in):: delt |
2182 |
real t(nloc,nd), rr(nloc,nd), u(nloc,nd), v(nloc,nd) |
real t(nloc,nd), rr(nloc,nd), u(nloc,nd), v(nloc,nd) |
2183 |
real tra(nloc,nd,ntra), sig(nloc,nd) |
real tra(nloc,nd,ntra), sig(nloc,nd) |
2184 |
real gz(nloc,na), ph(nloc,nd+1), h(nloc,na), hp(nloc,na) |
real gz(nloc,na), ph(nloc,nd+1), h(nloc,na), hp(nloc,na) |