/[lmdze]/trunk/Sources/phylmd/CV30_routines/cv30_compress.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/CV30_routines/cv30_compress.f

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

revision 91 by guez, Wed Mar 26 17:18:58 2014 UTC revision 97 by guez, Fri Apr 25 14:58:31 2014 UTC
# Line 4  module cv3_compress_m Line 4  module cv3_compress_m
4    
5  contains  contains
6    
7    SUBROUTINE cv3_compress(len, nloc, ncum, nd, ntra, iflag1, nk1, icb1, &    SUBROUTINE cv3_compress(len, nloc, ncum, nd, iflag1, nk1, icb1, icbs1, &
8         icbs1, plcl1, tnk1, qnk1, gznk1, pbase1, buoybase1, t1, q1, qs1, u1, &         plcl1, tnk1, qnk1, gznk1, pbase1, buoybase1, t1, q1, qs1, u1, v1, gz1, &
9         v1, gz1, th1, tra1, h1, lv1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, &         th1, h1, lv1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, sig1, w01, iflag, &
10         sig1, w01, iflag, nk, icb, icbs, plcl, tnk, qnk, gznk, pbase, &         nk, icb, icbs, plcl, tnk, qnk, gznk, pbase, buoybase, t, q, qs, u, v, &
11         buoybase, t, q, qs, u, v, gz, th, tra, h, lv, cpn, p, ph, tv, tp, tvp, &         gz, th, h, lv, cpn, p, ph, tv, tp, tvp, clw, sig, w0)
        clw, sig, w0)  
12    
13      use cv3_param_m      use cv3_param_m
14    
15    
16      ! inputs:      ! inputs:
17      integer, intent(in):: len, ncum, nd, ntra, nloc      integer, intent(in):: len, ncum, nd, nloc
18      integer iflag1(len), nk1(len), icb1(len), icbs1(len)      integer iflag1(len), nk1(len), icb1(len), icbs1(len)
19      real plcl1(len), tnk1(len), qnk1(len), gznk1(len)      real plcl1(len), tnk1(len), qnk1(len), gznk1(len)
20      real pbase1(len), buoybase1(len)      real pbase1(len), buoybase1(len)
# Line 26  contains Line 25  contains
25      real tvp1(len, nd), clw1(len, nd)      real tvp1(len, nd), clw1(len, nd)
26      real th1(len, nd)      real th1(len, nd)
27      real sig1(len, nd), w01(len, nd)      real sig1(len, nd), w01(len, nd)
     real, intent(in):: tra1(len, nd, ntra)  
28    
29      ! outputs:      ! outputs:
30      ! en fait, on a nloc=len pour l'instant (cf cv_driver)      ! en fait, on a nloc=len pour l'instant (cf cv_driver)
# Line 39  contains Line 37  contains
37      real tvp(nloc, nd), clw(nloc, nd)      real tvp(nloc, nd), clw(nloc, nd)
38      real th(nloc, nd)      real th(nloc, nd)
39      real sig(nloc, nd), w0(nloc, nd)      real sig(nloc, nd), w0(nloc, nd)
     real tra(nloc, nd, ntra)  
40    
41      ! local variables:      ! local variables:
42      integer i, k, nn, j      integer i, k, nn, j
Legend:
Removed from v.91  
changed lines
  Added in v.97
  ViewVC Help
Powered by ViewVC 1.1.21