/[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

trunk/phylmd/CV3_routines/cv3_compress.f revision 91 by guez, Wed Mar 26 17:18:58 2014 UTC trunk/Sources/phylmd/CV3_routines/cv3_compress.f revision 134 by guez, Wed Apr 29 15:47:56 2015 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)
21      real, intent(in):: t1(len, nd)      real, intent(in):: t1(len, nd)
22      real, intent(in):: q1(len, nd), qs1(len, nd), u1(len, nd), v1(len, nd)      real, intent(in):: q1(len, nd), qs1(len, nd), u1(len, nd), v1(len, nd)
23      real gz1(len, nd), h1(len, nd), lv1(len, nd), cpn1(len, nd)      real gz1(len, nd), h1(len, nd), lv1(len, nd), cpn1(len, nd)
24      real p1(len, nd), ph1(len, nd+1), tv1(len, nd), tp1(len, nd)      real, intent(in):: p1(len, nd), ph1(len, nd+1), tv1(len, nd), tp1(len, nd)
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
43    
44    
45      do  k=1, nl+1      do  k=1, nl+1
Legend:
Removed from v.91  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21