/[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 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 14 by guez, Mon Jul 28 14:48:09 2008 UTC
# Line 33  C   ***                     IT MUST BE L Line 33  C   ***                     IT MUST BE L
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
# 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)
# Line 1835  c Line 1835  c
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)
# Line 2177  c       end do Line 2178  c       end do
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)
Legend:
Removed from v.3  
changed lines
  Added in v.14
  ViewVC Help
Powered by ViewVC 1.1.21