70 |
integer nd |
integer nd |
71 |
integer ndp1 |
integer ndp1 |
72 |
integer noff |
integer noff |
73 |
integer iflag_con |
integer, intent(in):: iflag_con |
74 |
integer ntra |
integer ntra |
75 |
real t1(len,nd) |
real t1(len,nd) |
76 |
real q1(len,nd) |
real q1(len,nd) |
101 |
real, intent(in):: tra1(len,nd,ntra) |
real, intent(in):: tra1(len,nd,ntra) |
102 |
real ftra1(len,nd,ntra) |
real ftra1(len,nd,ntra) |
103 |
|
|
104 |
real delt |
real, intent(in):: delt |
105 |
|
|
106 |
!------------------------------------------------------------------- |
!------------------------------------------------------------------- |
107 |
! --- ARGUMENTS |
! --- ARGUMENTS |
520 |
CALL cv3_mixing(nloc,ncum,nd,nd,ntra,icb,nk,inb ! na->nd |
CALL cv3_mixing(nloc,ncum,nd,nd,ntra,icb,nk,inb ! na->nd |
521 |
: ,ph,t,q,qs,u,v,tra,h,lv,qnk |
: ,ph,t,q,qs,u,v,tra,h,lv,qnk |
522 |
: ,hp,tv,tvp,ep,clw,m,sig |
: ,hp,tv,tvp,ep,clw,m,sig |
523 |
o ,ment,qent,uent,vent,sij,elij,ments,qents,traent) |
o ,ment,qent,uent,vent, nent,sij,elij,ments,qents,traent) |
524 |
endif |
endif |
525 |
|
|
526 |
if (iflag_con.eq.4) then |
if (iflag_con.eq.4) then |
653 |
|
|
654 |
include "cvthermo.h" |
include "cvthermo.h" |
655 |
|
|
656 |
integer iflag_con |
integer, intent(in):: iflag_con |
657 |
|
|
658 |
|
|
659 |
c original set from convect: |
c original set from convect: |