/[lmdze]/trunk/libf/phylmd/CV3_routines/cv3_param.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/CV3_routines/cv3_param.f90

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 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 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.12

  ViewVC Help
Powered by ViewVC 1.1.21