/[lmdze]/trunk/libf/phylmd/cv3_routines.f
ViewVC logotype

Diff of /trunk/libf/phylmd/cv3_routines.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC revision 14 by guez, Mon Jul 28 14:48:09 2008 UTC
# Line 1427  c!      sig(icb-1)=sig(icb) Line 1427  c!      sig(icb-1)=sig(icb)
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  !---------------------------------------------------------------------  !---------------------------------------------------------------------
# Line 1459  c outputs: Line 1459  c outputs:
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)
Legend:
Removed from v.12  
changed lines
  Added in v.14
  ViewVC Help
Powered by ViewVC 1.1.21