Parent Directory | Revision Log | Patch
revision 13 by guez, Mon Jul 21 16:05:07 2008 UTC | revision 14 by guez, Mon Jul 28 14:48:09 2008 UTC | |
---|---|---|
# | Line 520 c print*,'klon, ncum = ',len,ncum | Line 520 c print*,'klon, ncum = ',len,ncum |
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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |